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FOREWARD   TO  TEACHERS 


This  booklet  was  designed  for  the  use  of  Junior  High 
School  and  High. School  students.     A  student  who  shows  an 
interest  in  computers  or  has  completed  more  than  a  semester 
of  High  School  Algebra  should  be  given     the  opportunity  to 
use  the  regular  BASIC  Manual   (latest  edition) . 

While  a  limited  number  of  exercises  and  program  examples 
are  given  in  this  booklet,   sets  of  TOPIC  OUTLINES  are  avail- 
able from: 


NSF  SECONDARY  SCHOOL  PROJECT 
Kiewit  Computation  Center 
Dartmouth  College 
Hanover,  New  Hampshire  03755 

NOT  ALL  OF  THE  BASIC  LANGUAGE  IS  EXPLAINED  IN  THIS  BOOKLET. 

Explanations  of  BASIC  and  other  mathematical  concepts 
contained  herein  have  been  adjusted  to  meet  the  needs  and  under- 
standing of  the  "average"  teenager. 

A  table  of  contents  and  index  is  provided  for  easier 
reference . 

The  specific  individual  ability,   imagination,  and  creativity 
of  the  student  determines  to  a  large  extent  the  meaningful  and 
productive  use  of  a  time-sharing  teletype  in  school.     A  high  degr^ 
of  teacher  interest  also  leads  to  motivated  students. 


Ken 


Weissman 


Preface 


"A  program  is  a  set  of  directions  that  is  used  to  tell  a 
a  computer  how  to  provide  an  answer  to  some  problem." 

This  booklet  will  explain  many  of  these  directions,  so 
that  you  will  be  able  to  operate  the  computer.     The  directions 
are  called  a  language. 

The  language  that  this  booklet  explains  is  called  BASIC. 
It  is  a  lot  of  fun  to  learn.     However,  not  everything  about  the 
BASIC  language  is  explained  in  this  booklet.     When  you  finish 
the  booklet  you  might  like  to  learn  more.     If  you  do,   then  ask 
your  teacher    for  more  information. 

The  computer  you  are  using  is  a  GE-635  located  in  the 
Kiewit  Computation  Center  at  Dartmouth  College,  Hanover, 
New  Hampshire.     You  will  be  able  to  operate  the  Dari^mouth 
Time-Sharing  System   (DTSS)   computer  from  a  teletype  terminal 
at  your  school  that  uses  regular  telephone  lines  for  com- 
munication. 


CHAPTER  ONE 


USER  NUMBER 

Everybody  needs  a  user  number. 

Get  your  user  number  from  your  teacher,  or  the  person 
in  charge.     Write  it  below  so  you  won't  forget. 


My  user  number: 


-  1  - 


ERLG 


TURNING  ON  THE  TELETYPE 

Directions  are  posted  near  most  teletypes  telling  hov;  to 


operate  them. 


ERIC 


There  arr;  several  difff^rent  models  of  teletype  machines. 

Usually  you  just  push  the  originate  button,  marked  ORIG. 
Some  teletypes  are  marked  LINE  1  or  LINE  2,   instead  of  ORIG. 
In  a  tew  seconds,  you  will  hear  a  beep,  and  you  are  ready  to 
start. 

On  i^ome  hook-ups,  you  may  hear  a  dial-tone  after  pushing  the 
ORIG  button.     If  this  happens,  then  dial  anyone  of  these  special 
phone  numbers    (don't  pick  up  the  phone) : 

7  6511  2091  2101 


Then  in  a  few  seconds,  you  will  hear  a  beep,  and  you  are 
ready  to  start. 

If  you  have  any  trouble,  please  let  your  teacher  know  about 
it,   so  that  you  can  be  helped. 
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NEW 

After  turning  on  the  teletype,  hearing  the  beep,  and 
giving  your  user  number,   the  computer  will  ask  NEW  OR  OLD — . 

If  you  are  starting  a  NEW  program,  type  NEW,  and  push 
the  return  key  on  the  teletype. 

(  You  must  push  the  return  key  every  time  you  have  finished 
typing  a  line.  ) 

The  computer  will  then  ask  for  the  NEW  FILE  NAME — . 

Make  up  a  name.      (  You  can  name  your  program  with  any 
word  up  to  8  letters.  ) 

Given  below  are  some  sample  progra^n  names. 
JOE  FAT- 2  X  JACK  BASEBALL 
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NOW  YOU'RE  READY  TO  WRITE  A  PROGRAM  IN  BASIC 


The  computer  isn't  very  smart.     You  have  to  tell  it  every- 
thing it  has  to  do,  in  a  specific  orde^r. 

The  line  numbers  tell  the  computer  in  which  order  to  do  the 
program,  usually  lowest  number  first.     Line  numbers  also  make  it 
easy  for  us  to  locate  parts  of  the  program  so  that  we  can  make 
changes . 

If  you  didi^'t  already  know  that  the  computer  could: 

Add  (+) 
Multiply  (*) 
Divide  (/) 

Subtract  (-)     then  you  have  just  been 

informed. 

Let's  write  a  program  that  will  multiply  15  by  3. 
O.K.!!     Here  goes  the  program! 
DARTMOUTH  TIME- SHARING  J) 

TERMINAL  124  ON  AT  10:49  12  AUG  69,  058  USERS  ^Heading  typed  by 
DTSS  TILL  2400.     LIST  CCNEWS***  6  AUG  69  \teletype. 

USER  NUMBER — (Type  your  user  number) 
NEW  OR  OLD — NEW  TIMES 
READY 


(remember  to  push  the  return  key  at 
the  end  of  every  line) 


10  PRINT  15*3 
20  END 
RUN 

TIMES         08/12/69  10:50 
45 

TIME:    0.0  38  SEC. 
READY 

That's  all  there  is  to  itl     After  a  second  or  so,  the  teletype 
will  print  your  answer ....  45 . 

With  this  little  bit  of  information,  you  can  probably  do  most 
of  the  arithmetic  you  will  ever  need! 

It's  a  simple  job  to  change  line  10  to  either  add   (+) , 
subtract   (-)  ,  or  divide   (/).     It  is  :)ust  as  easy  to  change  the 
numbers  you  want  to  work  with. 
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NOW  YOU'RE  READY  TO  WRITE  A  PROGRAM  IN  BASIC  (Continued) 


Here  is  another  program  that  adds  three  numbers  8,3,  and  7: 


NEW  ADD 
READY 

(remember  you  must  push  the  return  key  at 
the  end  of. each  line,) 

10  PRINT  8+3+7 

20  END 

RUN 

ADD  08/12/69  10:51 

18 

TIME:     0.040  SEC. 
READY 


-  5  - 
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LINE  NUMBERS 


All  programs  have  line  niimbers. 

The  line  number  identifies  the  line  and  tells  the  computer 
which  lines  to  do  in  order.      (Usually,  lowest  number  first.) 

We  try  to  leave  space  between  line  numbers,   so  that  we  can 
place  other  lines  between.      (10,20,30  instead  of  11,12,13,  etc.) 

A  set  of  line  numbers  is  shown  below: 

10 
20 

30  you  can  choose  any  set  of  line  nvmtbers  you  want. 

35 

59 

80 

etc. 

When  you  have  finished  typing  a  line,  you  must  push  the 
return  key  on  the  teletype  keyboard. 

Line  numbers  mc^y  be  typed  in  any  order. 

8  8 

32  the  computer  will  sort  them  from  lowest  to  15 

15  highest  ^  19 

19  32 

You  may  eliminate  any  line  simply  by  retyping  the  line  number 
with  nothing  after  it.      (This  is  useful  when  making  corrections.) 

You  may  choose  any  set  of  line  numbers  you  wish.  Most 
people  pick  line  numbers  in  the  ten  times  table.      (10 , 20 , 30 , 40 , etc. 
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MAKING  CORRECTIONS 


There  are  5  major  ways  to  make  corrections  when  you  are 
working  on  the  teletype  that  is  hooked  into  the  DTSS  (Dartmouth 
Time-Sharing  System) : 

1.  To  eliminate  the  line  you  are  working  on,  you  can  just 
retype  the  line  number  and  start  all  over  again. 

2.  To  delete  the  line  that  you  are  working  on,  push  the 
control  key  and  the  X  key  at  the  same  time. 


3.     To  delete  one  or  two,   or  just  a  few  letters,  push 
the  shift  keyand  the  O  key  at  the  same  time.     This  produces 
a  backwords  arrow  ^  for  each  letter  eliminated.     An  example 
is  shown  below: 


SATRUDAY^^^^^URDAY 


The  computer  will  continue  as  if  RUDAY  was  never  typed. 

4.  You  can  type  NEW  at  any  time  and  eliminate  or  erase  your 
entire  current  program. 

5.  You  can  type  IGNORE  at  any  time  and  everything  since 
your  last  command  will  be  ignored.     Some  commands  are ;  RUN, 
LIST,    SAVE,   UNSAVE,    REPLACE,   NEW,  OLD. 
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END 


,  The  last  line  of  a  program  must  contain  the  END  S'tat^ir^^ 
It  looks  like  this: 

999  END 

Only  one  END  is  allowed  in  a  program, 

(The  computer  isn't  too  smart,  and  you  have  to  tel^  it 

where  the  end  of  the  program  is,) 
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PRINT  -  Calculations 


Calculations  involving  addition   (+) /  subtraction   (-) , 
multiplication   (*) ,  or  division   (/)   can  be  done  with  a  PRINT 
statement. 

Other  calculations  which  will  be  explained  later  can  also  be 
done  using  the  PRINT  statement  m  the  same  manner.     The  names  of 
some  of  these  are: 

Exponents    (f ) ,   Square  root  SQR(x) ,   Sine  SIN(x),  Cosine  COS(x), 
Tangent  TAN(x),   absolute  value  ABS(x),  exponents  to  base  e  EXP  (x) , 
and  complicated  formulas  that  you  can  make  up. 

In  the  example  below,  the  number  10  is  divided  by  2. 

NEW  JOE 
READY 

(remember  you  must  always  push  the  return  key  at  the 

end  of  every  line. ) 
15  PRINT  10/2 
20  END 
RUN 

JOE  08/12/69  10:53 

5 

TIME:      0.0  39  SEC. 
READY 

The  program  will  print  the  answer... 5  after  the  RUN  command 
is  typed.     The  calculation  of  10/2  is  done  by  the  computer. 

Can  you  write  a  program  that  adds  two  numbers  together? 

Can  you  write  a  program  that  multiplies  three  numbers  together 


PARENTHESES 


The  computer  isn't  able  to  determine  what  you  really  wanted 
to  do  if  you  make  a  mistake.  It  can  only  do  vhat  you  tell  it  to 
do. 

Suppose  you  wanted  to  find  the  average  of  two  test  grades 
70  and  90.  If  you  wrote  this  program  like  someone  I  know  did, 
you  would  get  the  wrong  answer. 

WRONG 


NEW  AVE RAGE W 
READY 

10  PRINT  70+90/2 

20  END 

RUN 

AVERAGEW     08/12/69  10:54 
115 

TIME:      0.041  SEC. 
READY 

The  computer  printed  out  115  and  we  know  this  is  wrong. 

What  we  really  wanted  to  do  was  to  add  70+90  first,  and 
then  divide  by  2.     This  can  be  done  by  using  parentheses. 

CORRECT 

NEW  AVERAGEC 
READY 

10  PRINT  (70+90J/2 

20  END 

RUN 

AVERAGEC     08/12/69  10:54 
80 

TIME:      0. 041  SEC. 
READY 

The  computer  will  print  out  80,   the  correct  answer. 

What  happened  here  was  that  the  computer  first  added  70+90 
and  got  160,   then  divided  the  160  by  2  to  get  80. 

The  computer  is  scheduled  to  do  multiplication  and  division 
before  addition  and  suljt taction  and  then  to  proceed  from  left      to  right 

-   10  - 
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PARENTHESES  (Continued) 


in  calculating  answers. 

Suppose  we  wanted  to  add  2+2  and  then  multiply  the  result  by  3, 
If  we  simply  wrote:  2h-2*3  or  3*2+2,  we  would  get  the  same  wrong 
answer  in  both  cases: 


NEW  TRYl 
READY 

10  PRINT  2+2*3 

20  END 

RUN 

TRYl     08/12/69  10:55 


or 


NEW  TRY 2 
READY 

10  PRINT  3*2+2 

2  0  END 

RUN 

TRY2     08/12/69     10 : 55 


8 

TIME  : 
READY 


0.041  SEC, 


8 

TIME:  0.041  SEC- 
READY 


Of  course,   this  isn*t  what  we  wanted  to  do, 
we  use  parentheses : 

NEW  TRY 
READY 


To  correct  this, 


10  PRINT    (2+2) *3 

2  0  END 

RUN 

TRY     08/12/69  10:56 
12 

TIME:      0.039  SEC, 
READY 

A  good  rule  to  follow  is  that  if  you  aren't  sure  what  the 
computer  will  do,  group  your  calculations  with  parentheses  the  way 
you  want  the  problem  solved. 

A  more  complicated  problem  is  shown  below: 

Suppose  you  wanted  to  add  3+5  and  2+7,  then  take  both  of 
these  answers  and  multiply  them  together,   after  doing  that  you 
want  to  divide  by  the  number  4.     What  expression  would  do  that 
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PARENTHESES  (Continued) 


NEW  PARENTHE 
READY 

10  PRINT   ( (3+5) * (2+7) )/4 

20  END 

RUN 

PARENTHE     08/12/69  10:57 
18 

TIME:      0.040  SEC. 
READY 

The  answer  that  the  computer  will  calculate  is.... 18. 


-  12  - 
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PRINT  -  Numbers 


Suppose  you  just  want  to  print  a  number.     The  PRINT 
statement  can  be  use<?  for  this  purpose. 

NEW  NUMBER 
READY 

10  PRINTS 
20  END 
RUN 

NUMBER     08/12/69  10:58 
8 

TIME:      0.  039  SEC\ 
READY 

The  program  will  print  the number  8  after  you  type  the 
word  RUN. 

Write  a  program  that  will  print  the  number  143. 

NEW  NUMbERI 
READY 

10  PRINT  143 

2  0  END 

RUN 

NUMBERI     08/12/69  10:58 
143 

TIME:      0.  04  0  SEC 
READY 
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OLD 


When  the  computer  asks  NEW  OR  OLD  and  you  are  calling-up  a 
program  that  you  have  already  worked  on  and  saved/  type  the  word 
OLD,   and  push  the  return  key. 

The  computer  will  then  ask  for  the  OLD  FILE  NAME — . 

Type  the  old  program  name  exactly  as  you  did  the  first 
time  you  used  it. 

Some  OLD  programs  that  have  already  been  worked  on  and 
saved  are  given  below   (try  them) : 

BANDIT***  BINGO^'*'^*  ( * **indicates  placed  in 

the  computer  library) 
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CHANGING  THE  PROGRAM  YOU  ARE  WORKING  ON 


At  any  time  you  may  type  NEV7  or  OLD.     This  will  allow  you 
to  start  a  new  program  or  call-up  an  old  program  from  a  computer 
library  called  catalog. 

Once  you  have  a  little  experience,  you  can  take  a  shortcut 
and  call  a  program  directly. 


Two  examples  of  this  are  shown  below: 


OLD  BANDIT***  (return  key) 

The  computer  will  answer  READY  or 

NEW  JOE  (return  key) 

The  computer  will  answer  READY . 


S  KEY  (STOP) 


At  any  time,   even  when  the  teletype  is  printing,  you  may 
stop  the  program  simply  by  pushing  the  letter  S_  key  on  the  key- 
board,  or  typing  the  word  STOP. 
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Certain  other  coiranands  you  will  find  useful  are  given  below: 


•  RUN  Command ' 

When  you  type  RUN,  your  program  will  do  the  job   (be  executed) , 
if  properly  written. 

If  not  written  correctly,  the  computer  will  tell  you  some 
of  the  errors,  and  where  to  look  for  them. 

•LIST  Command' 

When  you  type  LIST,  your  program   (as  written  and  corrected) 
will  be  listed  on  the  teletype. 

•  SAVE  Command ' 

,. If  ,.yo.u,.wish  to.  SAVE  „your.  . program,  for  some  ..later  _time  ,  type 

the  word  SAVE.     The  program  is  placed  in  an  area  in  the 
computer  called  storage,  or  library,  or  catalog. 

•UNSAVE  Command* 

If  you  wish  to  remove  your  program  from  storage   (library  or 
catalog)   and  UNSAVE  it,  type  the  word  UNSAVE.     This  is  almost 
the  same  as  DESTRUCT  in  the  TV  program  "Mission  Impossible." 

•replace  Command* 

If  you  have  already  saved  a  program  and  wish  to  correct  or 
modify  it,  type  the  word  REPLACE  or  REP  after  making  the 
latest  correction. 

•hello  Command* 

By  typing  HELLO  or  HEL  you  can  change  the  user  number  without 
turning  off    (disconnecting)   the  telephone  line. 

•bye  or  GOODBYE  Command • 

When  typing  BYE  or  GOODBYE,  this  is  a  signal  to  the  computer  that 
you  wish  to  discontinue  your  work.     The  computer  will  then  dis- 
connect the  teletype  and  erase  everything  you  have  done.  You 
can  avoid  erasure  by  typing  SAVE  OR  REP  before  typing  BYE. 
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Now  that  you  are  an  Official  BASIC  Programmer,  Level  One, 
you  are  ready  to  start  on  Level  Two. 

If  you  tried  either: 

OLD  BANDIT***  or 

OLD  BINGO***  described  earlier,  you  realize 
that  there  is  more  to  programming  than  just  adding  or  multiplying 
numbers  together. 

First,  these  programs  used  words  and  whole  sentences,  while 
you  have  used  only  numbers. 

Second,  these  programs  skipped  or  jumped  lines  and  asked  you 
questions . 

This  chapter  will  explain  how  some  of  this  was  done,  so  you 
can  do  it  too. 


-17- 
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MORE  ON  PRINT 


A  message  to  be  printed  must  have  quotes   ("  ")   around  it. 
Also^  everything  inside  the  quote  symbols  will  be  printed  as 
typed. 

A  program  to  print  the  message  SNOOPY  SLEEPS  is  given  below: 

NEW  SLEEPS 
READY 

30  PRINT  "SNOOPY  SLEEPS"  Notice  the  quote  symbols 

40  END  before  and  after  the  message 

RUN 

SLEEPS     08/12/69  10:59 

SNOOPY  SLEEPS 

TIME:      0.04  0  SEC. 
READY 

Write  a  program  that  will  print  your  name. 

Write  a  program  that  will  print  the  name  of  your  school. 

You  can  have  more  than  one  PRINT  statement  in  a  program. 

Shown  below  are  two  programs  that  print  a  message  about 

Snoopy.     The  first  program  has  a  semi-colon ,  the  second  program 
doesn  *  t . 

The  semi-colon   (;)   at  the  end  of  line  32  causes  the  next  line 
to  print  right  after  it.     Try  the  program  both  ways,  with  and  with- 
out the  semi-colon  (;). 

NEW  SNOOP-1  NEW  SNOOP-2 

READY  READY 

32  PRINT   "SNOOPY  SLEEPS";  32  PRINT   "SNOOPY  SLEEPS" 

34  PRINT   "UNDER  THE  TREE."  34  PRINT   "UNDER  THE  TREE." 

39  END  39  END 

RUN  RUN 

SNOOP-1     08/12/69     11:02  SNOOP-2     08/12/69  11:03 

SNOOPY  SLEEPS  UNDER  THE  TREE.  SNOOPY  SLEEPS 

UNDER  THE  TREE. 

TIME:      0.049  SEC.  TIME:      0.049  SEC. 

READY  READY 
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MORE  ON  PRINT  (Continued) 


It  is  very  important  to  realize  that  the  semi-colon (; )  causes 
information  to  be  squeezed  or  placed  on  the  same  line. 

The  comma   ( , )   not  shown  on  the  preceding  page  places  inf ormati 
fifteen  spaces  apart  in  5  columns.     The  comma  will  be  explained  in 
greater  detail  later. 


LINE  JUMPING  USING  PRINT 


We  just  learned  that  the  PRINT  statement  permits  the  computer, 
by  means  of  the  teletype,  to  print  or  write  a  message. 

We  can  use  the  PRINT  statement  in  other  ways. 

The  PRINT  statement  with  nothing  after  it   (without  a  message) 
is  an  order  to  make  the  paper  on  the  teletype  move-up  one  line. 

An  example  of  this  program  is  given  below: 


Can  you  write  a  program  to  jump  the  paper  five  lines? 
Don't  look  at  the  answerll!     Try  it  first. 

Most  probably  you  chose  the  following  program  or  something 
like  it  to  make  the  paper  ^ump  five  lines: 

NEW  JUMP-1 
READY 


21  PRINT 

22  PRINT 

23  PRINT 

24  PRINT 

25  PRINT 
30  END 


20  PRINT 
30  END 


Paper  moves  up  one  line 
on  the  command  RUN. 


However,   an  easier  method  is  available  using  the  line-feed  key. 


Here  it  is: 


21  PRINT 


It 


Notice  the  line-feed  key  was  used 
between  the  quote  symbols. 


It 


Try  it. 


3  0  END 
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WHAT  IS  A  VARIABLE? 


A  variable  in  the  BASIC  language  is  any  one  of  the  26  letters 
of  the  alphabet. 

Each  letter   (or  variable)  may  be  given  a  different  number  value 
at  various  points  in  our  program. 

However,  we  try  to  avoid  using  the  letter  'O'    (oh) ,  because 
we  can  easily  mix  this  letter  up  with  rhe  number  zero. 

Some  examples  of  variables  are  given  below: 


ABCRSTWXYZ 


Can  you  name  any  three  other  variables  not  already  shown? 
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SOME  ADDITIONAL  VARIABLES 


If  we  use  up  all  of  the  letters  in  the  alphabet,  the  BASIC 
language  has  additional  variables  we  can  use. 

Every  letter  followed  by  a  number  from  0  to  9  is  also 
considered  a  variable.     This  combination  of  letter  and  number 
is  treated  just  as  if  it  were  a  single  letter. 

Some  examples  are  given  below: 


Al 


A6 


H9 


17 


Z5 


Bl 


K3 


L8 


Is  K25  a  variable? 


NO,  because  the  letter  is 
followed  by  a  2  digit  number. 


Is  N6  a  variable? 


YES. 


Is  03  a  variable? 


YES,  but  we  try  to  avoid  using 
the  letter   '0'    (oh) ,  because 
we  easily  mix  it  up  with  the 
number  zero. 
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THE  LET  STATEMENT  USES  VARIABLES    (or  letters) 


So  far,  we  have  not  assigned  any  number  value  to  a  letter. 

The  LET  statement  permits  you  to  assign  a  value   (some  number) 
to  a  letter  (variable). 

A  program  using  the  LET  statement  is  shown  below: 

NEW  LETl 
READY 


10  LET  X=5 
20  PRINT  X 
30  END 
RUN 

LETl     08/12/69  11:08 


'    X   IS  ASSIGNED  THE  VALUE  OF  5. 
'    THE  5   IS  PRINTED. 
•    THE  PROGRAM  STOPS. 


TIME:      0.041  SEC. 
READY 

We  didn't  put  a  quote   ("   ")   around  X  because  we  want  the  value  of  th€ 
variable  X  printed,  not  the  letter  X.     Another  way  of  saying  this 
is:     we  want  the  number  value  assigned  to  X  printed;   in  this  case 
it  was  5. 

Here  is  another  program: 

NEW  LET 2 
READY 

10  LET  X=5 
20  PRINT  "X=''X 
30  END 
RUN 

LET2     08/12/69  11:09 
X=  5 

TIME:      0.045  SEC. 
READY 

Here  the  program  will  print  out:  X=5 


'    X   IS  ASSIGNED  THE  VALUE  5. 
'    THE  5   IS  PRINTED,   SO  IS  X^. 
'   THE  PROGRAM  STOPS. 
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THE  LET  STATEMENT  USES  VARIABLES    (or  letters) 


(Continued) 


Another  program  using  the  LET  statement  c,nd  a  different 
variable  is  shown  below: 

NEW  LET3 
READY 


10  LET  R3=5 
20  PRINT  R3 
3  0  END 
RUN 

LET3     08/12/69  11:10 


'    R3  IS  ASSIGNED  THE  VALUE  5 
'    THE   5   IS  PRINTED. 
'    THE  PROGRAM  STOPS. 


TIME: 
READY 


0.044  SEC. 


Given  below  is  a  more  complicated  program  that  multiplie 
TWO  letters    (variables)  together: 


NEW  LET  4 
READY 

NEW  LET 4 
READY 

10  LET  A=15 
2  0  LET  B=3 
30  LET  C=A*B 

4  0  PRINT  C 

5  0  END 
RUN 


or 


NEW  LETS 
READY 

10  LET  A=15 
20  LET  B=3 
30  PRINT  A*B 
4  0  END 
RUN 

LETS     08/12/69  11 
45 


LET4     08/12/69  11:11 
45 


TIME  : 
READY 


0.044  SEC. 


TIME  : 
READY 


0.042  SEC. 


The  answer  45  is  printed  by  the  teletype. 
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STRINGS  ($) 


We  c 
sentence 


c&n  Qo,  ,al  ^°        ^nttre  word  -or 

?  DU^'  S  pUtti^^  a  caoj^^f  so-gn  the  letter. 


This  1^       ^ii^P^^  °^  ^  ^^ting 


NEW  STRIlsir? 
READY 


10  LET  A$^"S^p£;h  ^r^SEpS 

20  LET  B5^"U^5  ^  Jh;  TJ^^-  ^ 

30  PRINT  A$;J^^  ,  (  ^^mem^^''o;  !  Semi-colon  keeps  the 

40  END  N..--'^  W^ssagf        the  same  Une.  Close- 


RUN 

STRING     08/1^^^^  J.l'-'-^ 
SNOOPY  Sl^f.EF^^''\^  fHE  ^^^E 

55: 


'^^ssag^^r;  ^^e  same  -Line.  Clc 
^•^J:  tig^        backed  on  the  line, 


TIME:  0.054 
READY 


The  tel^'^N  ^ill  P^^'''^^ 
SNOOPY  ^'^^^^^^i^DEP 

We  goof^etk  We  ^^^""'^  ^^^v^  ^  sP^^^  ^fter  SLEEPS,  so  the  lines 
caitiQ  to"^ 

Lefs         H  ^p-  ty^^  ixn^  1°  Correctly- 

10  LET  A^^"S^°^^\  Sh^-^^^ 
RUN 

STRING  J.l--'"^ 

SNOOPY  SLSEP^  ^^^ti^p  the;  t^^ee. 


TIME:  0.052 
READY 


NOW  the  '^\^pe  P^^^^^^l: 

SNOOPY  a^^D^:P•  T^^^j 


I'm  cer^e""  1,.^^^  ^^the^^  ^ant  o^t  strings  for  a  little 

bet-ore        '^^^or-  ^°  n^j^^  pa^^  °^  b^ing  a  Computer  Programmer 


while  before 
Level  ^wr 


Txv  pri^"'''^^  ^ur  ^^'"^  ^Si.     3  string^         perhaps  write  a  whole 
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ASKING  QUESTIONS    (INPUT  STATEMENT) 


We  can  make  a  program  ask  a  question,  perhaps  even  ask  your 
name  and  age.     Below  is  a  sample  program  that  does  just  this: 

NEW  RED 

10  PRINT   "HI,  MY  NAME   IS  GE-635" 
20  PRINT   "WHAT  IS  YOUR  NAME" ; 
30   INPUT  A? 

40  PRINT   "HOW  OLD  ARE  YOU" 
50   INPUT  A 
60  END 
RUN 

The  computer  will  print : 

HI,   MY  NAME  IS  GE-635 

WHAT  IS  YOUR  NAME?  and  stop. 

Notice  the  semi-colon  causes  the  question  mark   (?)   to  be 
placed  right  after  WHAT  IS  YOUR  NAME,     But,  no  question  mark  was 
in  the  program  I ! !     Where  did  the  question  mark  come  from? 

The  INPUT  statement  causes  a  question  mark   (?)   to  be  printed. 

Notice  we  used  a  variable  A$,  because  we  expect  to  receive  a 
word  message   (or  string)  back  after  the  computer  stops.     The  computer 
stops  after  the  ?  is  printed  on  the  teletype  paper. 

You  answer:    (Your  own  name  or  RED  BARON,   or  whatever) 

RED  BARON    (return  key) 

HOW  OLD  ARE  YOU 

?  and  stop. 

Notice  the  semi-colon  is  missing  on  line  40/  so  the  INPUT 
question  mark   (?)   appears  on  the  next  line,  and  the  teletype  stops. 
Also,  the  variable  this  time  was  A,  because  we  expect  a  number  and 
not  a  word  message. 

You  answer:      (Your  age,  or  99,  or  some  number)   and   (return  key) 


Can  you  write  a  program  using  INPUT  statements? 


Given  below  are  two  more  useful  statements  that  we  will  use  shortly 


STOP 

The  STOP  statement  acts  like  the  END  statement,  by  ending  or 
stopping  the  program. 

STOP  statements  can  be  located  anywhere,  except  the  last  line. 
Examples  of  a  STOP  statement  look  like  this: 

10 

2  0  STOP") 

30  ^  The  program  has  2  STOP  statements. 

37  STOP  ) 

40 

45 

90 

110  END  The  END  statement  is  always  the  last  line. 


GO  TO 

The  GO  TO  statement  permits  the  computer  to  jump  around  in 
a  program  and  not  follow  the  order  of  line  numbers  from  lowest 
to  highest. 

An  example  of  this  is  given  below: 

30  GOTO  47  When  the  computer  reaches  line  30,   it  is  told  to 

41  STOP  go  to  line  47,  jumping  over  the  STOP  on  line  41. 
47 

53  GO  TO  30  At  line  53,   it  is  told  to  go  back  to  line  30, 

99  END  starting  the  process  all  over  again. 

This  is  called  loop. 

Will  this  program  ever  end? 

Flow  can  you  break   (get  out  of)   the  loop? 
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CONGRATULATIONS !!! i !!!!!!!!!! i 1 


You  are  now  an  Official  BASIC  Progranuner,  Level  Two.  Of 
course,  to  be  a  Level  Three  Programmer  requires  more  work  on 
your  part,  and  a  lot  more  math. 

This  chapter  deals  with  something  called  exponents ,  which 
is  nothing  more  than  a  shorthand  way  of  multiplying  the  same 
number  together. 

Also,  this  chapter  works  with  fractions  and  explains  what 
happens  to  them. 

I'm  certain  that  you  would  want  to  know  more  about  loops 
which  make  things  easier  to  program,  and  how  to  display  youj 
answers  in  a  neater  fashion. 


EXPONENTS 


In  arithmetic/  we  have  a  shorthand  way  of  saying  4  times  4. 
It  is  wrircen  4^.     The  little      is  called  an  exponent.     Of  course^ 
the  answer  is  16. 


Also, 


7X7 

is 

72 

or 

49 

8X8 

is 

82 

or 

64 

10X10X10 

is 

103 

or 

1000 

2X2X2X2X2 

is 

2^ 

or 

32 

What  is  3^? 

In  the  BASIC  language,  we  use  the  upward  arrow  (+)  to  denote 
the  exponent. 

Suppose  we  wanted  to  find  the  area  of  a  square  whose  side  was 
6 ,  we  could  then  write  a  program  to  do  this : 

NEW  SQUARE 
READY 

10  PRINT  6+2 

20  END 

RUN 

SQUARE     08/12/69  11:16 
36 

TIME:     0.040  SEC. 
READY 

Since  the  area  of  a  square  is  its  length  times  width,  and  in 
this  case  both  were  six,  we. could  have  written  10  PRINT  6*6  and  have 
gotten  the  same  answer. 


SIGNS     (+  and  -) 


Before  every  number  in  the  BASIC  language  is  a  space  for  the 
sign.     If  it's  positive,  the  sign  is  NOT  printed  and  the  space  is 
left  blank  or  empty.     However,   if  it  is  negative  or  minus 
the  sign  is  put  in  by  the  computer. 

All  numbers  must  be  either  positive   (+)  or  negative   (-)  in 
BASIC.     Zero,  of  course,  doesn't  have  a  sign,  but  it  does  have  the 
space . 


FRACTIONS  AND  SCIENTIFIC  NOTATION 


Fractions 

The  computer  understands  the  symbol   (/)  meaning  division,  as 
a  fraction.     However,  all  answers  to  problems  are  given  as  either: 

(a)  Integers  0 , 1 , 2 , 3 , -5 , etc. 

(b)  Decimals  0.1,   .325,   -.4, etc.     or  as  an 

(c)  Exponent  1.4E+9    (meaning  1400000000)  or 

1.2E-3   (meaning  .0012) 


Scientific  Notation 

Numbers  larger  than  8  digits  are  converted  into  the  E  notation, 
as  well  as  decimals  smaller  than  one-tenth   (0.1).     Some  examples  of 
this  are  given  below: 

(a)  The  number  45,176,325,416  has  11  digits.     The  computer 
will  then  change  the  number  to:  4.51763EH-10 

(b)  The  number  39,165,216  will  be  printed  as:  39165216 

(c)  The  number  0.34561273215  will  be  printed  as:  3.45612E-1 

From  the  above,   it  can  easily  be  shown  that  Eh-2  means   'times  100' 
or  10     and  E-i-3  ^eans   'times  1000'   or  10   .     E-2  means   'divide  by  100' 
or  divide  by  10  . 

This  topic  is  usually  called  SCIENTIFIC  NOTATION  and  additional 
questions  about  it  should  be  asked  of  your  teacher.     It  was  presented 
here  so  that  in  the  event  you  did  get  a  niomber  with  E,  you  would 
be  somewhat  familiar  with  this  strange  type  of  answer  and  could 
find  out  more  about  it  at  that  time. 
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FOR. . .NEXT  LOOP 


Loops  make  counting  easier ,   as  well  as  S(  me  other  types  of 
problems. 

Suppose  we  wanted  to  print  a  series  of  numbers  1,2,3,4,5,  etc. 
to  100.      (Usually,  this  is  written  as  1,2,3,..  100). 

We  could  type  out  each  number  after  a  print  statement  something 
like  this: 

5  PRINT  1 
10  PRINT  2 
15  PRINT  3 
etc. 

This  is  very  time  consuming,  but  it  would  worki 

There  is  a  shorter  way  of  doing  this  using  a  loop.     In  this 
case,   the  loop  is  called  a  FOR... NEXT  loop  because  we  use  the  words 
FOR  and  NEXT. 

For  every  FOR  there  must  be  £>.  NEXT  in  the  program. 

Here's  how  to  use  the  FOR. ..NEXT  statements: 

Choose  any  letter   (a  dummy  variable) .     I  like  the  letter  J. 
You  can  choose  any  letter  you  want. 

NEW  LOOP 
READY 

10  FOR  J=l  TO  100 

2  0  PRINT  J; 

3  0  NEXT  J 
40  END 
RUN 


LOOP     08/12/69  11:17 


1 

2  3 

4 

5 

6  7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

8  8 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

TIME:      0.257  SEC. 
READY 

I  put  the  semi-colom   (;)   after  J  in  line  20  because  I  wanted 
the  numbers  close-packed.     A  comma   (/)   would  put  5  numbers  on  a  line. 
Nothing  after  J  would  put  the  numbers  underneath  each  other. 
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FOR... NEXT  LOOP    (Continued J 


What  hiippons  here  is  that  the  J  takes  the  value  of  1,  is 
ptijued  l\/    Lin-^  20,  and  sent  back  to  line  10.     The  word  NEXT  acts 
like   'GOTO  line  10*. 

flowever,  we  aLready  used  1/   so  it  takes  the  next  number  2, 
prints   2  and  as  sent  back  to  line  10  by  the  NEXT.     This  continues, 
round  and  round    (loop),   until  all  the  J*s  are  used  up. 

When   -^ll  cho  J's  are  used  up,  and  we  come  to  the  NEXT,  there 
is  no  NKXT  J  s'y  the  program  goes  onto  line  40  which  in  this  case 
IS   the  end. 


S'j:>pos:'    I   Wc:inted  to  write  a  program  that  would  print  out  all 
of  the  vj^'Oie  nuruoers  between  8  and  17.     It  *  s  a  simple  matter  using 
a  FOR..-VCXT   loop   zo  do  this! 

MEV^   LOOP  -  I 
READY 

iO   FOR  J- 8   TO  i 
2  0   f'RlNT  J, 
30   NSXT  J 
4  0  i::ND 
RUN 

r,OOP~l      0;-V  12/6  9  ll:l9 

R  9  10  11  12 

i  14  15  16  17 

TIME:      0.09  0  SEC, 
READY 

In   t.li)  r.  case,   the  numbers  will  be  printed  5  to  a  line,   15  spaces 
apairt  Hrj..  re  .2  comma    (,)   after  J  on  line  20  was  used. 

Si'iow.    La  low  aro  a  number  of  other  examples  that  can  be  done  simply 
by     r '  t  y  p  i  ag    line   1 0  . 

(a)  m  FOR  J=^0   TO  4 

(b)  1"  FOil  TO  5 

(c)  10  FOR  J=-iO  TO  n 
id)  10  FOR  J^-  100   TO  0 

(e)    10   FOR  J=iOO  TO  0  ST  -1 


'   33  - 


3!) 


FOR... NEXT  LOOP  AND  STEP 


By  retyping   (e)   in  program  LqOP"^  pjSTing  v^e  get: 

LIST 

LOOP-1     08/12/69  11:21 

10  FOR  J=100  TO  0  STEP  -1 
20  PRINT  J, 
30  NEXT  J 
4  0  END 
READY 


(Line  2  0  is  ^°  °^osely  pack  the  numbers) 


2  0  PRINT  J; 
RUN 


LOOP- 

1 

08/12/69 

11 

:22 

100 

99 

98 

97 

96 

95 

94 

82 

81 

80 

79 

78 

77 

76 

64 

63 

62 

61 

60 

59 

58 

46 

45 

44 

43 

42 

41 

40 

28 

27 

26 

25 

24 

23 

22 

10 

9 

8  7 

6 

5 

4  3 

2 

TIME: 

0 

.  259 

SEC. 

READY 

ll  54  53 

01  K  17 


88 

87 

86 

85 

84 

8 

70 

69 

68 

67 

66 

65 

52 

51 

50 

49 

48 

47 

34 

33 

32 

31 

30 

29 

16 

15 

14 

13 

12 

11 

The  last  example  uses  STE?  ^ll^^h  i^^^  ^^^PUter  counts  i 

positive  direction  on  the  numb^^  ^^"^z''* 


in  a 


-I  h 


H — ^■ 


-4       -3       -2       -1  0 


4—4- 


and  we  wanted  to  count  backwards/  .^0^^^''^^^^  the  program  to  do 
this  with  STEP  -1. 
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FOR... NEXT  LOOP  AND  STEP  (Continued) 


We  could  write  a  number  of  things  such  as  times  tables  and, 
odd  and  even  numbers  using  STEP. 

Below  is  a  program  that  writes  the  5  times  table: 

NEW  FIVEX 
READY 

10  FOR  X=5  TO  100  STEP  5 

20  PRINT  X; 

30  NEXT  X 

40  END 

RUN 

FIVEX     08/12/69  11:24 

5  10  15  20  25  30  35  40  45  50  55  60  65  70  75  80  85  90 
95  100 

TIME:      0.085  SEC. 
READY 

Retyping  line  20  with  a  comma   (,)   after  X  spreads  the  numbers 
into  five  columns. 

20  PRINT  X, 
RUN 

FIVEX     08/12/69  11:24 

5  10  15 

30  35  40 

55  60  65 

80  85  90 

TIME:      0.141  SEC. 
READY 


Write  a  program  that  prints  the    (a)    3  times  table,    (b)   odd  numbers ; 
and   (c)   even  numbers. 

STEPS  may  be  variables,  decimals,   fractions,   integers,  complicated 
formulas  and  negative  or  positive  numbers. 


20 
45 
70 
95 


2 
5 
7 
1 
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MORE  ON     FOR. . .NEXT 


ERIC 


Of  course,  we  could  have  more  than  one  FOR. . .NEXT  loop  in  a 
program,  but  they  cannot  cross  each  other. 


INCORRECT 


CORRECT 


FOR  J 
jp-FOR  R 
M-^NEXT  J 
UnNEXT  R 

We  could  have  many  FOR. 
inside  each  other: 


FOR  J 
FOR  R 
NEXT  R 
NEXT  J 


.NEXT  loops,  these  being  nested 


CORRECT 


FOR  J 
FOR  K 
FOR  R 
NEXT  R 
FOR  T 
NEXT  T 
NEXT  K 
NEXT  J 
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PREPARING  A  TABLE  OF  VALUES 


Often  it  is  necessary  to  prepare  a  table  of  values,  so  that 
you  can  see  the  relationship  between  variables  in  an  equation.  In 
the  case  below,  the  table  of  values  can  be  used  to  graph  the  line 
y=3X+5. 

NEW  TABLE 
READY 

10  PRINT   "TABLE  OF  VALUES  FOR 
20  PRINT  "Y=3X+5" 
30  PRINT 

40  PRINT   "X" , "Y" 
50  PRINT 

60  FOR  X=-10  TO  10 

70  LET  Y= (3*X)+5 

80  PRINT  X,Y 

90  NEXT  X 

10  0  END 

RUN 

TABLE     08/12/69  11:30 
TABLE  OF  VALUES  FOR  Y=  3X4-5 
X  Y 


-10 

-25 

-9 

-22 

-8 

-19 

-7 

-16 

-6 

-13 

-5 

-10 

-4 

-7 

-3 

-4 

-2 

-1 

-1 

2 

0 

5 

1 

8 

2 

11 

3 

14 

4 

17 

5 

20 

6 

23 

7 

26 

8 

29 

9 

32 

10 

35 

TIME:      0.243  SEC. 
READY 
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PREPARING  A  TABLE  OF  VALUES  (Continued) 


Write  a  program  to  print  a  table  of  values  from  -5  to  5  of  Y=4x-2 


Y=22i  +  4. 


Write  a  program  to  print  a  table  of  values  from  -5  to  5  of 

3 

HINT:     LET  Y=( ( (2*X)/3)+4) 
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THE  LINE  ^T\6 
Each 

printed  ^I'a^i  ^\Hh-  ^^-'^'^io;,  ^ 

suppose  ^f^^^      ^SJogS^f.seven  (^^^to        panted  in  the  13th 
i  on  tne  ^  A  pJ^""^^  ''^  t)^^^  wi-L-^     °  this  si  shown  below: 


Jach  lirifiK^  ^^i^???^  e^^^^-^^  7$  coaces  niombered  from 


space 

NEW  TAB 
READY 

i2)  , 

10  PRINT  ']:^Bi^  '  "'.^,« 
20  END  ' 

TAB  08/12/69 

1 


04^ 


TIME-  :  0  .04'' 
READY 


This  pro^^Jj)  k<ir^5^;i^^^4-Mnc,  ooii^^^^^^o  snace  -"'-^  (remember 
0  is  the  efrs^,.  anj    _^th,  Jjon^/  ft^.^^Pac  ^.^^^^ 

Since  we  viged  j,^     .     plti^  -intiS   i  '  or  space  was  taken 

before  th^  nxjfi  x 


NEW  TABl 
READY 


-I  2)  »  V 

10  PRINT  1>^B(>  *  > 
20  END 


RUN 


TABl     08/12/6^  ^^^33 


7 

TIME:      0.045  0  " 
READY 

This  pro^J?"^  ^.3.1  PSe^_„^^e  7  in  ^PJ^e  ^  e  space  13  has 

an  invisible   ^      hj^^^.  ^^^t^g  ^^^^^      ""^v^d  from  around  7. 

You,  of  ^f^^^    could  have  o-ABs  o^^  each  separated 

by  a  semi-^col^^  ^M' 
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THE  LINE  AND  TAB  (Continued) 


Instead  of  TAB,  we  might  find  it  useful  to  use  a  comma  (/) 
after  a  PRINT.     The  comma  brings  the  line  pointer  to  the  next  15th 
space  from  where  it  is.     Commas  cause  the  line  pointer  to  skip 
across  from  0  -  14,  15  -  29,  30  to  44,  45  to  59,  and  60  to  74. 
The  pointer  points  to  either  0,  15,   30,  45,  or  60  and  returns  to 
0  on  the  next  line. 


THE  LINE  and  COMMA 

The  program  shown  below  causes  the  number  "7"  to  print  at  the 
space  numbered  44.      (This,  of  course,   is  the  45th  space  on  the  line 
0  -  74.) 


NEW  COMMA 
READY 


10  PRINT  ,,,"7" 

20  END 

RUN 

COMMA     08/12/69  11:33 


TIME:  0,056  SEC. 
READY 
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CHAPTER  FOUR 


You're  really  getting  up  there!! 

Now  that  you  have  become  a  Level  Three  BASIC  Programmer,  you 
probably  want  to  know  more  about  BASIC, 

This  chapter  deals  with  the  mathematical  concepts  of  in- 
equalities and  conditional  statements  called  IF... THEN  and  ON... 
GO  TO  and  GOSUB. RETURN. 

In  addition,   a  method  for  putting  in  large  -  amounts  of  infor- 
mation either  numbers  or  strings,   is  explained  by  the  use  of 
READ. . . DATA. 


INEQUALITIES 

In  the  BASIC  language  /  as  in  mathematics,  we  have  a  great  deal 
of  use  for  inequalities.     Shown  below  are  the  inequalities  used  in 
BASIC: 

A<B  means  A  is  less  than  B 

A>B  means  A  is  more  than  B 

A=B  means  A  has  the  value  of  B 

AOB  means  A  does  not  have  the  value  of  B 

or 
A><B 


A<=B  means  A  is  less  than  or  has  the  value  of  B 

or 
A=<B 

A>=B  means  A  is  more  than  or  has  the  value  of  B 

or 
A=>B 
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IF, • .THEN 


The  IF... THEN  statement  is  a  method  for  making  a  decision  or 
branching.     in  English,  it  is  called  a  conditional  statement  "if 
something  happens,  then  something  will  be  sure  to  follow." 

Some  examples  using  IF... THEN  statements  are  shown  below: 
(The  number  after  THEN  refers  to  a  line  number  in  the  program) 

NEW  RAIN 
READY 

10  PRINT   "IS   IT  RAINING  OUTSIDE"; 
20   INPUT  A$ 

30   IF  A$="YES"   THEN  100 
40   IF  A$="NO"  THEN  200 
50  GO  TO  10 

100  PRINT   "READ  A  BOOK  OR  PLAY  CHECKERS." 
110  STOP 

200  PRINT   "PLAY  BALL i ! I        GOOD  WEATHER." 

999  END 

RUN 

The  program  asks  the  question  IS  IT  RAINING  OUTSIDE? 

If  you  answer  YES,  then  you  are  sent  to  line  100  which  gives 
indoor  activities  to  do.     If  you  answer  NO,  then  you  are  told  to 
play  ball  because  of  good  weather.     If  you  type  in  some  other  word 
like   'DON'T  KNOW*  neither  the  IF  on  line  30  or  line  40  is  done 
(executed)   and  you  drop  through  to  line  50  which  sends  you  back 
to  line  10  and  asks  the  question  all  over  again.     The  stop  is ^ 
placed  on  line  110  so  that  you  won't  print  the  statement  on  line 
200.     There  is  no  stop  on  any  line  after  200  since  the  next  line 
IS  END. 

RAIN     08/12/69  11:38 

IS   IT   RAINING  OUTSIDE?  YES 
READ  A  BOOK  OR  PLAY  CHECKERS. 

TIME:      0.076  SEC. 
READY 

RUN 

RAIN     08/12/69  11:38 

IS   IT   RAINING  OUTSIDE?  NO 
PLAY   BALI.iii        GOOD  WEATHER. 

TIME:  SEC. 
READY 
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IF. . .THEN  (Continued) 


Another  sample  is  given  below: 

NEW  TEMP 
READY 

10  PRINT  "WHAT  IS  THE  TEMPERATURE  OUTSIDE"; 

2  0   INPUT  A 

30   IF  A<32  THEN  300 

40  IF  A=*32  THEN  200 

50  IF  A>32  THEN  100 

100  PRINT   "THE  TEMPERATURE  IS  NOT  YET  FREEZING,   GET  YOUR  ANTIFREEZE  NOW. 

101  STOP 

200  PRINT   "IT'S  FREEZING  NOW,   ALMOST  TOO  LATE  FOR  ANTIFREEZE." 
2  01  STOP 

300  PRINT   "IF  YOU  DIDN'T  GET  ANTIFREEZE  YOUR  CAR  IS  ZAPPED!!!!" 

999  END 

RUN 

This  program  shows  the  use  of  inequalities  on  line  30,  40  and 
50.     We  really  didn't  need  line  50  since  no  other  case  could 
exist  if  line  30  or  line  40  weren't  done   (executed).     The  THEN 
statements  were  so  constructed  that  if  line  50  wasn't  there,  the 
program  would  still  work  for  temperature  above  32  since  it  would 
print  the  correct  statement  when  it  reached  line  100,  and  then 
stop . 

TEMP     08/12/69  11:42 

WHAT  IS  THE  TEMPERATURE  OUTSIDE?  25 

IF  YOU  DIDN'T  GET  ANTIFREEZE  YOUR  CAR  IS  ZAPPED!!!! 

TIME:      0.092  SEC. 
READY 

RUN 

TEMP     08/12/69  11:42 

WHAT   IS  THE  TEMPERATURE  OUTSIDE?  32 

IT'S  FREEZING  NOW,   ALMOST  TOO  LATE  FOR  ANTIFREEZE. 

TIME:'    '  0.  094  SEC. 
READY 

RUN 

TEMP     0  8/12/69     11:4  3 

WHAT  IS   THE  TEMPERATURE  OUTSIDE?  101 

THE  TEMPERATURE   IS  NOT  YET  FREEZING,   GET  YOUR  ANTIFREEZE  NOW. 

TIME:      0.098  SEC. 
READY 


^0 


ON. . .GO  TO 


Is  similiar  to  the  IF... THEN  statement,  but  allows  a  many  branched 
switch. 

ON  X  GOTO  100,200,300,35  0  means: 

If  X  =  1  GOTO  100 
If  X  =  2  GOTO  200 
If  X  =  3  GOTO  300 
If  X  =  4  GOTO  350 


The  X  may  be  a  complicated  formula 
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GO SUB  and  RETURN 


As  you  become  more  experienced  in  BASIC  your  programs  will 
probably  become  longer  and  T'Ctq  complicated. 

Often  you  may  have  to  do  a  certain  routine  a  number  of  times. 
Suppose  you  would  have  to  compute  a  complicated  set  of  instructions 
a  number  of  times  in  the  same  program.     Instead  of  retyping  out  the 
set  of  instructions,  you  could  place  them  at  a  suitable  location, 
say  line  850,   and  refer  to  them  whenever  you  needed  this  set  of 
procedures.     This  is  accomplished  by  using  the  GOSUB  and  RETURN. 

15  GOSUB  850  sends  your  program  to  line  850  and  does  the 
routine, in  this  case  2  lines, and  then  returns  your  program  one  line 
later  when  the  word  RETURN  at  the  end  of  the  routine  is  reached. 

14  FOR  Xsl  to  10 

15  GOSUB  850 

16  NEXT  X 


8  40  STOP 

850  LET  A  =    (3.14)    *  (Rt2) 
860   PRINT  A,    R,    R  2 
8  70  RETURN 
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Often  you  prepare  a  program /  but  do  not  know  the  exact 
information  you  are  working  with.     This  information  is  called 
DATA.     It  could  be  sales  of  teckets  to  the  school  basketball 
game,  or  election  results  or  test  grades.     Anything  that  can 
be  represented  as  either  a  number  or  word  can     be  considered 


DATA  can  be  placed  anywhere  in  your  program,  but  is 
usually  at  the  beginning  or  the  end.     It  is  suggested  that  DATA 
be  placed,  depending  upon  the  size  of  your  program,  at  lines  80 
or  800  or  8000,  etc. 

READ  statements  use  letters    (variables)   and  can  also  be 
placed  anywhere  in  your  program.     If  you  do  not  have  enough 
DATA,  or  if  you  want  the  program  to  continue  until  all  of  the 
DATA  is  used  up,   the  computer  will  print  OUT  OF  DATA  ON  LINE 
 ,   and  end  the  program.     This  is  a  signal  to  you. 


A  program  using  READ  and  DATA  is  given  below: 

NEW  LUNCHRM 
READY 

10   PRINT  "SALES  OF  MILK  AND  SODA" 

20  PRINT, "SEPT.  1969" 

30  PRINT 

4  0   READ  A$,A 

50  PRINT  A$,A 

60  GOTO  40 

80   DATA  MONDAY,    TUESDAY,   WEDNESDAY,    THURSDAY,  FRIDAY 
90  DATA  32.40,23,5,76.45,27.40 
99  END 
RUN 

LUNCHRM     08/12/69  11:46 
SALES  OF  MILK  AND  SODA 


DATA. 


SEPT.  1969 


MONDAY 


32.  4 

23 


76.  45 
2  7.4 


TIME: 
READY 


0.122  SEC. 
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READ  and  DATA,  RESTORE 


If  the  program  has  the  wojrd  ^^^^^ '  -h^^V^^  DATA  can  again 
be  used  from  the  beginning.     RBST'^g  §  the  string 

DATA  and  RESTORE*  only  restores  ^\^^^^  "ATa. 

In  the  program  LUNCHRM,  th^  statement  Was  not  used. 


If  the  words  or  strings  are  Jvim  t^v^jfi^'^roun^  is  sometimes 

necessary  to  put  a  pair  of  quote  ^c^^t0     t  na  particular 
piece  of  data.     Examples  of  coinpJ-^    \^  ^  shown  below : 

800  DATA  "SMITH,   MR.   JOHN",    "StiTT^!<  \^  ^fvl 

810  DATA  "SMITH,   DR.    &  MRS.   THO^^A^  '  fl^^-ASANT  AVE." 


CHAPTER  FIVE 


Congratulations  again! 1 ! 


We  are  certainly  pleased  that  you  have  come  this  far  in 
BASIC. 


This  chapter  will  discuss  in  greater  detail  exponents 
that  are  fractions    (or  decimals) ,  something  called  functions 
and  procedure  of  making  your  own  functions. 

Some  special  commands  not  given  before  will  be  des- 
cribed, plus  the  REMark  statement.     A  whole  group  of  things 
called  the  EDIT  package  will  be  explained,   and  of  course, 
more  math. 
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J  =  J-f-l,etc. 


In  arithme'wic  or  algebra  the  statement  J  equals  J  -f  1  is 
impossible!     but  in  BASIC  the  equals  sign  does  not  have  exactly 
the  same  meaning.     Equals  m  BASIC  means  whatever  is  on  the  left 
side  of  the  equals  sign  takes  on  the  value  of  the  right  side. 

A  program  using  the  idea  of  J  =  J       1  is  shown  below: 

NEW  COUNTING 
READY 

10   LET  J=JH-1 

20  PRINT  J; 

30   IF  J=   100  THEN  50 

^0  GO  TO  10 


:nd 


COUNTING     08/12/69  11:47 


1 

2  3 

4 

5 

6  7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

2\ 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

4  0 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

5  8 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

9  T 

94 

95 

96 

97 

98 

99 

100 

TIME:      0.261  SEC. 
READY 

Line  10  says  LET  J  be  replaced  by  Jn-l .     Since  the  first  time 
through  the  J  in  J+1  was  not  assigned  a  value  the  computer  said  to 
itself  that  it  was  zero.     Therefore  line  10  LET  J-Jh-1  gave  the  J 
on  the  left  of  the  equals  sign  the  value  of  On-l. 

Line  20  prints  J  or  in  this  case  the  number  1,   close  packed 
because  of  the  semi-colon (;) . 

Line  30  IS  checking  statement  if  J  is  100  then  the  program  would 
go  to  line  50  or  END.     The  J  was  not  100. 

Line  40  sends  the  program  to  line  10  with  J  now  equal  to  1  not 
zero  as  before. 

Line,.  10  says  J=J  +  1  but  now  the  J  on  the  right  is  a  1,   so  In-l 
IS  2 .     c7  on  the  left  now  has  the  value  of  2. 


Line 


!0  orints  J 


in  this  case  the  number  2 , 


30  checks  if  J  is  lOOi     J  is  2  not  100, 
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J=J+1  (Continued) 

Line  40  sends  program    back  to  10. 

Line  10  now  says  Let  J=J+1,  but  the  J  on  the  right  side 
is  a  2.     Therefore  2+1  is  3. 

Line  20  prints  J... in  this  case  the  number  3. 

Line  30  checks  if  J  is  100.     J  is  3  not  100. 

Line  40  sends  program  back  to  10. 


This  continues  until  J  =  100  and  the  check  on  line  30  sends 
the  computer  to  line  5  0  or  END. 
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MORE  ON  J=J+1 


An  excellent  use  for  the  idea  of  (concept)  J=J+1  is  problem 
solving.  Below  are  a  number  of  problems  and  solutions  using  the 
idea  of  J=J+1  in  BASIC. 

PROBLEM  1 

The  base  of  an  isosceles  triangle  is  4  feet  less  than  the 
sum  of  the  two  equal  sides.     The  perimeter  of  the  triangle  is 
76  feet.     Find  the  length  of  each  side.     (x  is  a  whole  number.) 

NEW 

NEW  FILE  NAME — NEW  PBLMl 
READY 

10   LET  X=X+1 
20  LET  P=X+X+2*X-4 
30   IF  P=76   THEN  50 
4  0  GO  TO  10 
50  PRINT  X,X,2*X-4 
60  END 
RUN 

NEW     08/12/69  11:49 

20  20  36 

TIME:      0.064  SEC. 
READY 

PROBLEM  2 

The  length  of  a  yard  exceeds  twice  its  width  by  25  feet, 
and  950  feet  of  fencing  are  needed  to  enclose  it.     Find  its 
dimensions.  is  a  whole  number.) 

NEW  PBLM2 
READY 

10   LET  W=W-i-l 
20   LET  L=2*W+25 
30  LET  P=2*L+2*W 
40   IE   P=950   THEN  60 
50  GO  TO  10 
60    PRINT  W,L,P 
7  0  END 
RUN 

PBLM2      08/12/69  11:52 

iSO  325  950 

TIME:      0.07  4   SEC.  - 
READY 

^8 


2X-4 


L=2W+25 


W 
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MORE  ON  J=J-}-l  (Continued) 


PROBLEM  3 

John  and  Otto  picked  33  quarts  of  cherries.  The  number 
picked  by  John  exceeded  half  the  number  picked  by  Otto  by  3. 
How  many  did  each  pick? 

NEW  PBLM3 
READY 

10  LET  0=0+1 

20  LET  J=  (.5*0)H-3 

30   LET  N=J+0 

4  0   IF  N=3  3  THEN   6  0 

50  GO  TO  10 

60  PRINT   "JOHN=    "J,"OTTO=   "0,  "TOGETHER= 

70  END 

RUN 

PBLM3     08/12/69  11:54 

JOHN=   13  OTTO=  2  0  TOGETHER=   3  3 

TIME :    0. 071  SEC. 
READY 

.\n  exit  check   should  be  inserted  in  programs  PBLMl,  PBLM2 
and  PBLM3  in  the  event  that  the  ansv;er  is  not  a  whole  number, 
a  sample  exit  check  for  PBLM3  is  shown  below : 

45   IF  N^-33  THEN  65 
6  4  STOP 

6  5  PRINT   "N>33,    ANSWER  NOT  A  V7H0LE  NUMBER'^ 

Write  an  exit  check  for  PBLMl  and  PBLM2 . 


RADIAN  MEASURE,   ANGLES  and  7r(Pi) 


Of  course  you  are  aware  that  you  could  measure  angles  with 
something  called  a  protractor. 

The  BASIC  language  does  not  use  angles,  but  does  use 
something  called  a  radian.     Before  we  discuss  this  function 
further  you  have  been  introduced  to  the  symbol  Pi   (tt)  back 
in  6th/   7th/   and  8th  grades. 

Do  you  remember  what  tt  stood  for? 

Sure  you  do:     it  was  almost  equal  to  3  1/7     or  22/7  or 

3.14. 

The  teletype  does  not  have  the  symbol  tt  on  the  keyboard 
so  we  are  going  to  have  to  use  a  deci.mal.     We  use  the  following 
decimal  for  greater  accuracy:  3.14159265 

7T  =  3 .  14159265 ...  for  some  purposes  v\.   need  tt 

to  more  decimal  places 

The  area  of  a  circle  is  tt  -".imes  the  radius  times  the 
radius  or: 

A  =  7tr2 
In  BASIC  this  would  be: 

LET  A  =  (3.1415y265)*R'^2 
The  circxr^f erence  of  a  circle  was  either: 

C  =  vD  or  C  =  27TR 

In  BASIC  you  would  ^^rite: 

LET  C  =    (3.14159265) *D 
or 

LET       =   2*  (3.14159265)  *R 
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RADIAN  MEASURE,  ANGLES  and  F  (Continued) 


A  circle,  of  course  has  360°,   so  if  we  start  at  point  1 
and  go  all  around  the  circle  and  return  to  point  1,  we  have 
then  made  a  complete  tour  around  the  circle. 


We  could  say  we  went  360°  or  better  still  2Tr.     Since  2Tr 
would  seem  to  mean  360*^  or  the  circumference  of  the  circle. 

Prom  this  we  could  easily  form  the  following  table : 


27T  = 

360° 

7T  = 

180° 

7T/2  = 

90  = 

7T/4  = 

45° 

rr/e  = 

30° 

n/18  = 

10° 

I'm  certain  you  could  figure  tt/3  is  60°  or  4Tr  is  720°. 

We  now  have  a  new  meaning  for  n . 

n  =  180^  =  3.1415  9265  (radia,n) 

By  careful  calculation  we  can  find  that  a  specific  angle 
smaller  than  6  0° has  the  value  1.     This  is  called  a  radian. 

One  radian     >  57° 

^.  58° 

57°  <^    (one  radian)    <  58° 

All  of  the  angles  in  the  BASIC  language  are  written  in 
radian  measure.     Therefore  it  is  necessary  to  convert  radians 
to  angles  and  angles  to  radians. 

We  use  the  following  proportion  to  do  these  calculations 

180^  =   3, 14159265 
angle  X 

[r  '.--^  have  an  anqle  of  90°  and  want  to  find  its  value  in 
tadiaiij,    .;e  v;ould  do  the  following: 
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RADIAN  MEASURE,  ANGLES  AND    Tr  (Continued) 


180°     =  3.14159265 
90° 


or 

180°*X  =  3.14159265  *  90° 


or 

X     =  3.14159265  X  90° 
180° 

A  BASIC  program  that  does  this   (FOR     57.296°)  is: 

NEW  X 
READY 

10  PRINT  "WHAT  ANGLE  DO  YOU  WISH  CONVERTED  (LEAVE  OFF  DEGREE  MARKS) 
20   INPUT  A 

30  LET  X=.(3. 14159''   265)  *A/180 
40   PRINT  X 
50  END 
RUN 

X       08/12/69  17:05 

WHAT  ANGLE  DO  YOU  WISH  CONVERTED    (LEAVE  OFF  DEGREE  MARKS) 
?  57.296 
1. 

TIME:     0.079  SEC. 
READY 

We  could  make  the  answer  a  little  fancier  by  replacing  line 
40  with: 

40  PRINT  A"     DEGREES  =   "X"  RADIANS." 
RUN 

X     08/12/69  17:09 

WHAT  ANGLE  DO  YOU  WISH  CONVERTED    (LEAVE  OFF  DEGREE  MARKS) 
?  57.296 
57.29  6  degrees       1.  RADIANS 

TIME:   0.092  SEC. 
HEADY 


SINE,   COSINE  and  TANGENT 


In  9th  year  math  or  algebra  we  use  functions  called  Sine, 
Cosine  and  Tangent.     We  must  know  how  to  convert  angles  to 
radians  to  use  the  computer  in  these  problems. 


SIN  (X) 

COS    (X)  All  refer  to  X  as  radian 

measure. 

TAN  (X) 

The  sine  of  45°  is  written: 

Sine  or     Sine    ,3,  14159265,     or     Sine  (.785381625) 

4  ^  4  ^ 

You  can  construct  your  own  Sine,  Cosine  and  Tangent  tables 
using  the  following  program: 

NEW  SOHCAHTOA 
READY 

SOHCAHTO     08/12/69  17:13 

5  PRINT   "ANGLE" /'RADIAN,  "SINE/^COSINE"  ,  "TANGENT" 

10  FOR  A=0  TO  90  STEP  10 

20  LET  X=  13.  14159265) *A/180 

30  PRINT  A,X,SIN (X)  ,COS  (X)  ,TAN (X) 

4  0  NEXT  A 

99  END 

READY 


RUN 

SOHCAHTO     08/12/69  17:13 


ANGLE 

RADIAN 

SINE 

COSINE 

TANGENT 

0 

0 

0 

1 

0 

10 

0. 174533 

0. 173648 

0.984808 

0. 176327 

20 

0.349066 

0. 34202 

0.939693 

0. 36397 

30 

0. 523599 

0.5 

0.866025 

0.57735 

40 

0. 698132 

0.642788 

0.766044 

0.8391 

50 

0.872665 

0.766044 

0.642788 

1.19175 

60 

1. 0472 

0.866025 

0.5 

1. 73205 

70 

1. 22173 

0.939693 

0. 34202 

2. 74748 

80 

1.39626 

0.984808 

0. 173648 

5. 67128 

90 

1. 5708 

1. 

1.58933  E- 

8   6.29198  E+7 

TIME  : 

0.360  SEC. 

READY 
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REMARK  also    (APOSTROPHE   ' ) 


The  REMark  or  REM  statement  has  no  effect  upon  the  running 
of  the  program.  It  appears  only  on  a  listing  as  an  aid  to  the 
programmer. 

On  long  or  complicated  programs,  the  REM  statement  is  used 
to  explain  to  the  programmer  what  is  happening . 

An  apostrophe    {*)   does  the  same  thing  as  a  REM  statement 
and  is  quicker  to  type . 

An  incomplete  program  using  the  REM  and   (')   is  shown  below 


10  LET  X= (A*3. 14)/180  '  CONVERTS  DEGREES  TO  RADIANS 

20   REM  PRINTS  OUT  A  TABLE  OF  SINES 

30  FOR  A  =1   to  90  '  START  OF  LOOP   IN  A 

40  PRINT  A,    SIN(X)  '  OUTPUT  A,  SIN(X) 


ETC. 


(Special  Note:  REM ' s  can  only  be  used  immediately  after  a  line 
number.     In  all  other  places,  use  the  apostrophe  (*).) 


-  58  - 


FUNCTIONS 


ERIC 


The  BASIC  language  provides  many  other  useful  tools  called 
functions.  As  you  learn  more  Mathematics  it  will  become  easier 
for  you  to  understand  the  use  of  these  functions. 

(The  definitions  below  are  not  strictly  defined  nor  listed 
completely-see  full  edition  of  BASIC  Manual  for  a  complete 
description. ) 


FUNCTIONS 


INTERPRETATION 


SIN (X) 
COS (X) 
TAN (X) 
COT (X) 
ATN (X) 
EXP  (X) 
LOG  (X) 
ABS  (X) 
SQR(X) 

INT (X) 


Find  the  sine  of  X 
Find  the  cosine  of 


X  interpreted  as  a 
number,  or  as  an 
angle  measured  in 
radians 


Find  the  tangent  of  X 
Find  the  cotangent  of  X 
Find  the  arctangent  of  X 
Find  e 

Find  the  natural  logarithm  of  X   (In  x) 
Find  the  absolute  value  of  x;  |x| 
Find  the  square  root  of  x    (  Vx^or 


1/2. 
X  ) 


Gives  the  greatest  integer  not  greater  than  X 


INT  (1.38)=1 
INT  (12.99)=12 
INT    (^2.65)  — 3 


RND 
SGN(X) 


Produces 
Produces 


random  numbers 
1,0  or  -1 
SGN  (6.25)^1 
SGN  (0)=0 
SGN  (-3.15)=-1 


NUM 


Counts  the  number  of  numbers  after  a  MAT  input 
(LET  N  =  NUM) 


TIM 
CLK$ 
DAT$ 
USR$ 
VAL (S$) 
LEN  (S$) 
ASC  (CHAR) 
ASC  (ASCII 


Gives  running 
Has  the  value 
Has  the  value 
Has  the  value 


time  of  program  in  seconds 
of  the  time  (16:26:46) 
of  the  date  (06/23/69) 
of  the  user  number 


Converts  the  string   (S$)   to  a  number 
Counts  the  letters  in  a  string 

abbreviation)j Converts  the  letters  in  ASCII  value 
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FUNCTIONS,  use  of 


An  example  of  how  to  use  one  of  these  functions   (SQR(X))   is  shown 
below: 

NEW  'SQROOT 
READY 

10  PRINT  "THIS  PROGRAM  PREPARES  A  TABLE  OF  NUMBERS , SQUARES  AND 
2  0  PRINT   "SQUARE  ROOTS." 
30  PRINT  " 


4  0  PRINT   "NUMBER "."SQUARE "."SQUARE  ROOT" 

50  PRINT  "  "  ,  "  "  ,  " 

6  0  PRINT  " 

70  FOR  J=l  TO  25 

80  PRINT  J,Jt2 ,SQR(J) 

9  0  NEXT  J 

99  END 

RUN 

SQROOT  08/12/69  17:18 

THIS  PROGRAM  PREPARES  A  TABLE  OF  NUM!  a:  V    , SQUARES  AND     SQUARE  ROOTS, 


NUMBER 


SQUARE 


SQUARE  ROOT 


1 

1 

1 

2 

4 

1. 41421 

3 

9 

1. 73205 

4 

16 

2 

5 

25 

2. 23607 

6 

36 

2.44949 

7 

49 

2. 64575 

8 

64 

2.82843 

9 

81 

3 

10 

100 

3.16228 

11 

121 

3. 31662 

12 

144 

3.4641 

13 

169 

2. 60555 

14 

196 

3. 74166 

15 

225 

3. 87298 

16 

256 

4 

17 

289 

4.12311 

18 

324 

4 . 24264 

19 

361 

4. 3589 

20 

400 

4 .47214 

21 

441 

4.58258 

22 

484 

4 . 69042 
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FUNCTIONS,  Use  of  (Continued) 


23 
24 
25 


529 
576 
625 


4.79583 
4. 89898 
5 


ROUNDING  OFF    (DECIMAL  PLACES) 


Using  the  INTeger  function  we  are  able  to  round~off  nxombers 
to  the  nearest  tenth   (one  decimal  place)   or  nearest  hundredth  (two 
decimal  places) or  to  whatever  number  of  decimal  places  wanted. 

10  LET  X=    (some  number) 

20  PRINT  INT  (10*Xh-.  5) /10t2 

30  END 

Will  round-off  a  number  to  two  decimal  places. 


The  following  program  will  round-off  a  number  to  any  number 
of  decimal  places  needed: 

10  LET  X=   (some  number) 

20  LET  D=   (number  of  decimal  places) 

30  PRINT  INT  (X*10tD-l-.  5)/10tD 
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DEF 


Often  it  is  necessary  for  you  to  create  your  own  functions. 
You  can  do  this  in  each  program  using  a  DEFine  statement. 

Of  course  as  an  alternate  to  this  procedure  you  could 
always  use  a  GOSUB  and  RETURN  as  previously  discussed. 

THE  DEF  STATEf4ENT  is  always  followed  by  a  space  and  the 
letters  FNA  or  FNB  or  FNC,   etc.     All  the  way  to  FNZ. 

Therefore  you  can  create  up  to  26  DEF  FN'S  in  your  program 
for  numbers.     The  two  programs  below  print  out  a  table  of  sines. 


NEW  SINETABl 
READY 

10  DEF  FNA(X)=(X*3.14159265)/180 
20   DEF   FNB(X)=SIN(FNA(XJ ) 
30   PRINT   "ANGLE" , "SINE" 
40  FOR  X=0  TO  180   STEP  10 
50   PR^NT  X,FNB(X) 

6  0  NEXT  X 

7  0  END 
RUN 


NEW  SINETAB2 
READY 

10  DEF  FNC(Y)=SIN    (Y*3 . 14159265/] 

30   PRINT   "ANGLE" , "SINE" 

40  FOR  Z=0  TO  180  STEP  10 

50   PRINT  Z,FNC(Z) 

60  NEXT  Z 

70  END 

RUN 


SINETABl     08/12/69     17:23  or 


SINETAB2     08/12/69  17:26 


ANGLE 

SINE 

ANGLE 

SINE 

0 

0 

0 

0 

10 

0. 173648 

10 

0.  173648 

20 

0. 34202 

20 

0.34202 

30 

0.  5 

30 

0.5 

40 

0. 642788 

40 

0.642788 

50 

0.  766044 

50 

0.766044 

60 

0. 866025 

60 

0.866025 

70 

0. 939693 

70 

0.939693 

80 

0.984808 

80 

0. 984808 

90 

1. 

90 

1. 

100 

0.  984808 

100 

0.384808 

110 

0.  939693 

110 

0. 939693 

120 

0. 866025 

120 

0.866025 

130 

0.766044 

130 

0.766044 

140 

0. 642788 

140 

0.642788 

150 

0.  5 

150 

0.5 

160 

0. 34202 

160 

0.34202 

170 

0. 173648 

170 

0.173648 

180 

3.614  E-9 

180 

3.614  E-9 

TIME  : 

0.277  SEC 

TIME: 

0.2  67  SEC. 

READY 

READY 

aonauit    the  regular 

BASIC  Manual  for 

more  information  ah. 

the  use 

of  DEF. 
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ROOTS 


The  square  root  of  25  is  5. 
The  square  root  of  36  is  6. 
The  square  root  of  1  is  1. 

We  can  define  the  square  root  as  "what  number  times  itself 
makes"  81?     the  answer  is  9. 

The  square  root  of  100  is  10. 

The  square  root  of  50  is   ...   a  decimal  larger  than  1,  but 
smaller  than  8.  Why? 

No  number  times  itself  exactly  equals  50.     You  can  say  5 
times  10  is  50,  but  this  isn't  a  number  times  itself.  Seven 
times  seven  is  49,  eight  times  eight  is  64.     Then  of  course  the 
square  root  of  50  must  be  more  than  seven  and  less  than  eight. 

What  is  the  Square  root  of  50? 

We  can  use  the  SQR(X)   functi'.on  to  find  square  root.  A 
program  to  do  this  is  given  below: 

This  program  finds  the  square  root  of  50: 

NEW  ROOTS 
READY 

10  PRINT  SQR{50) 

2  0  END 

RUN 

ROOTS     08/12/69  17:27 

7.07107 

TIME:      0.04  2  SEC. 
READY 

We  could  expand  the  idea  of  square  rootli! 

In  fact,  we  couJd  think  of  square  root  as  the   inverse  of  t 
exponent     .     Below  is  a  table  of  squares  and  square  roots. 
N  n2      ylj  "or  Nf (1/2) 

Number     Square     Square  Root 


1 
2 


1 
4 
9 
16 


1 

1.414 
1.732 
2 
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ROOTS  (Continued) 


We  can  easily  write  a  program  to  prepare  this  table; 

NEW  ROOTl 
READY 

10  PRINT   "N" , "Nt2 " , "Nt  (1/2) " 
2  0  PRINT" 


3  0  FOR  N=l  TO  10 

40  PRINT  N,Nt2,Nt(l/2) 

5  0  NEXT  N 

6  0  END 
RUN 


ROOTl  08/12/69  17:29 

M  Ni2 


Ni  (1/2) 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

TIME: 
READY 


1 
4 

9 

16 
25 
36 
49 
64 
81 
100 


1 

1, 
1, 
2. 
2. 
2  . 
2. 
2. 
3. 
3. 


41421 
73205 

23607 
44949 
64575 
82843 

16228 


0-226  SEC, 


Since  we  defined 
1/2  power   (expon'^n t)  . 


?quare  root  as  Ni (1/2)  or  N 
We  can  think  of  cube  root 


raised  to 
rv  Ni  (1/3) 


the 


ROOT 

CUBE  R'vOT 
FOURTH  ROOT 
FIFTH  ROOT 


BASIC  EXPRESSION 

Nt  (1/2) 
Nt  (1/3) 
Nt  (1/4) 
Nt  (1/5) 


INTERPRETATION 

SQUARE   ROOT  OF  N 
CUBE   ROOT  OF  N 
FOURTH  ROOT  OF  N 
FIFTH  ROOT  OF  N 


-  64 


ERIC 


^0 


CUBE  ROOT  DEFINITION 


"What  number  times  itself,  three  times"  makes  8: 


N  *  N  *  N  =  8       The  cube  root  is  2, 


"What  number  times  itself,  three  times"  makes  27? 


N  *  N  *  N  =  27     The  cube  root  is  3. 


Can  you  write  a  simple  definition  for  the  4th  root  or  Nf (1/4)? 
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Listed  below  are  some  other  commands  that  you  might  find  useful: 


•LIST   (space)    (line  number)* 

allows  you  to  list  a  part  of  your  program  starting  ac  a  specific 
line  number,    (i.e.   LIS  320) 

•  SYS' 

allows  you  to  change  the  system  from  the  BASIC  language, 
(i.e.   FORTRAN,   ALGOL,  LAFFF) 

'CAT' 

allows  you  to  get  a  list  of  all  of  your  program  names    (or  files) 
that  you  have  saved. 

' RENAME • 

allows  you  to  rename  a  program  without  destroying  it. 

•  SCRATCH' 

allows  you  to  destroy  your  current  program  and  let  its  name  remain. 
' (RETURN  KEY) * 

allows  you  to  find  out  how  long  your  program  has  been  running  after 
you  type  RUN. 

•OLD  DARTCAT***' 

You  can  only  LIST  this  file.     LISTS  all  subjects  filed  in 
Dartmouth  College  Computer  Library.     From  this  you  then  LIST  the 
subject  to  get  specific  programs. 

• (CONTROL  SHIFT  P) ' 

Stops  your  program  when  nothing  else  works,   also  called 
break. 

Supplies  information  abour  your  teletype.      (i.e.  teletype 
number,  programmer,   language,  status). 

' CATALOG ' 

May  also  be  called  with  special  option  codes  these  are: 

LEN    (length)  ALL    (all  options) 

DLU   (date  last  used)  SEL    (starts  a  request  for 

DLM   (date  last  modified)     _  gg  _  specific  file  names) 

/  9 


CHAPTER  SIX 


ADVANCED  BASIC 

This  chapter  contains  information  on  the  more  advanced  concepts 
and  ideas  in  the  BASIC  language.     Details  on  how  to  use  these  concepts 
are  obtainable  by  calling  the  specific  inforination  from  the  computer, 
(i.e.  EDIT)   or  by  consulting  the  regular  edition  of  the  BASIC  manual. 

This  chapter  includes  such  topics  as  se(::^ret  passwords,  debugging 
programs,   the  EDIT  package,  MATRIX  and  determinants,  files,  random 
numbers  and  flags. 
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PASSWORDS 


Certain  user  numbers  have  passwords.     Passwords  for  user  numbers 
are  a\;ailable  from  your  teacher. 

Programs   (or  files)   can  have  passwords,  tool 

(Caution:     Since  only  you  know  what  the  password  is,  and  if 
you  use  too  many  passwords,   and  forget  what  password  belongs  to 
what  program  the  programs  are  lost  to  you  and  everybody  else.) 

Therefore,  please  use  the  same  password  on  all  your  programs. 
Most  programs  don't  need  passwords  at  all.  To  place  a  password  on 
your  program  do  the  following: 

NEW  JOE 
READY 

SAVE  JOE, PAS SWORD: 

The   'password'   is  assigned  to  the  program  JOE. 

Your  teacher  has  a  special  book  in  which  passwords  are 
recorded  for  each  student.     Students  may  get  and  use  as  many  pass- 
words as  necessary. 


DEBUGGING 


If  your  program  seems  to  have  errors   (or  bugs) ,  then  it  needs 
correction   (debugging. ) 

First,  retype  RUN  for  error  messages. 

Second,  correct  error  messages.     Type  LIST. 

Third,  retype  RUN  for  additional  error  messages. 

Fourth,  correct  error  messages  again.     Type  LIST. 

Fifth ,  continue  until  no  error  messages  appear  on  RUN . 

Sixth,  if  program  still  doesn't  work,  recheck  for  missing 
PRINT  statements  and  incomplete  DATA. 

Seventh,  ask  for  help! 

Your. teacher  has  a  special  TRACE  program  available 


EKLC 
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EDIT 


The  EDIT   (or  EDI)    functions  available  are  listed  below: 


EDIT  APPEND  DELETE  DESEQUENCE  LIST  GMD 

EXPLAIN       INSERT  EXTRACT  RESEQUENCE  LOCATE  LIFE 

HELP  JOIN  MOVE  SEQUENCE  PAGE  JGK 

STRING  SID 


To  find  out  how  to  use  any  of  these  functions  type: 

EDIT  EXPLAIN    (name  of  function) 
or 

EDI  EXP    (name  of  function) 
For  more  information  about  EDIT  in  general  type: 
EDIT  EXPLAIN  EDIT 

(Mathematicians  and  computer  programmers  enjoy  themselves 
and   like   a   little  bit  of  entertainment.      Four  of  the  functions 
listed  above   are  for   this  purpose.      Can  you  find  them?) 
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MATRIX  and  DETERMINANTS 


A  set  of  instructions  for  the  use  of  the  many  MATRIX 
statements  are  available  from  your-  teacher,   o:    from  the  regular 
BASIC  Manual    (latest  edition.) 


If  you  are  interested  in  finding  out  about  this  topic, 
please  ask  your  teacher. 


FILES 

A  set  of  instructions  for  the  use  of  the  many  FILE 
statements  are  available  from  your  teacher,  or  from  the 
regular  BASIC  Manual    (latest  edition.) 

If  you  are  interested  in  finding  out  more  about  this 
topic,  please  ask  your  teacher. 


ERROR  MESSAGES 

See  the  regular  BASIC  Manual  for  an  explanation  or 
description  of  the  many  error  messages  that  DTSS  provides. 
Listings  of  the  error  messages  and  their  explanations  are  posted 
near   the  teletype. 
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FLAGS 


'Flags'   are  used  by  programmers  to  signal  certain  changes 
in  routine.     Often  the  niombeis -1  or  0  are  used  as  a  flag. 

The  program  below  would  eventually  produce  an  OUT  OF  DATA 
message  when  RUN. 

NEW  FLAG 
READY 

10  READ  A 
20  PRINT  A; 
30  GO  TO  10 

80  DATA  1,3,4,5,6,7,2,5,6,7 

99  END 
RUN 

FLAG  08/2/69  11:46 

1345672567 
OUT  OF  DATA  IN  10 

TIME:      0.071  SEC. 
READY 

By  inserting  the  two  lines  below,  the  program  is  given  a 
FLAG  to  finish  the  program  without  printing  the  OUT  OF  DATA 
message . 

15   IF  A=-l  THEN  99  » CHECKING  FOR  FLAG  -1 

90   DATA  -1  'LAST  PIECE  OF  DATA  IS   SET  TO  -1 

LIST 


FLAG  08/20/69 
10   READ  A 

15   IF  A=-l  THEN  99  'CHECKING  FOR  FLAG  -1 

20  PRINT  A: 
30  GO  TO  10 

80  DATA  1,3,4,5,6,7,2,5,6,7 

90   DATA  -1  'LAST  PIECE  OF  DATA  IS  SET  TO  -1 

99  END 

READY 

RUN 

FLAG  08/20/69  11:48 

1345672567 
TIME:      0.071  SEC. 
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RND  and  RANDOMIZE 


RND  produces  a  sequence  of  numbers  between  .000000  and 
.999999  from  a  table  of  random  members.     Each  time  you  run 
RND  the  same  sequence  of  members  will  be  prepared. 

Shown  below  is  a  program  using  RND: 

NEW  RND 
READY 

10   PRINT  RND, 
15  GO  TO  10 
99  END 
RUN 


RND 


08/20/69  09:53 


0.406533 
0.948228 
0. 912571 
0. 907836 
0.742572 
0.420067 


0. 927599 
0. 165784 
0. 512762 
0.884522 
0. 362751 
0. 786135 


0.264283 
0. 328597 
0. 53556 
9.99165  E-2 
0. 216531 


0. 789368 
0. 552183 
0. 825354 
0. 883958 
0.858972 


0. 976272 
0.615669 
0. 777282 
0 .109132 
0.133681 


STOP 


TIME: 
READY 


0.999  SEC. 


RANDOMIZE  when  used  with  RND  produces  a  random  sequence  of 
numbers  between  .000000  and  .999999.     A  different  sequence  of  numbers  will 
be  prepared  each  time. 

Shown  below  is  a  program  using  RANDOMIZE  with  RND: 

NEW  RANDOMIZ 
READY 

5  RANDOMIZE 
10  PRINT  RND, 
15  GO  TO  10 
9  9  END 
RUN 

RANDOMIZ      08/20/69  09:54 


0. 867272 
0.659141 
0.14529 
0.  4312  ': 
0.929490 


0.131017 
0.905874 
0.126799 
0.330366 
0.296386 


0.246894 
0.781341 
0. 428908 
0.425612 
0. 624037 


0. 578099 
0. 856027 
0.584435 
0.618403 
0. 735241 


0. 527731 
0. 182354 
0. 935397 
0. 217188 


STOP 
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RND  and  RANDOMIZE  (Continued) 


By  using  the  round- off  procedure  and  INT  function  a 
sequence  of  numbers  to  the  nearest  tenth,   hundredth,  or 
whole  number  could  be  produced. 

The  following  program  will  produce  a  sequence  of 
numbers  from  the  random  number  table  between  0  and  99. 

NEW  RND I NT 
READY 

10  PRINT   INT  (RND*100); 
20  GO  TO  10 
9  9  END 
RUN 

R^JDINT         08/20/69  11:33 

40     92     26     78     97     94     16     32     55     61     91     51     53     82     77     90     88  9 
88     10     74     36     21     85     13     42     78  31 

Can  you  write  a  program  to  produce  a  sequence  of  numbers 
between  0  and  999? 

Can  you  write  a  program  to  produce  a  different  sequence  of  numbers 
between  0  and  999  each  time? 


EKLC 
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SOrirJ  SUGGESTIONS  FOR  STUDEMT  PROGRAMS 

The  foiiowinq  is  caken  from       list  ot"  computer  programming 
ideas  m  varymq  decrees  of  difficulty  prepared  by  Jean  H.  Danver 
under  the  :']SP -Dartmouth  Secondary  school  ?roject    (?JSF  Grant  GW- 
2246).     ^or  a  full  copy  of   thi^  TOPIC  OUTLINE,   please  contact: 

KIEWIT  COMMUTATION  CE\TER 

•Jar  mou  th  College 

[Hanover ,  New  Hanpshire     0  3  755 

1.  '*:rite  a  nroorarri   that  will  print  out  your  name. 

2.  ^'^riLe  a  proqram  lo   find  the  product  of   tv;o  numbers. 

3.  Wrice  a  program   that  v;ill  read  successive  pairs  of  numbers 
and,   on  oach  r-ass,   ^/ill  print  the  nunhers  and  their  sum. 

4.  Write-  a  nrooram  to  read  and  compute  the  sun.  of  the  first 
12   ev  inti-jc.;ors. 

5.  ^^^rile  a  pro^iLain   tc  comoaie  tu'o  n'jmrers-      If  the  first  is 
larcier   than   the  second' print ,    "NOT  LESS  THAN  OR  EQUAL". 
Otherwise   j.^rint.    "L.ESS  TfTAN  OR  E'.'UAL  TO". 

6.  K^rLte       orronro.n)   co  nenerate  and  compute  the  first  ten 
ir^c '  eoers  ano   their  cu^^es. 

7.  Write       rMO».:rari  tj  find   the  sun  of  pairs  of  numbers, 
f^rint  out  c:ach  nurah.er  and  the  sum  in  appropriate  headed 
CO  lump,  s . 

8.  Write  a  prour^ini   to  divide  any   two  numbers. 

9.  Read  a  list  of  numbers  and  print  them  out  in  as  few 
rows  as  possible . 

10.  Read  a  last  of  numbers  and  print  out  every  other  number. 

11.  Read  a   list  of  numbers  and  print  them  out  in  two  col'M^^ns: 

a)      AS   c  raioether  as  possible 

h)      Ar.    rat   as  iK:issible 
c)      .-'^^•'r  •■•  :        in  botv/een 

12.  Wri.i.'     ,  'M'       v:;   that  -./il]   nenoiate   ch.e   first  ten  integers, 
c    ; '  ,-cuw\res  and  print  out  in  columns  headed: 

-      ■  '    '  "  ,    "Sun  or  Squares'. 

13.  t."  1  .  ■    .  '  ^  ^:.:nerate  the   tiir;.-..   10   intoqers,  compute 
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SUGGESTIONS  FOR  STUDENT  PROGRAMS  (Crntinued) 


their  square  roots,  print  out  the  number  and  its  square 
root  in  appropriately  labeled  columns. 

Print  out  the  numbers  1-30  in  a)   5  columns,  b)    7  columns, 
c)    like  this:     12345  678910 

1112131415  1617181920 

2122232425  2627282930 

Add  up  the  squares  of  odd  numbers  for  101  to  201. 

Write  a  program  to  find  the  sum  and  products  of  pairs  of 
numbers.     Print  out  each  number,   the  smaller  first  in 
appropriate  headed  columns.     Arrange  the  printout  so  that 
the  results  of  the  last  pair  are  printed  first  and  the 
first  pair  printed  last. 

Consider  the  numbers   .5  thru  5  in  steps  of   .5  inclusive. 
Write  a  program  that  will  center  a  three  column  table  on 
the  paper  where  the  first  column  contains  the  numbers, 
the  second  column  contains  the  fifth  powers  of  the  numbers, 
and  the  third  column  contains  the  fifth  roots.     Also,  have 
headings  for  each  column. 

Write  a  program  that  will  have  the  computer  center  a 
three  column  table  on  the  page.     The  three  columns  should 
have  headings  and  should  contain  the  entries  X,  X  to  the 
fourth  power,   and  the  fourth  root  of  X,  where  X  takes  on 
the  values   .5,   1.5,   2,         4.5,   and  5. 

Write  a  program  to  compute  absolute  value  without  using 
the  command. 

Write  a  program  to  round  off  numbers  to  the  nearest  10, 
100,   1000,   1/10,  1/100. 

Write  a  program  to  round  off  numbers  to  any  place  desired. 

Read  any  three  numbers  and  print  them  out  in  descending 
(ascending)  order. 


Determine  if  one  number  is  divisible  by  "another. 
Print  out  all  integers  between  1  and  100  which  are: 

1.  Divisible  by  3  and  5 

2.  "  "  13 

3.  "  "  31 

Also,   find  the  sums  of  the  numbers  in  each  group. 
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.qOME  SUGGESTIONS  FOR  STUDENT  PROGRAMS  (Continued) 

25.     Compose  a  program  which  will  find  the  largest  factor  of 
any  number. 

2^.     Determine  the  common  factors  of  any  two  given  numbers. 

27.  Write  a  program  to  determine  the  greatest  common  divisor 
(GCD)   and  lowest  common  multiple    (LCM)   of  ..any  two  numbers. 

28.  Factor  integer  using  the  Method  of  Fermat. 

29.  Compute  the  greatest  common  divisor    (GCD)   of  2  given  nuiribers 
through  the  use  of  the  Euclidean  Algorithm. 

30.  List  the  prime  numbers  up  to  a  given  number,  N. 

31.  List  the  prime  numbers  between  any  two  given  numbers,  N 
and  M. 

32.  Express  any  number  as  a  product  of  its  prime  factors. 

33.  Find  the  prime  factors  of  a  given  number. 

34.  List  all  primes  which  are  the  sum  of  squares. 

35.  Program  the  Sieve  of  Eratosthenes . 

36.  Find  all  the  pairs  of  twin  primes  between  any  two  numbers. 

37.  Test  numbers   for  primeness  by  the  use  of  Wilson's  Theorem 
...n  is  prime  if  the  only  if    (n-1)    i  =  -1  mod(n). 

38.  List         N!   and  1/N  in  3  columns. 

39.  Find  the  sum  of   the  first  TJ  odd  numbered  even  numbers. 

40.  Locate  the  largest  number  in  a  sequence  of  numbers  and 
Its  position  in  the  sequence. 

41.  Find  the  smallest,    the  largest/   and  the  difference  bet- 
ween the  smallest  and  the  larqe?:t  of  a  list  of  numbers. 

42.  Order  a  list  of  numbers. 

43.  Construct  a  table  of  squares  and  cubes  of  the  multiples 
of  3   from  12  to  42. 

44.  Write  a  program  to  compute  NtE  where  N  =  any  number  and 
E  ••••  any  integer  without  using  the  operatort. 

2 

45.  Write  a  program  to  compute    (X*Y)     without  using  the  cominandt 
or  *  . 

46.  Write  a  program  using  the  random  number  generator  to 
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SOME  SUGGESTIONS  FOR  STUDENT  PROGRAMS  (Continued) 

generate  25  random  integers  between  1  and  100.  Then 
print  out  the  list         ' hese   integers  from  the  smallest 
to  the  largest. 

47.  Change  fractions  t  imals. 

48.  Write  a  program  v/hich  wilJ   convert  linear  measures  in 
^he  metric  system   (meters  and  centimeters  only)  to 

quivalent  measures   in  the  English  system   (feet  and  inches 
-.ly)  .     INT(X)   may  be  useful  here. 

49.  write  a  program  to  play  the  follov/ing  game:     The  com- 
puter tries  to  guess  a  number  you  have  in  mind  from  one 
to  100.     First,   It  guesses  a  number  and  you  tell  it  if 
the  number  is  too  high  or  too  low  or  correct.     On  the 
basis  of  the  information  you  give,   the  computer  guesses 
aaain.     This  continues  until  the  computer  guesses  right! 

50.  Compose  a  program  which  will  supply  the  decimal  equivalents 
to  the  rational  numbers  1/11,   2/11,...,   10/11.     On  the 
first  pass  through  the  program  the  equivalents  should  be 
rounded  off  to  the  nearest  hundre.^'th,   on  the  second  pass 

to  the  nearest  thousandth,   and  on  the  third  pass  to  the 
nearest  ten- thousandth . 

51.  Program  a  general  conversion  between  arbitrary  bases. 


52.  List  Pythagorean  triplets. 

53.  List  numbers  which  are  the  sums  of  two  squares  up  to 
any  qiven  number. 

54.  Write  a  program  to**  compute  N  mod  M. 

55.  Write  a  program  to  determine  if  two  numbers  are  con- 
gruent in  mod  M. 

56 .  Print  out  modular  arithmetic  tables . 

57.  Proaram  an  algorithm  to  convert  numbers  from  decimal 
to  octal  to  binary, 

58.  ':^rite  a  program  to  determine  the  solutions  of  a 
quadratic  ecrua t ion . 

59.  Write  a  program  to  solve  1st  dearee  equations  in  one 
unknown. 

60.  ■  Determine  the  slope  of  a  line  given  any  two  points. 

61.  Fjnd  the  square  root  of  a  number  without  using  the 
operator  SQR. 


SOME  SUGGESTIONS  FOR  STUDENT  PROGRAMS  (Continued) 

62.  Program  Newton's  Method  for  approximating  square  roots. 
This  is  a  guess  and  then  averaging  the  divisor  and  quotient 
for  a  new  guess. 

63.  Modify  Newton's  Method  and  approximate  cube  roots. 

64.  Write  a  program  to  calculate  the  sum  of  the  first  N  terms 
of  a  geometric  progre.ssion . 

65.  Write  a  program  to  gen3rate  a  list  of  numbers  which  is 
the  sum  of  corresponding  elements  of  two  other  lists  of 
equal  number  of  elements. 

66.  Find  the  perimeter  and  area  of  various  geometric  figures. 

67.  Find  the  volume  of  various  geometric  figures. 

68.  Write  a  program  to  solve  percentage  \;ord  problems. 

69.  Change  integers  to  Roman  Numerals. 

70.  Read  a  four  digit  number.     Print  out  the  number  and  the 
number  of  tj-mes  the  digit  7  appears  in  the  number. 

71.  Find  .sets  of  5  numbers  greater  than  zero  which  have  a 
sum  of  100  0. 

72.  Given  the  coordinates  of  4  points,   determine  whether 
they  form  the  vertices  of  a  square,   a  rhombus,   a  rect- 
angle or  a  quad. 

73.  'iven  t^vo  sets  A,B,   compute  AUB  and  AQB. 

74.  Write  a  program  which  tells  if  two  sets  are  equal. 

75.  Write  a  program  to  solve  the  triangle  problem--i . e . , 

to  find  the  sum  of  the  perimeters  of  triangles  inscribed 
in  a  4   inch  equi lateral  triangle  if  you  continuously 
counted  the  mid-points  of  previous  triangles. 
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ADDITION    n 

ANGLES    5^ 

APPEMDIX  A    75 

AREA  OP  A  CIRCLE   46,  5^ 

AREA  OP  A  SQUARE    29 

ARROW   7,  29 

ASC    (CHAR)    59 

ASC  II    59 

ASKING  QUESTIONS  (INPUT 

STATEMENT)    26 

BACK  ARROW    7 

BYE  or  GOODBYE   -   l6 

CAT    66 

CATALOG    66 

CHANGING  THE  PROGRAM 

YOU  ARE  WORKING   ON    15 

CHAPTER  FIVE    -4  9 

CHAPTER  FOUR   Hi 

CiiAPTER  ONE    1 

CHAPTER  SIX    6  7 

CHAPTER  THREE    28 

CHAPTER  TWO   17 

CIRCUMrERENCE    5^ 

CLK$    59 

COMMA   i»0  , 19,  32,33,35,  39 

CONTROL  StIIPT  and  P    66 

CONTROL  X    7 

COS   57,  59 

COSINE   57,  59 

COUNTING   32,  50 

CUBE  ROOT  DEFINITION    65 

DATA   ^7,^8,  72 

DAT$    59 

DEBUGO-NG    69 

DECIMALS   ^)1,73,  31 

DEF    62 

DEGREE  MA.RKS    56 

DETERMINANTS    71 

DIAMETE'-    5  4 

Divisio;;    '1 

E    31 

EDIT    70 

END    8 

ERROR  MES;"A:^.r;::"    71 

ERRORS    69 

EVEN  NU^IBBfiS    35 

EXPONE'lT'J  29 ,  .Zl,  .  .  ■'19 


PILES    71 

PLAG    72 

POR.  .  .   NEX"^  LOOP    32 

POR...   NEXT  LOOP  AND  STEP   3^,  36 

FOREV7ARDT0  TEACHERS    0 

FRACTIONS  AND  SCIENTIFIC  NOTATION  31 

FUNCTIONS   59,  62 

FUNCTIONS,   Use  of   60,  62 

GOODBYE    16 

GO  TO   27,  ^5 

GOSUB  AND  RETURN    HS 


HEL   .  . 

HE1.LO 


IF .  .  .  THEN  

IGNORE  

INDEX  

INEQUALI^  ^ES   

INPU^  ST.    'EMEHT   .  ,  

INT  

I.NTEGER,"    .  31, 


J=J+l,etc 


LEN(S$)   , 

LET  ,  

LINE  JUKP...'!G  USING  PRINT  

LiNP  :;ur'"BE.^s   

LiNE  POINTER   .  . 

LINEAR  EQUKriOnS   -?7, 

LIS   i  i, 

LIST  3^,66,16, 

LOOPS   35,  3'^.  33, ,32,  50, 

MAKING  CORRECTIONS   

MATRIX  AND  DETERMINANTS     

MORE  ON  FOR..  .  .  NE:-'T   

MORE  ON  J=J+i   

MORE  ON  PRINT   

MULTIPLICATIGM   

"■'ULTI PLICATION  TABLiS 


XT) 


h.:;sted  loops  .  . 
:jew   

NEXT   (.-EE  FOR.  . 

:;ov/  You"RE  ready  to 

WRITE  A  PROGRAM   IN  PASIC 

Nu:-:    .... 

NUMBER  LIME   


16 
16 

^3 
5 
80 

26 
59 
59 

50 

59 
23 
20 
6 
39 
33 
66 
69 
27 


71 
36 
52 

35 


56 


59 


-  80 


ERIC 


IMnKX  (Ccncinued) 


OLD   , 

OLD  DARTCAT*** 
ON. . .   GO  TO   . . , 


PARENTHESES   

PASSWORDS   

PERIMETER   

PREFACE   

PREPARING  A  TABLE  OF  VALUES   

PRINT   9,13,18, 

PRINT-Numbers   

PRINT-Calculations   

PROBLEMS  5:0LVIMG    2, 

PROPORTION   


QUOTES  ( "  " )  , 
QUESTION  MARK 


20,i8,23,:'5, 


RADIAN  MEASURE,   ANGLES  AND  PI   

READ  AND  DATA   

READ  AMD  DATA, RESTORE   

REM   

REMARK  also   (APOSTROPHE  ')   

REN  

RENAME   

REP   

REPLACE   

RESTORE   

RETURN   

RETURN  KEY   

RND  and  RANDOMIZE   73, 

ROOTS   

ROUNDING  OFF   (DECIMAL  PLACES)   

RUM   16, 


■J' 

f  j  6 
^5 

10 

68 
52 

0 
37 
20 
13 

9 
53 
55 

39 

26 

5^ 

i]8 
58 
58 
66 
66 
16 
16 
i|8 
'4  6 
66 
59 
63 
61 
69 


SL'STRACTION    ii 

S.(  •  .  ,   66 

TAP    39 

TABLE  OF  VALUES    37 

TAN   57,  59 

TANGENT  57,  59 

THE  LET  STATEMENT  USES 

VARIABLES   (or  letters)    23 

THE   LINE  AND  COMMA    ^0 

THE  LINE  AND  TAB    39 

THEN. . .    (SEE  IF. . .  THEN) 

TIM    59 

TIME  TABLES    35 

TRACE    69 

TTY    66 

TURNING  ON  THE  TELSTXKE   2 

UNS    16 

•JNSAVE    16 

UP  ARROW    29 

USER  NUMBER   1.  59 

USR$    59 

VAL(S$)    59 

"""RIABLES   21,22,  23 

//i^AT  IS  A  VARIABLE?    21 


S  KEY  (S'''OP)   

SAVF   ,  ;  

S:.  W.OMTi  "• DOTATION'   

.SEMI-CGLUM   18  ,  25  ,  26  ,  32  ,  33  ,  39  , 

SIGN';   M-and  -)   

sif;  


 30, 

•  57, 

vSINE,CO::iNE  AMD  TANGiilNi   57, 

SOME  ADDITIOriAL  VARIABLES   

SOME  r.UGGJ'rTIOiIS  FOR  STUDENT 

■  PROGRAM.'-.   

STEP   33, 

STOP   15, 

STRINGS  {:-:■   25, 

SQR   59, 

SOuARE  r..;^  -   59, 


15 
16 

31 

66 
50 
39 
59 

59 
22 

75 
3^ 
2  7 
ij8 
\. 

60 
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The  enclosed  material  is  a  compilation  of  computer  programs 
developed  during'the  period  May,    1968  to  September,   1970,  These 
programs  were  developed  by  teachers  and  students  in  the  high  schools 
which  participated  with  us,   and  by  the  Project  staff. 

All  of  the  enclosed  programs  have  been  tested  on  a  Digital 
Equipment  Corporation  TSS-8  time-shared  computer  during  the  summer 
of  1970.       To  the  best  of  our  ability,  we  have  assured  ourselves 
that  the  programs  actually  run.     It  should  be  pointed  out,  however, 
that  we  were  not  able  to  make  an  exhaustive  exploration  of  the  pro- 
grams.    There  may  be  undiscovered  bugs   (if  there  aren't,   it  may  be 
the  first  time  in  the  history  of  computing).       We  would  appreciate 
hearing  of  any  which  emerge  in  the  future. 

These  programs  run  in  the  version  of  BASIC  which  existed  on 
the  TSS-8  in  August,    1970,   and  should  run  on  most  other  versions  of 
BASIC.     The  major  potential  problem  on  other  machines  is  the  output 
format   (DEC  uses  14  columns  per  print  zone,  while  some  other  manu- 
facturers use  15;  we  used  the  TAB  function,  'which  doesn't  exist  in 
all  BASIC  compiles).     It  may  be  necessary  to  make  some  minor 
changes  in  programs  to  adjust  this  format.     Another  possible 
problem  is  in  the  use  of  the  RANDOMIZE  command  in  some  programs 
to  start  the  random-number  generator  at  a  random  point.     If  this 
command  is  not  available,   some  other  means  should  be  devised  for 
randomizing  the  start. 

It  is  our  sincere  hope  that  these  programs  and  their  sup- 
porting documentation  will  be  helpful  to  educators  who  are  explor- 
ing the  uses  of  computers  in  education. 

We  are  anxious  to  hear  of  any  bugs,  errors,  or  improvements 
in  these  programs,  and  are  especially  anxious  to  hear  of  any  novel 
ways  of  using  them. 


Ludwig  Braun 
Marian  Visich,  Jr. 
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DISCIP  LINE  BIOLOGY 

S  UB  J  EC  T  GENETICS 

PROGRAM  NAME  PROS 


DESCRIPTION; 

This  prog'ram  determines  the  genetic  characteristics  of  the  offspring  of  a 
pair  of  Drosophila  flies  with  specified  traits.  A  game  approach  is  used  involving 
the  entire  class,  in  which  the  students  can  select  different  genotypes. 

OB  JECTIVES;   -   -  -  -  -  -  

To  show  the  student: 

A.  The  result  of  MEIOSIS  and  the  effect  of  random  assortment. 

B.  That  various  genetic  recombinations  occur  in  sex  cells  and  in  genotypes  of 
offspring. 

C.  That  if  enough  trials  are  run,  Mendelian  ratios  are  verified. 

D.  That  he  can  simulate  different  genotypic  conditions  and  determine  the 
probability  of  the  phenotypic  outcome. 

PRELIMINARY  PREPARATION: 

A.    Student  -  An  understanding  of  the  concepts  in  the  computer  program  GAMGN  . 
It"  is  best  to  use  DROS      as  soon  as  possible  after  GAMGN  . 

B     Materials   -  Eight  containers  grouped  in  two  sets  of  four  and  labeled 

A,  B,  C,         Designate  one  of  the  group  of  four  as  male  chromosomes,  and 
the  other  as  female.    Into  each  container,  place  two  slips  of  paper,  one 
marked  1  and  the  other,  2. 

Before  beginning  the  program  have  a  student: 

1      Take  out  one  slip  of  paper  from  each  of  the  containers  of  the  male 
group  and  mark  the  designation  on  the  chalk  board.    For  instance: 

Al,  B2,  C2,  Dl:  .       ,  ^  ^ 

2.    Take  out  one  slip  from  each  container  of  the  female  group  and  do 
the  same  as  with  the  male  group. 

Decide  what  the  phenotype  would  be  by  discussing  it  in  class. 

You  will  run  the  program  using  the  information  you  have  on  the  chalk  board. 
It  will  give  you  the  correct  phenotype.  See  how  the  class'  answer  compares 
with  the  computer'  s. 
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DISCUSSION: 

A.  Operational  Suggestions 

!•     Student  level  -  average 

2.  This  program  can  be  used  on  a  classroom  basis. 

3.  Pitfalls  to  avoid  -  See  that  the  students  run  the  program  several  times 
and  keep  a  record  of  each  run.  This  is  necessary  to  show  the  various 
possible  combinations  that  can  occur,  and  their  frequencies, 

B.  Follow-up 

After  the  program  has  been  run: 

1.     Get  as  many  runs  as  possible  so  that  percentages  can  be  determined 
for  each  phenotype  of  the  offspring, 

a)  Determine  the  total  number  of  offspring.     Each  run  represents  1 
offspring.    Count  them, 

b)  Determine  the  total  number  of  offspring  which  lived, 

c)  .  Determine_ea,ch  phenotype  and  s^h^^  r^t\o  exists  between 
dominant  and  recessive  traits,     (This  should  follow  typical  Mendelian 
ratios) 

3,     Elicit  from  the  students: 

a)  What  was  their  role  in  the  game?  (The  students  conduct  meiosis  by 
randomly  selecting  the  genotype  of  each  gamete,  ) 

b)  (When  using  a  small  number  of  runs)  Why  did  the  Mendelian  ratios 
not  hold  true? 
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WIS  PROGRAM  IS  DESIGNED  TO  GIVE  THE  GENETIC  KESULTANT  TRAITS 
OF  OFFSPRING  WOSE  PARENTAGE  VAS  DISCUSSED  IN  PROGRAM  *GAMGN' 

ARE  YOU  READY?  HERE  V£  GO* 

FOR  THE  SPERM  CELLj   WHAT   IS   'A'?   (TYPE   I   OR  2)?  2 

WHAT  IS   'B'?  I 
WHAT   IS   'C*7  2 
WHAT   IS    *D*7  2 
FOR  THE  EGG  CELL^    WHAT  IS   'A'?   (TYPE   1  OR  2)7  2 

WHAT   IS   'B*7  1 
WHAT  IS   *C*7  1 
WHAT  IS  1 
OFFSPRING  HAS  NORMAL  WINGS 
AND  IS  RED  EYED* 

LET'S  TRY  THIS  SEVERAL  TIMES  AND  SEE  THE  RESULTS  WE  GET 
OVER  SEVERAL  TRIALS*  KEEP  A  RECORD* 
SHALL  WE  TRY  AGAIN7   ITT  YES  TYPE   1*    IF  NO  TYPE  0* 

FOR  THE  SPERM  CELLj    WHAT  IS    'A'?   (TYPE   I   OR  2)?  1 

WHAT  IS   'B'?  2 
WHAT  IS   'C?  2 
WHAT   15   'D'?  2 
FOR  THE  EGG  CELL*   WHAT  I£  7   (TYPE   1   OR  2)?  I 

WHAT  is         7  2 
WHAT   IS   'C?  1 
WHAT   IS  ''D' ?  1 
OFFSPRING  HAS  VESTIGIAL  WINGS 
AND  IS   WHITE  EYED 

SHALL  WE  TRY  AGAIN?   IF  YES  TYPE  I*   IF  NO  TYPE  0* 
7  1 

FOR  THE  SPERM  CELL*   WHAT  IS   'A'?   (TYPE   1  OR  2)7  I 

WHAT  IS   'B'?  1 
WHAT  IS   'C'?  2 
WHAT  IS   'D'?  2 
FOR  THE  EGG  CELL*    WHAT  IS   'A* 7   (TYPE   1   OR  2)?  1 

WHAT   IS   'B'?  2 
WHAT   IS   'C?  1 
WHAT   IS   'D'?  2 
OFFSPRING  HAS  VESTIGIAL  WINGS 
AND  IS  RED  EYED* 

SHALL  WE  TRY  AGAIN?   IF  YES  TYPE   1*    IF  NO  TYPE  0* 
7  1 

FOR  THE  SPERM  CELL*   WHAT  IS   'A'?   (TYPE  1   OR  2)7  I 

WHAT  IS   'B*7  2 
WHAT  IS   •C*7  2 
WHAT   IS    •D*7  2 
FOR  THE  EGG  CELL*   WHAT   IS   'A* 7   (TYPE   1   OR  2)7  1 

WHAT  IS   •B*7  2 
WHAT   IS   •C'7  2 
WHAT   IS   •D*7  2 
OFFSPRING  HAS  VESTIGIAL  WINGS 
AND  IS  WHITE  EYED 
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SHALL  WE  TRY  AGAIN?   IF  YES  TYPE   U    IF  NO  TYPE  0. 
?  I 

FOR  THE  SPERM  CELL^   WHAT  IS    'A'?   (TYPE   I   OR  2>?  2 

WHAT  IS    •B*7  I 
WHAT   IS   'C*?  I 
WHAT  IS   'D*?  I 
FOR  THE  EGG  CELL>   WHAT  IS   'A*?    (TYPE  I   OR  2)?  I 

WHAT   IS   'B'?  I 
WHAT  IS    'C?  i 
WHAT   IS    'D'?  I 
DEVELOPING  EMBRYO  HAS  DIED  DUE  TO  LETHAL  GENE  ACTION* 

aiALL  WE  TRY  AGAIN?   IF  YES  TYPE   W    IF  NO  TYPE  0. 
?  0 

I   HOPE  THAT   I  HAVE  BEEN  OF  SOME  HELP  TO  YOU* 
AND  THAT  5  RUNS  PROVIDE  ENOUGH  INFORMATION. 


HEADY 
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100 HEM  THIS  PHOGHM  DEV/ELOPED  BY  A.   C00l^EHMAN*<- JOHN  GLENN  HI  On  SCHOOL 
„  110  REM    REVISED  BY  C.LOSIK  7*9*70 

119  A£M     C  IS  THE  HUN  COUNTEH^  ALL  INPUTS  Aii£  TEMPGHAHY 
laO  LET  C-0 

IftS  HSM  VE  ASSIGN  EACH  GENE  A  WEIGHT'S 

126  HEM  AND  COMBINE  THE  WEIGHTS  TO  GIV/E  HESULTS  I 

laOPHXNT'^THIS  PHOGHAM  IS  DESIGNED  TO  GIVE  THE  GENETIC  HESULTANT  THAITi> 
140PHINT"OF  OFFSPRING  WHOSE  PARENTAGE  WAS  DISCUSSED  IN  PHOGHAM  •GAMGW 
ISOPRINT 

440PHINT"ARE  YOU  HEADY?  HERE  WE  GO." 
4S0PRINT 

540PHINT"F0H  THE  SPERM  CELL^   WHAT  IS   'A*?   <TYPE   1   OH  2>"; 

550  INPUT  X 

551  IF  X-1   THEN  559 

552  LET  X-5 

553  GO  TO  560 
559  LET  A- 10 

560PHINr'  WHAT   IS  'B'"; 

-570-lNPUT'-Y -~  - -   - ^ - >  -  -   

571  IF  Y-1   THEN  5  79 

572  LET  Y-lOO 

573  GO  TO  580 
579  LET  Y«50 

580PRINT"  WHAT   IS  'C^'S 

590  INPUT  W 

99t   IF  V-1   THEN  599 

592  LET  W-0 

593  GO  TO  600 
599  LET  W-500 

600PHINT"  WHAT   IS  'D'"; 

610   INPUT  2: 

620PRINT'*F0R  THE  EGG  CELL#   WHAT  IS   *A*7   <  TYPE  1   OR  2>"i 

630  INPUT  L 

631  IF  L-1   THEN  639 

632  LET  L-5 

633  GO  TO  640 
639  LET  L-10 

640PHINT"  WHAT   IS  'B'"; 

650  INPUT  M 

651  IF  M-1   THEN  659 

652  LET  M-lOO 

653  GO  TO  660 
659  LET  M-50 

660PRINr*  WHAT   IS  'C'"; 

670  INPUT  N 

671  IF  N-1   THEN  679 

672  LET  N-0 

673  GO  TO  680 
679  LET  N«500 

660PRINT"  WHAT   15  'D'"; 

690   INPUT  0 
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TOO  LET  TaW+N 
710  LET  S-Y+M 
720  LET  R-X+L 
725  LET  C-C+l 
730   IF  T<999  THEN  750 

740PHINr'DEVEL0PINr5  EMBRYO  HAS  DIED  DUE  TO  LETHAL  GENE  ACTION." 

745  GO  TO  910 

750   IF  H<19  THEN  770 

760PRINr'0FFSPHING  HAS  VESTIGIAL  WING3" 
765  GO  TO  780 

770PRINT"0FFSPHING  HAS  NORMAL  WINGS" 
780   IF  S<199  THEN  800 
790PRINT  "AND   IS   WHITE  EYED" 
795  GO  TO  910 

800PRINT"AND   IS  RED  EYED." 

9^lO~'PRtNT  ' ~ '  ...^  

915   IF  C>1   THEN  940 

920PRINT"  LET'S  TRY  THIS  SEVERAL  TIMES  AND  SEE  THE  RESULTS  WE  GET" 

930PRINT"0VER  SEVERAL  TRIALS.   KEEP  A  RECORD." 

940  PRINT  "SHALL  WE  TRY  AGAIN?   IF  YES  TYPE   li    IF  NO  TYPE  0." 

950   INPUT  I 

960   IF  1-1   THEN  540 

963  IF   I«0   THEN  9  70 

966  GO  TO  940 

970PRINT"  I  HOPE  THAT   I  HAVE  BEEN  OF  SOME  HELP  TO  YOU^"  M 

980  PRINT  "AND  THAT"C"RUNS  PROVIDE  ENOUGH  INFORMATION*"  ^ 
990  END 
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DISCIPLINE  BIOLOGY 
S  UB  J  EC  T  EVOLUTION 
PROGRAM  NAME  EVOLU- 


DESCRIPTION; 

A  population  of  dark  and  light  pepper  moths  are  studied  over  a 
period  of  30  years.    The  student  selects  the  year  and  direction  of 
environmental  changes  which  favors  one  or  the  other.    The  concept  of 
natural  selection  in  evolution  is  developed. 


OBJECTIVES; 

~  ^  -  TO'  Show  the -student  that:.  ^    ^  ^-  -   -    -   - 

A.  The  mutation  rate  within  a  population  for  a  specific  trait  can  be 
stable  for  a  peribd'of  time,  or  can  change.    The  success  of  the 
progeny  exhibiting  this  variation  is  dependent  upon  environmental 
conditions. 

B.  Progeny  exhibiting  an  hereditary  trait  do  not  necessarily  reach 
maturity,  because  of  the  influence  of  environment. 

C.  Evolution  depends  upon  mutation,  heredity,  and  environmental 
pressures. 

PRELIMtNARY  PREPARATION; 

A.  Student   -  An  understanding  of  the  following  terms:   1)  mutation  rate, 
2)  species»  3)  environmental  change,  4)  population. 

B.  Materials  -  1)  Specimens    showing  color  variations  within  any  species 
(optional);  and  2)  Ditto  of  the  list  of  assumptions  presented  in  this 
program  (optional).    Assumptions  are  listed  below. 

DISCUSSION; 

A.      Operational  Suggestions 

1.     Student  level  -  average 

2-     Group  size  -  Work  in  small  groups  of  five  or  less.  Remaining 

students  may  be  engaged  in  a  related  activity. 
3.     Assumptions  -  Prior  to  running  the  progrs.m,  the  students  should 

be  told  to  assume  the  following; 

a)  The  environment  initially  favors  the  light  moths. 

b)  At  first,  brown  moths  are  produced,  but  because  of  environ- 
mental pressures  they  do  not  reach  maturity. 

c)  The  total  population  in  the  area  cannot  exceed  the  initial 
number  of  moths,  because  this  is  the  maximum  number  of 
moths  the  environment  can  support. 
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4,  Each  group  of  students  should  run  the  program  at  least  two 
times,  varying  the  environmental  pressure;  once  favoring  the 
dark  moths  and  once  favoring  the  ligl;it. 

5,  You  might  have  the  runs  of  different  groups  of  students  reflect 
different  mutation  rates. 

6,  Supervision  of  the  number  of  program  runs  per  group  is 
necessary  since  they  are  not  automatically  cut  off. 

B.      Suggested  Follow»up 

These  questions  may  be  used  to  initiate  discussion: 

1.  Why  does  the  mutation  rate  remain  constant?   Does  it  always 
remain  constant  under  natural  conditions?   Explain  your  reasons. 

2.  Assuming  constant  environmental  conditions,  how  does 
changing  the  mutation  rate  affect  the  population?  Why? 

3.  How  does  changing  the  mutation  rate  affect  the  dark  moth 
 population  when-environmental  pressures  favor  these  moths? 

Why? 

4.  What  environmental  pressures  could  favor  the  dark  moths? 
(industrial  expansion,  predators  which  favor  the  light  or  dark 
moths)    (The  classic   case  of  the  pepper  moths  and  the 
iidustrial  revolution  in*England  could  be  discussed  at  this  point,  ) 

5.  What  possible  role  might  pollutants  play  in  altering  a  mutation 
rate?   What  other  factors  could  affect  a  mutation  rate? 

6.  Is  evolution  a  slow  or  fast  process?  Explain  your  answer. 
1.    Why  do  a  few  white  moths  always  remain  in  the  populatior, 

even  though  the  environment  favors  the  dark  moths? 

8.  What  is  natural  selection?   What  is  its  role  in  evolution? 

9.  Make  a  list  of  all  factors  important  to  evolution. 
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WITHIN  A  LAxlGE  POi>ULAnOi\  OF  t^hi^r^hiv  i^OlrtD*    A*4ii-.i.K  .A^lt.  A  Kbw 
INDiViOUALb  WnlCn  ShOW-Ur^  UAx^Ktu         CuLOi;   in^.i'J   Ant  .NjOia'i.-iL 
LlGHi'  COLORED  WOThi  cJECAU^aE  OF        A  r^  1 1  OiN;?  • 

VOU  AiUi  GOING   rO  STUDt    A'hlS  i^Or»  JUVViON  OF  r^c^^t^Eu  KUl-xii>  r  Oiw  3u 
YEAnb  AND  SEE  WHAT  ni\i^*^Ei>»o  TO   l*rtE  NUi-.toEil  OF   UHrvA  i'^U  uia  wniLW 
YOU  ALTErt  ENVirtONHENTAL  COisiDi  1*1  Oi\i>» 

SELECT  A  MUTATION  liATE  VALUE  UETwEEw   1   Ai\jJ   10.  Tiic. 

rtlGHEii  THE  NUMBEH*  THE  niGr.Eu  TnE  ^;Ul■Ano^  xiA  TE  *nJ:> 

THEHE  AHE  MOitE  DAnK  WOTrt:?  IN  OJn  r'Or'ULA i'l 0i\ . 

7  9 

HOW  MANY  LIGHT  COLOnED  MOl'nS  A*iE   liitiiE  IN  TnE  lUiEA? 
SELECT  A  NUMBEH  BETWEEN   lUUO  ANU   lOOOUOU    ?  6b7by 

^OU  HAVE  THE  POWEil  TO  CHANGE   fnE  ENV  litONMEN  f . 

AT  WHAT  HOINT  liM  OUH  THlitTt   tEAn  *^ErtlOD  DO  iOO  wiU\Ji 

TO  IMr-LEMENf   YOUH  POWEu?   SELECT  A  YEArt  FnOh   3   inrtOUOn   lu . 

-  •■7--5  ^~  -    -  ■  -  -   

IS  THE  ENViHONMENTAL  CHANGE  GOING  TO  FAV/OK 
UGHT  MOTHS  <  TYPE   1)   OH  DAnK  MOTHS   (Tti^E  2)7  2 

HOW  DO  YOU  WISH  TO  SEE  THE  HESULTS? 
1-TABLE  ONLY*   2»GHAj^H  ONLY*  U-B0TH7  0 

FOR  A  MUTATION  HATE  OF  9 


YEAA 


DAHK  MOTHS 


LlGnf  fiOTHb 


1 

0 

2 

0 

3 

0 

4 

0 

5 

5921 

6 

1  1309 

7 

16212 

6 

20674 

9 

24  734 

10 

2b429 

11 

31791 

12 

34b5l 

13 

37635 

14 

40169 

15 

42475 

16 

44573 

17 

46452 

IB 

45220 

19 

49601 

20 

51240 

21 

52549 

28 

53741 

23 

54625 

24 

55512 

85 

56710 

84 

5  7527 

27 

55271 

8b 

55948 

89 

59564 

30 

60124 

65759 

65759 

65759 

65759 

59565 

54450 

49577 

451  15 

41055 

3  7360 

33995 

JU9  35 

1^51  54 

256^0 

23314 

21216 

1930  7 

1  7569 

15955 

14549 

13240 

12045 

10964 

9977 

90  79 

5262 

7515 

6541 

6225 

5665 
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L  . 
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16 
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D 

L 

U 

a4 
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U 
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D 

L 

D 

ao 

L 

U 

L 

D 

JO 

L 

U 

DO  VOU   WANT  TO  tiUN   £nl6  r'xiOGiiAN  AGAIN   (  l"Yfc:S#0-NO)  7  1 


SELECT  A  inUTAnON  xtATE  i^ALUE  BETWEEiNJ   1   AND   10*  ttiE 

hlGHEH  THE  NOMBEii*    THE  hlGHEH  THE  WUTATION  ilAfE  IS*   AND  fnUS 

niEHE  AAE  MOiiE  DAilA  WOTftS  IN  OOH  ^^Oi^ULATI ON . 

7  9 

HOW  MANY   LIGHT  COLOkED  MOThS  AHE    fHEHE   IN   TrtE  AHEA7 
SELECT  A  NOMBEH  BETWEEN   lOUO  AND   1000000   7  657by 

YOO  HAl^E  THE  r*OWEH  TO  CHANGE  THE  ENVIHONMENT. 

AT   WHAT  POINT   IN  OOii  THIHTY  YEAii  f-EHlOD  DO  YOO  WANT 

TO  IMPLEMENT  YOUH  ^'OWEH?   SELECT  A  YEAH  FhOM  3  TH/lOUGH  10. 

IS  THE  ENVIRONMENTAL  CHANGE  GOING  TO  FAVOH 
UGHT  MOTHS   (TYPE   1)   OH  DAHK  MOTHS   (TYPE  2)7  1 

HOW  DO  YOO   WISH  TO  SEE  THE  HESULTS? 
1-TABLE  ONLY*    2-GRAPH  ONLY*  QaBOTH?  1 


.10 


23 

e    Copyright  1971,  Polytechnic  Institute  of  Brooklyn 


EVOLU 


*Oii  A  WUfATlON  ilATE  OF  9 


^J 

65  7b  V 

•J 
& 

(J 

6  b  voy 

1 

f?  !3  7  O 

** 

65  7oy 

n 

(J 

t)  1)  7  o  V 

1  1 0'j 

*i 

ij 

f )  r>  70  5* 

6;)  7i5V 

J 

6  :>  7  o  y 

iu 

J 

6:>  7t>v 

1  1 

0 

r>  r>  7  c  V 

1  j2 

0 

:.h7:iv 

l.i 

U 

t)5  7ov 

14 

0 

t',5  7oy 

15 

J 

Cjn  7ov 

I'S 

u 

ob  7oy 

IV 

(J 

65  7:3  V 

io 

.  u 

•  6b-7ov 

IV 

u 

0 

6b7ov 

di 

U 

6b7i3V 

U 

65  70  V 

u 

6b7tiV 

•dU 

0 

6570V 

2b 

0 

6b7t)V 

U6 

0 

65  7bV 

a7 

0 

6576V 

u 

657bV 

0 

657bV 

30 

0 

65  7bV 

DO  iOU  WANV  TO  liUN  Vnl:?  i^x\OGrtAi'i  rtGHiiM  (  l  =  th:i>^0=iNiO)  ?  U 
rtEAU^ 


11 


Biology 
EVOLU 


llOiiKi'i  H;^'D  It*   CUU^r:xti*iHiNJ^    oOn»\   GLKiNJiVi  nlQn  dCnOOL* 

115  iiiii*.  l>=UhxiA  /xOTr;  AKxiAV*   L=LlGni"  -'iOin  Anx^At*   iL=KAA«  r'Or-JL. 

116  Ulc,  D(  JD*   L(  Jl) 

117  r'i;li\jl    "   "/"r:v/OLJf  10:>i  oiUbr" 
lie  t^nL^i 

liiOr'^ilwi"*  wl  InilNj  A  LAftGH:  ^^Ur'ULA i* I Of^  OF  t'Et't^tLli  i^lOlnp*    rnhxih  Axih  A  FhW** 
U  j^^itlivlT^IiNiUl  s/lUUALb  iwnlCn  :>nOW  U*'  UAitKEit  iiM  COLOrt  i'nM  TnE  NOivWAL" 

r'rvlNr  "HGnf  COLUxvED  MOinb  BfclCAUoE  OF  i^UfAf  10iNJ:>.*' 
1 50*^x11  fv»r 

16Or>rtii\ir**f0U  AritL  GOIWG  TO  bi'JDY  Thlb  t^O^'ULATlON  OF  ^^Er'^'Ert  ^x0^nb  FOi.  Jo" 
IVa^^rtliNifyEAfvp  AiNJD  bEE   WrtAT  nAi^*'EN:>   10  i'rtE  ivIU^dEit  OF  unnii  ^xQlno  WnEiM*' 
loO*'KliNjr"Y0U  ALTEK  ENVIrtOiNJWENTAL  CONDiTlUiN^b." 

iiloVxtlNT  "SELECT  A  MUTATION  rtATE  VALUE  BEfWEEN   I   AiMU   lo.  THE" 
a;^Uf»nliNJT''HlGriErt  THE  NUMBErt*    I'nE  rtlGHEu  TnE  MJTAriOi\  xiAVE  lb*   AND  I'nu^" 

2a0  "PiUNT'-'"TKlfriiE -AllE  MOKE  UAKK  MOTnS   IN  " OUU-VOi^ULATI OW^ "   " 

2401^x^0  TM 

25UIFM<1  rnEN2b0 

26U    IF  M<«IU    THEN  310 

2oUh»rtINr"THE  MUTATION  rtATE  YOU  nAVE  CHOSEN  DOES  NOT  FALL   WI  TnlN  TnE" 
kiVJf^rtliNil'VHESCHlBED  rtANGE   l-lO.    IHY  AGAIN." 
JOOGOT02^0 
310  t^HlNT 

330  h»rtINT  "HOW  MANY  LIGHT  COLORED  MOTHS  AHE  THEHE  IN  TnE  AHEA?" 
340  ^'rtlNT  "SELECT  A  NUMBErt  BETWEEN   lOOO  AND   lOOOOOO  "; 
350INHUTP0 

360    IF  *'0<IE3   THEN  390 
370    IF  *'0<«IE6   THEN  ^ZO 

3yo*'rtINT"THE  NUMBErt  OF  MO TrtS  YOU  nAVE  CHOSEN  DOES  NOT  FALL  WITHIN  THE" 

/WO^>rtINT"r>HESCHlBKD  HANGE   1000 - lOOOOOO .    Irii  AGAIN." 

4lOG0r035O 

A20LET  ^.mPO 

430**HINT 

440i-rtlNT"YOU  HAVE  THE  i^OWEH  TO  CHANGE   THE  ENVIHONMENT." 

*450r»rtlNT"AT   WrlAT  **OINT   IN  OUH  THIHTY   IfEAH  HEHIOD  DO  YOU  WANT" 

460HilINT"TO   IMPLEMENT  YOUH  POWEH?   SELECT  A   iEAti  FHOM  3  THHOJGn  10." 

47u    Ii^^PUT  X 

^0    IF  X<3  THEN  492 

490    IF  X<«10   THEN  500 

492  PRINT  "THE  YEAH  CHOSEN  DOES  NOT  FALL  WITHIN  THE  HANGE  3-10." 
494  PHINT  "THY  AGAIN." 

496  GO  TO  470  ■  - 

500PRINT 

510PRINT"IS  THE  ENVIHONMENTAL  CHANGE  GOING   TO  FAVOH" 

520PrtINT"LIGHT  MOTHS   (TYPE   1)    OH  DAKK  MOTHS   (TYPE  2)"i 

530  INPUT  E 

532  IF  E«il    THEN  540 

534  IF  E-2  THEN  540 

536  PRINT  "PLEASE  TYPE   1    OH  2  NOT"iE 

53tt  GO  TO  530 

540PRINT 

600  HEM  ONE  LOOP  FOH  CALCULATION 
610   FOH  T«l    TO  30 

615  K£M     CHECK  IF  ENVIHONMENT  HAS  CHANGED 
620   IF   T>«X  THEN  650 

625  HEM     NOT  YET   (FAVOHS  LIGHT  MOTHS) 
630   LET  P1«0 
640   GO  TO  710 

649  REM     ENVIHONMENT  HAS  CHANGED 

650  IF  E<>2  TrtEN  630 

660  LET  P1«INT(P1^.0 1*M*P0^.5) 
670  LET  P0«INT(^-P1^.5) 
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6b0   IF  f\<C  THEN  710 

6b9  liKM     COMPLETE  REVEHSAL  OF  POPULATION  ^WAS  OCCUnED 
690  LET  Pl-^: 
700  LET  P0«0 
710  LET  LCD-PU 
720  LET  UCT)«Pi 
730  NEAT  T 

7/»0  HEM  OUTPUT  OF  iiE:iULTS 

750  PrilNT  ''HOW  DO  YOU  WISH  TO  SEE  THE  UE:iULT:57*' 
76U  PrtlNf  'MsfABLE  ONLY#   2»G«APH  ONLY#  U«BOTn"; 
770   INPUT  E 
760   FOrt  T-UT02 
7^U    IF  E«T  THEN  tt^^S 
ttUU  NEAT  T 

dlO  PHINT  "AW  C'MON.    I'M  NOT  DUMB.   TrtY  AGAIN." 
tt2U   GO  TO  760 
623  PHINT 

625  PHINT 

626  PHINT  ••FOH  A  MUTATION  HATE  0F**;M 
&30    IF  E>1  THEN 
640  PRINT^ 

'650  PHINT  " ' 

660  PHINT  "YEArt'S    "DAHK  MOTHb"*    '•LIGHT  MOTnS" 

t370  phinY  

675  HEM     OUTPUT  TABLE 
ttdO  KOh  T»l    TO  30 
ttVO  PHiNi    T*   DCT)*  LCT) 
yOO  NEAT  r 

ViO    IF  E«l    THEN  1060 
915  PHINT 
yao  PHINT 

925  PHINT       ••^••L«LIGnT  MOTrtS-f        D=DAiiK  MOinb" 

930  PHINT       ••^"VALUiib   GrtAPnED  AS  PErtCENTAGE  OF  h'OPULATl  ON . " 
935  PHINT 

940  HEM  SCALE  OF  GiiAPH   IS  ^KKO  TO  ONE 
990  PulNT  TAd(S);"0"JTAb<54);"lOO" 

1000  PHINT  TABC5);"I  1  1  1  1  1 

10 10    FOH  T=l    ro  JO 

luao  PniNT  r; rAB(5);**i"; 

1023  LET  L(T)«50*L<T)/^ 
1026  LET  D(T)a5U*D(T)/^ 
1030    IF  L(T)>D(T)    THEN  1060 
IU4U    IF  D(T)>  LCT)   ThElM   10  70 
1050  PHINT  TAB(5  +  L(T));***'* 
1055  GO  TO  IU75 

106U  h'HlNT   TAB   (  S+DC  T  )  )  ; '•D" ;    TABC  5  +  L<  D  )  ;  "L" 
1065   GO  TO  1075 

1070  PHINT   TABC  5  +  L<T)  );"L**;TAB<  5  +  D<  T)  );"D" 
10  75  NEAT  r 
1060  PHINT 
1090  PHINT 

UOO  PHINT  ••DO  YOU  WANT  TO  rtUN  THIS  PHOGHAh  AGAIN   <  1  «YES*0=NO ) 

lUO    INPUT  E 

1120   IF  E^l    THEN  200 

1130    IF  E<>0   THEN  UOO 

U40  END 
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DISCIPLINE 


BIOLOGY 


SUBJECT  GAMETOGENESIS  4- INHERITANCE 
PROGRAM  NAME  GAMGN 


A 

ff^^naj^v^v^®^  Process  of  gametogenesis,  applying  U  to  the  concept  of 

S^^cessive  traits. 


^ivi^.W^'^*        meaning  of  the  terms  random  assortment,  meiotic 
\r\^*  monoploid,  and  diploid. 

^'   P^og^^^iV        student  to  make  decisions  based  upon  knowledge  gained  in  the 
Kri^f  thus  causing  the  students  to  think. 

and  reinforce  both  spermatogenesis  and  oogenesis. 
QjX\^^nts  should  be  familiar  with  all  phases  of  meiosis. 

i^hetics^  should  have  been  introduced  so  that  the  student  understands  the 
^w^^li^^^^^^®       gene  action,  dominance  and  recessiveness,  homologous 
X^M  n'^^^^^l^ologous  chromosomes. 

tV^g^*'""^^'^^         machine  knowledge.    Keep  in  mind  that  for  this  program 
gtudents  should  be  ^iven  time  to  try  to  determine  what  genetic  traits 
^  Represented  by  the  chromosome  designation  shown  in  the  program. 


normal  wing  -  red  eye 
normal  wing  -  white  eye 
ves  tigial  wing 
lethal  gene 


=  A1A2, 

=  A1A2, 

=  AlAl, 

=  A1A2, 


B1B2, 
B2B2, 
B1B2, 
B1B2, 


C1C2, 
C1C2, 
C1C2, 
ClCl, 


D1D2 
D1D2 
D1D2 
D1D2 


B 


red  eye 

white  eye 

normal  wing 

vestigial  wing 
non  lethal  gene 
lethal  gene  carrier 
lethal  (dies) 


-   none  necessary 


=  B1B2   or  BlBl 

=  B2B2  (recessive) 

=  A1A2   or  A2A2 

=  AlAl  (recessive) 

=  C2C2 

=  C1C2 

=  ClCl  (recessive) 
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DISCUSSION; 

A.  Operational  Suggestions 

1.  Student  level  -  Average  to  above  average  ability 

2.  If  the  student  is  confused  alert  him  to  the  fact  that  chromosomes  are 
letters  and  the  number  following  the  letter  represent  genes.    Similar  letters 
indicate  homologous  chromosomes,     (see  program) 

3.  Read  the  program  ahead  of  time  to  make  sure  your  students  are  familiar 
with  the  terms  used  in  the  program. 

4.  If  the  students  are  thrown  off  the  machine  see  that  they  review  with  the 
teacher  the  concept  of  gametogenesis  before  continuing  with  the  program. 

5.  Ideally,  students  should  work  individually.  If  this  is  not  possible,  then 
work  in  groups  of  5  or  less.  Allow  one  group  at  a  time  at  the  computer 
while  the  remaining  groups  are  engaged  in  a  related  activity. 

B.  Suggested  Follow-up 

To  maximize  the  value  of  this  program,  it  is  strongly  suggested  that  the 
teacher: 

1.  Elicit  from  the  students: 

What  are  the  gene  locations    for  the  various  genetic  traits  (eye  color, 
wing  normalcy,  lethality)?    Which  is  recessive?    Which  is  dominant? 
Why  is  there  no  chance  that  the  offspring  will  have  the  exact  chromosomal 
composition  of  the  father? 

2.  Ask  the  following  questions,  based  on  the  information  given,  as  lead-ins 
to  discussion  or  as  a  homework  assignment. 

(a)  What  is  a  polar  body?    How  does  the  formation  of  polar  bodies 
increase  the  survival  chance  of  the  egg  cell? 

(b)  How  is  random  assortment  responsible  for  genetic  trait  variations? 

(c)  Why  is  it  possible  for  all  offspring  to  have  the  same  traits  without 
variations  ? 


ARTICULATION  INTO  NEXT  AREA  TO  BE  COVERED: 

This  program  can  lead  directly  into  the  topic  of  genetics.    A  second 
program,  DROS     ,  appearing  in  the  manual,  should  follow.    It  demonstrates, 
with  a  game,  the  random  recombinations  of  the  chromosomes  in  offspring, 
showing  all  possible  combinations  and,  if  repeated  often  enough,  Mendelian  ratios. 


TrtE  FOLLOWING  DlAGiiAMb  AKE  UEr^rtESENTAn  ONi  OF  t'UlMAiU  ^Ea 
CELLS.   ChnOMOSOiMES  AilE  KEt^iiEbEN TED  LEi'i'EUb* 

t'nlMAKY  Si^EKMATOCYTE  r»rtlMAiiY  OOCYTE 


C   Al   Aa      )  (   A3  A^  ) 

(  )  (  ) 

(    Bl   32      )  C   B3  34  ) 


BY    i'Yi^lNG  IN  A  NUMBEH^WhAT   lb  TrtE  Dlt'LOID  NUWBEn  OF 
CrtrtOMOSOMES  FOrt  THIS  ORGANISM?  4 

SO   YOU  SEE  THAT  Al   ♦  A2j    FOri  EAAMx^LE^   AilE  t'AlUS  OF  HOMOLOGOUS 
ChaOMOSOMES.    IT  IS  ESSENTIAL  THAT  AFTEn  FErtTlLl^iATl  ON^    IF  fHE 
Olr'LOlD  CONDITION   I S  TO  BE  HETAINED  THAT   WE  HAVE  SOME  MEANS  OF 
t'LAClNG  ONLY  ONE  A  AND  ONE  B  CHHOMOSOME   IN  TftE  Sh'EiiM  AND  ONLY 
ONE  A  AND  ONE  B  CftHOMOSOME   IN  TrtE  EGG.    TrtlS   IiNlv/OLVEb  MEIOSIS. 


LOOK  AT  TrtE  t'rtlMArty   Si^EHMATOC YTE  ABOVE. 

UUHING   THE  FlrtST   STAGE  OF  MEIOSIS^   THE  r-u^LE  SEA  CELL 

SHOULD  Ai^HEAH  AS   IT   IS   IN  ONE  OF   THE  FOLLOWING  UlAGfUiMS. 


1 

2 

3 

4 

5 

( 

AlAl 

C 

Al 

A2  ) 

C 

A 

) 

C 

Al   A2  ) 

C 

) 

c 

) 

C 

) 

C 

) 

C 

) 

C 

) 

< 

BlBl 

) 

C 

) 

( 

c 

) 

C 

) 

< 

B2B2 

) 

C 

Bl 

B2  ) 

( 

B 

) 

c 

) 

C 

Bl  B2  ) 

WHICH  DIAGHAM  MOST  CLOSELY  HEPUESENTS  TnlS  MEIOTIC   STAGE   ?  1 


O.K.>   NOW  WE  CAN  MOVE  ALONG.   MEIOTIC  DIVISION  OCCUrtS  AND 
WE  GET  TWO  SECONDAHY  Sh'EHMATOC YTES  FrtOM  EACH  t'HIMAHt 
SHEHMATOCYTE  AND  ONE  SECONDAHY  OOCYTE  FrtOM  EACrt  t'lilKArtY 
OOCYTE.   EACH  SPEHMATOCYTE  CONTAINS   THE  FOLLOWING  CrtHOMOSOMES: 
Al   A2j   Bl   B2.  EACH  OOCYTE  rtAS     A3  A4j   B3  B4. 

THE  HEASON  WHY  ONLY  ONE  OOCYTE   IS  t^rtODUCED  IS: 

DTHE  OOCYTE  DOES  NOT  UNUEhGO  DIVISION. 

2)  THE  OOCYTE  DIVIDES  AFTEH  FEHTI  LI /lAT  I  ON . 

3)  A  HOLAH  body  is  FOrtMED. 

^DTHErtE   IS  AN  EiirtOH  IN  THE  COM^Ul'EH. 

WHICH  NUMBEH  WOULD  HEHrtESENT    frtE  COHHECT  ANSWEH?  3 

COHKECT.  NOW  LET'S  MOVE  TO  THE  FINAL  STAGE   IN  WrtlCrt 

WE   WILL  END   Ur»   WITH  4  MONOHLO I D  C  HAi^LOI  D  )    bh'EHM- -  1  )  A  1  B  1 
2)a2B2     3)A1B2     4)A2B1     AND  ONE  OVUM — 1 )A3B3  OH  2)A4B4 
Ort     3)A3B4     OH  4)A4B3 

WHAT   lb   TrtE  POSSIBILITY  THAT  THE  OFFSPRING   WILL  HAVE 
THE  SAME  CHrtOMOSOWAL  COMPOSITION  AS  TrtE  FATHEH? 
PHINT  ONE  OF  THE  FOLLOWING  NUMBErtS. 

1)5U   CHANCE       2) NO  CHANCE       3)1U0  CHANCE 

4)  YOU  CAN'T  TELL  FHOM  THE   INFOKMATION  GIVEN 

?  2 

GOOD  THINKING. 

I  HOPE  YOU  HAVE  A  FAIkLY   GOOD   IDEA  OF  SEVEHAL  PHINCIPLES 
INVOLVED^   PAHTICULAHLY  HANDOM  ASSOrtTMENf. 
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OCCUiii   IW  A  r'Ur' JLrtiiON^    wt   WILL  Ourt  OuClHiNi  1 int  r      A  i' 

rLij   UiiOSOr'nlLa^    ^wniun  nAi  o  ri^a   TnE  Dlr'LOlu  iviUWiiEit  OF 
CnxtOk'.OoOi''iEi>»      I'nE  rULLUWiiNiG   WILL  nEr'riESEiN  i    CEiifAAN  COiVU  1 T  A  UtNib 
li>J  FivJA  f  KL1E:3  : 

k\jOru%HL   WAi\/tj-;tEU  E'i  tL^Hi  r\£i  ^    dlUi^j    CiCci^  UlUki 
i\IO)u\AL   Wli\G-//nliE   ExE  =  HlHa^    oizioa^    ClCiii^  Ulu<:i 
v/E^A'AGlAL   i«lWG=HlAi^    Liiad,    ClChi,  UlU'ei 
LEinAL   GEWE=AlAa^    blcJiii^    CiCU  Uluy 

^uri-U^E   WE  CuOoS    ifiE  NOiiWAL  uEU   ETEU   Wl  fn    InE  wOnNaL  WhlAE 
ExEU  FnUl  i"  FLY.    WnA  f  COULU    i'nL   OKFijr'UlNG  LOUa  LIKE?    LOOa  Ai 
frtE   GEiNiOTVh'Ei?  CArtEFULLi   AwD  i)EE   IF   /OU  CAN  r-iCK  JUT  inE 
UlFFEiiENT   GE^E  CUl'iU  1  i\/A  i' X  Oi>Jo  •    I'nEiN)  ^iAhE  ALL  r'0:3^1dLE  CuO:3;3Ej« 
til   A  LATE;-.  DAfE>    wE   WILL  i>EE  nOW  A^    TrtE  COMi^UTEii^  Caw 
oOLVE    rril:>  r'liOdLEL^  rOiv  XUU* 

uUi   FliiSr^    TAKE  Tni^   brlEEi*  daCK  VO    xOUri  oEai^  KiViU   WOivK  Oiv   A  l' . 


iuilaux 
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luUjihi*i  This  HiiOGiiAN  Dit.\;LLOl^t:b         ri»   CUOr'c;uMAN--dOn^   GLKiNiiN)  nl  Gn  SCnOOL 
105  jiEM     itEVISED  BY  C»LOblK  l-'^-lO 
107  HEM     ALL  INi^UVS  AhE  ^E^ii^OftArt^ 

llOi^xUN'fTHE  FOLLOWiNG  DiAGrtAMi)  Ai\£  iviu'nEl^EiNJTAT  I  Qivb   OF  Hrtli'jAnY  SEa" 
lciOr'nlNr"CELL5»   ChiiOWOSOMEb  AaE  ^icU^iiEbEM'ED  BY   Lxl  1' I'ir;^  • " 


IJOr'rtlNr 

l^Or'itlivf  l"riilMAn/   Sr* Eil^lATOC Y  I'E  r'iil/iHn^  OOCYVi:;'* 

ISur'nliv^f     

leur'rtlivl"  <   Al   a2      )  <  ri^ 

17UrulNT"  C                   )  ( 

IdOr'nlNr"  C   Bl  Bii     )  (   BJ  )" 

lyOPulNf   r   

iiOOt'rilNT 
cilOLKT  faU 


a20r'rtlNT"BY   TYr»ING   IN  A  i\i J^^BEi^^  WhA T   1:3   inc.  Olr'LOlD  ivi Ji^tinln  OF" 

iiJOr»j<lNr"Cni^0h0;30iML:3  rOn   I'rtl^  O.kGAMbW"; 

ii^OliWUl'  0 

1^30  IK   0  =  ^    l'rtEi\  JcJU 

a^bOf^iU^  I' 

^VOr'iilM  1"  r^nE    YOU   5Unh    I'rtA  1'   YOU   UNOhiO  ih.\;D   WnA  f   1      i'^iii.  u\t  A'  at  Uir'LOlU" 
k:tf0^2a.NJi"Ai\D  liAi-LOID?" 
civulF    Y=l    ihEN    I  loo 
JOOLEf  x=r+l 

jioGO  10  aao 

JaOr'iUNT 

33Ur'ulNT"S0  YOU  :3EE  I'nA  i  Al  +  t\'d*  FOiv  EaAi'i^^LEj  AriE  r'aiiib  OF  nOi'iOLOGOOi)" 
340r»rili\i  i'"Crti\0n0b0hE:3»  IT  16  E^abENTlAL  inAl'  AFlcn  EnV  ILl  ^A 1  1  Oi\i^  iK  I'rtE" 
JSOHnlNi'"DlHL01D  CONDinOiNj  i  :3  TO  BE  iiETAlNED  TriAT  wE  rtMv;E  oOi^iE  i^iEANb  OF 
J60r>nlNT'VLACliNJG  ONLY  ONE  A  AiNjD  OiME  B  CnnOi^Ui)OrtE  IN  TrtE  br'En^i  rtNu  OwLY" 
37Ur'nlN^••0^E  A  AND  ONE  B  Cn2iOi';0:30WE  I  i\i  InE  EGG»  Tnl^i  INvyOLv/t^a  dEJLOSlb*" 
JoU/^rtlNT 


jyOi^rtlN  r"LO0A  AT  TrtE 

r'rtlWA^tY    Sr'EitfiAi'OCY  TE 

ABOVE." 

^Of^nlNT"DUrtlNG  THE 

FlrtSr 

:3TAGE 

OF 

WEiO:3lb 

THE  KALE  ^EA 

CELL" 

^10PHlNT"SrtOULD  Ai^^EAn  fKS 

IT  1:3 

IN 

ONE  OF 

IrtE  FOLLOWING 

ulAGKAMb. 

•• 

^iiU^'HlNT 

1 

3 

5" 

^bUr'nlNT'^C 

AlAl  > 

(  Al 

Ay  > 

( 

A 

)      (      Al   A2  ^ 

C 

) 

^60i^UlNT"( 

fK'di\2  } 

( 

) 

( 

>      (  > 

( 

) 

^70PH1NT"( 

BlBl  } 

( 

> 

( 

)      C  ) 

C 

^0PHINT"( 

B'dB-d  ) 

(  Bl 

Ba  ) 

( 

B 

^      (  > 

•  (      Bl  Bci 

buOLET  A=U 
blUi^HlNT 

SaOr'rtI  NT"  WHICH  DiAGriAM  MObl  CLOSELY   rlEt^nESEN        TnlS  i^jElOTlC  STAGE  "i 

b3UlNl^UT  D 

b^OlF  D=l    THEN  60U 

SSOr'HlNT 

S60r>2ilNT"  YOUn  KEASONING   1  :d  FAULTY." 

S6b  r*HlNf   "DO   YOU  HECALL   THAT  A    rEfitAD   IS  FOnWED?" 

57UlFA=ciTHEN    1  i  dO 

SbULEr  A=A-fl 

5*^0  60    rO  5^0 

5UUi^rtlNT 

61U^>rtlNT"0.K- >   NOW   WK  CAN  MOVE  ALONG*   MElOflC  DIVISION   OCCUuS  AND" 
6diUr'HlNT"WE   GET   TWO   SECONDARY    :3r'EiiWAT0CYTES  FiiOM  EACn  PHlMAHY" 
63UPHlNT"S>^EiiMAT0CYTE  AND  ONh  SECONDAnY   OOCYTE  FrtOM  EACH  r'HlMArtY  " 
64U*^H1NT"00CYTE.   EACrt  Sr'EitMA  i'OC  Y  TE  C0NrAlN:3  THE  FOLLOWING  CHrtOMOSOMES : " 
650r>rtlNT"Ai    f\2,    81    Bii .  EfXCn   OOCYTE  nAS     A3  A^>    B3  B^." 

660PHINT 

67UP2<1NT"THE  nEASON   WHY   ONLY   ONE  OOCYTE   IS  HrtODUCED  1:3:" 
6bUHrtlNT 

6VUHR1NT"  I)  THE  OOCYTE  DOES  NOT  UNDEilGO  DIVISION." 

TUOHrtlNT"  ki)rhE   OOCYTE  i'^ilDES  AFTEH  FEnT  ILl  iC.AT  1  ON  .  " 
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V  O'jr  ikliNi  1 

VVulh'   i:.  =  J    incu  oiu 

Vou.-'iwIN  r":3  fO*^  U  Jt.Jjli\.G«  I'iihikh.  i\  r'::;»vi^  c^C  IX  r  tiuuu  c^^HLa.vjf 1 1  1  Oi\i  uiilCii" 
7^ur'ivl;>i  i  "fiHj  »-4  vyii'HL  r'u.vC  i  i  Uivj  •  " 

c  i  Jr'iil  i\j  i'"C04wiiLu  I  •  .v^Uv;  LiL  i        I'lUv/ii    lU    I'nc:  r  iivjr\L  oiAt-ji:,    i  .vj  v.niCn" 

CciUr'iULVj  1"  u>;ii    *1LL  bivjU   u*-    v.l  in   4  i'iO:>i  Vi^LO  lUi  mit'LOi  u)        C4.K  -  -  1  )  a  i  U  i  " 

oGuf-iil  »vj  1"  Aiia  i*  inc.  i^U^olulLiir    inHi    I'nt,        F  jr-iv  1 N  G   wlLL  nnUt:'* 

o7ur'Aiii>;  A*"  li.c    JH.-.it,   Ci w I U;'iU  J UK.-iL    CUi'x' U:^  1  1  1  OC^  i'nt   r  A  ixihii ? 

ooUr'iki  N  A 'Vnl  iNJ  1    u.njK   Oh    in£   KULcUWiivjG   *\IUi%iJtiv  J  •  " 

oVUr'iilMi*"  i  )  bu    GfiiA.-^CbJ        d)i^O  Cnfli^Ct,        j)iuu  Cniii^iCc" 

vuux^iil  i\  A"  ^)IUU   Caw  •  i    i  cLL   rnOi**    inc.    1  lgKO.u^^i  i  1  O^j  CjiVKivj" 

y  A  w  1  Wi-*  iJ  1  K 

V'^UlF   F  =  ;:i    fhh:*^j  V6J 

VJUr»rtI.NJT"  ^  OJ   COl)LL»i\i  •  1*  Jc:  i\0:i£:    WxiONG.    LOOK  HI"  ALL    int   CELL:?  aGAliM  AND" 
v^iUr'ivItNlf  "COf'ir'rtiic:  ALL      05 6 1 U i  L X  1  1  fc!:?  .  " 
ybuCO    A*0  ViU 

yftuHjiliVJ  i-'GOOD    rnl  WKIWG." 

V7ur'uItM  A'*'l    riOr^E   YOU  ntWJU.  A  FAIkLT    GOOD    lUiiA  OF   ^iL^Liu-iL  r'ui  MO  Ir'Lc:?" 
VciOt^itl  NT*'  I  i<t\JOL'sJ}iD*   x^rtri  1"1  CULf-WiL  r   ilANUUN  A:3bO;i  1  t>'iht\i  1  •  " 
WOr'i-il  i\J  f 

100ur'itltMi*"ivjOW  Lt.i'':3   :3iih    IF    lvi£   CAiM   J:3£    Tntic;    lUii-^ii    I'O   Oc  l  c.m«il  iXit  WnAi" 
lu  lui^rtli\  i  "OCCUiiJ   Ii^J  A  /-'O/'ULa  1  i  Jivj  •    wc    UiLL  J:3C  H:?  oUii  Ox^GHivj  1  ii^i  Tnt  FiiUi 
luiiUr'ivl  t\i r*'FL  I  *    Lijv0:30*^nl  La*    wnlCn  nAa   o  A:3    Ant  Uir'LOlL)   i\)Ut'4iihx\  OF" 
iu:iOf-hltNii'"CnitOi^jUoOi'jt;:3«      A'nfc:  .FuLL0Wl;\iG   wlLL  rLtLfnh'Dti^  X   Ctiil'AliSj   COiNibi  TlQiV 
luJo  i^iili\IA    "iiNj  rjiuil'  FLlbja 
lO^Or'xiiW  A' 

^obO^'I\ll^if'^^JOi:i^AL    ^i:NiG-i.c.D  .I::Vh;  =  AlAbi*    616^*    CiCii*  UiU^" 
Au60r'n.i  iNj  i  "wUiii^HL    .vi  C^G- wn i  Vc.   £rt.=HiHii*    dcidii*    ClCc:^  UiLici" 
Au7ur'*wlWA'"0'zLollGiHL    ^li\)G=AlAW    Uibci/    CiC^i*  DiUii" 
lOoUf-ivIiN)  i  "Lh  A'naL  GL:\Jii  =  A  la2  *   liiiS'^*   CiCi*  Dluii" 
iJVOr'ni  i\i  i* 

I  iuur'nl  kVJ  i*"  J  Jr'f-O  Ji:*    vJt.   Ci»0.j:3    inL   ivjOa^i^aL  cXiilJ        An    in.^i   l^JOla^•aL  Wni 

ii  iOr'iil^Nii^liiED  FuUi  i*  FLY.    wnA  i'   COuLU    A'nt.  OFFo/-iil isiG  LuOa  LiKL?   LuOi\  AT* 

iiiiOi-'iwiiNii"*  Ant:   GcIiMOTYi^hij   CAi.EFuLLx    AivjD   Jatc;   iF    lOU   CaInj  r'iCA  OUT  I'Mi^" 

i  i  JUf-lvli\II"DlFFt:ivr:L\J  1'   G'£'i<itt.   COi'»LJ  1  NA  A' 1  Oi\  j  •    Tnt^ivj   luAric  aLL  r'Oool  BLt.  '  CiiO:?  jii:?  • 

iMur'ivlivj  i"*AT  A  LA  TLxi   L)Hl*b*    wii    WILL   Jatlc.  nOW  fnc.   COt'if- U  Ihiv^  CAM" 

libUf-iLli\)i"bOLv;r:    iniij  r'ltUiJLEW   FOa  rOU." 

U  6Ui-*iiIM  r"oU  I"  FiiiST*  TaKc;  fnli  SnEh-f  BACK  A  O  iOui\  ohAi\j  AiNib  WOiiA  Oivj  1  1' 
ii70  biOr* 

i  itoOf-'iilMT"  tOU'uh   UUjl    GuE:3ilivjG«    1   uOi\ '  l*  na^/b    lli'iE    TO  FOOL" 

Uyui-*iiiivjr"AKOUNL)«    AaKb    A*nlo   :3nch:i    Ou  1   Ai'>iL)   oiUui    1  f i    i'n£i\i   jEE  YOU*l" 
i-^UUt^iil  iS»  r"  ffclACnbii  iJaFUxiE   tOU   COC»iE  dACK    A  O  i-iE«" 
iirilUivEi'i  ivjhAf  i^itOGiJHi'*  L^)A^iE  DiiOi** 
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CELL  MEMBRANES 


PROGRAM  NAME 


MEMBR 


DESCRIPTION: 

This  program  simulates  an  experiment  on  diffusion.  Membrane 
characteristics  are  "  obser^'ed"  by  the  student,  and  means  of  transport 
across  membranes  identified. 


OBJECTIVES: 

A.  To  provide  background  for  understanding  of  transport  of  materials  across 
living  membranes; 

B.  To  evaluate  and  reinforce  an  understanding  of  conditions  under  which 
diffusion,  osmosis,  and  active  transport  take  place; 

C.  To  help  in  the  understanding  of  solution  concentrations. 
PRELIMINARY  PREPARATION: 

A.  Student  «  exposed  to  the  meaning  of  diffusion,  osmosis,  active  transport, 
and  semipermeable;  should  understand  the  need  for  energy  expenditure 

in  accive  transport;  and  have  observed  or  performed  the  iodine  test  for  starch. 

B.  Materials   -  a    prepared  ditto  of  questions  to  be  answered  by  students  as  a 
homework  assignment  or  for  classroom  discussion. 


1.  Student  level  -  this  program  has  been  effective  with  average  and  above 
average  students. 

2.  An  incorrect  answer  results  in  the  students  being  instructed  to  return 

to  their  seats,  correct  their  answer,  and  give  a  reason  for  its  correctness. 
A  correct  answer  is  immediately  reinforced. 

3.  The  class  is  grouped.    A  maximum  of  5  per  group  is  recommended.    The  groups 
sequentially  run  the  program  until  completion,  or  they  are  sent  away 

from  the  machine  by  an  incorrect  answer.     The  other  groups  may  be 
engaged  in  performance  of  the  same  experiment  being  "  done"  by  the 
*  computer,  or  in  a  related  activity.    Interruption  of  an  actual  experiment, 
as  a  group  goes  to  the  computer,  should  not  affect  the  results. 

4.  When  the  program  is  to  be  used  with  more  than  one  class,  it  is  suggeste«1 
that  the  data  line  in  the  pros^ram  (see  list)  be  changed.    Since  this  is  a 


DISCUSSION: 


A.     Operational  Suggestions 
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simple  change  to  make,  it  can  be  made  between  groups  within  a  class. 
This  prevents  their  memorization  and/ or  transmission  to  other  groups 
and  classes.    Examples  follow: 

14{^  DATAIO,  11,  12,  13,  14   may  be  changed  to: 

140DATA1,2,  3,  4,  5 
or  14{^  DATA4,  2,  6,  9,  1 

or  14{<  DATA20  ,30,40,50,60 

Any  combination  of  numbers  may  be  inserted.    There  must  be  a  total  of 
of  five,  however,  since  the  student  is  asked  to  respond  to  five  questions. 

It  has  been  found  that  extensive  discussion  preceeds  the  answering  of  each 
question  on  the  ComputerLand  in  the  writing  of  the  rationalizations.  This 
is  certainly  desirable. 

Suggested  Follow-up 

Questions  which  may  be  used  for  discussion,  or  given  as  a  homework 
assignment: 

1.  What  happens  to  the  concentration  of  water  within  the  membrane  as  the 
glucose  diffuses  out?  Why? 

2.  W^hat  observations  indicated  that  the  iodine  had  moved  into  the  "cell"  ? 

3.  Why  couldn' t  the  same  observations  be  made  outside  of  the  membrane? 

4.  What  changes  in  observations  would  you  expect  if  the  cellophane  had  not 
been  permeable? 

5.  Can  materials  diffuse  through  a  semipermeable  membrane  in  both 
directions  at  the  same  time? 

^.  What  is  meant  by  equilibrium? 

7.   Under  what  conditions  is  a  cell  in  complete  equilibrium  with  its 
environment?    (When  it  is  dead.  ) 
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AW  iM/^OiiTANT  FONCriON  OF  CKLL  MlLfttiitANi:;:^  1  :>  TO  UONl'itUL 
rnK  i-ASbAGE  OF  MATEhlAL  INTO  AiXU  OUT  OF  CtlLLb.    i'ni:i  ^»i<OGrtAM 
GOtuS  IN  i  O   fhh:  MEAWb  i3Y  WnlCn  i'rilS  t^HOCk;:^:^   rAKt;:>  t^LACE. 

IN  Vhlb  EAi^Ertli^lhivr  A   cifAitOh  AND  GLUCOSE  ^OLJilOiM  WAS 
i^LACED   WITHIN  A  h'lEUE  OF  CELLOl^rtANE    fUtilNG.    CELLO^»rtANE  i:^ 
fOtiOOS  ENOUGH  TO  t^ExiMl  f   THE  *^A:d6AGE  OF   50ME  5MALLEH  MOLECULEo 
THrtOUGH   IT.   TrtErtEFOxiE/   A  CLOSED  OFF  h'lECE  OF  TUBING  CAN 
itfcynEbENT  A  CELL. 

AFTLu  frtE  :ji'ArtCrt  AiNJO  GLUCOSE  SOLUflON  WAS  ^» LACED  INTO  THE 
TUcJlNG/  THE  END  WAS  TIED  OFF  AND  TnE  'CELL'  ^•  LACED  Iim  dEAKEn 
OF   WATEH  TO   miCti  A  FEW  DrtOr»S  OF  IODINE  rtAD  BEEN  ADDED. 

LET      10      rtEi^HESENT   THE  OUTSIDE  OF    fnE  MEWditANE 
LET      11      rtEPrtESENT    THE   INblDE  OK  TnE  WE^iBiiANh 

lyhErtE   IS    THE  CONCENTfiA  1"  I  ON  OF   GLUCOSE  THE  GnEATE^f?  11 

rhAT  IS  COHHECr.    WrtEKE   IS  THE  CONCEN THATI ON  OF  S  TAitCrt  inE 
GHEATEST?  11 

rtlGHT.      WnEivE'li    frtE  CONCENTiiAT  I  ON  OF   IODINE   TrtE   GnEriTESf?  lu 

WDW!      WHAT  A  SU^'ErtlOH  MIND  ^00  xiAWE/   Ort  I S   I  f  JUST  LUCKV 
GUESSING?    WHEHE   IS    I'HE  CONCEN  i'rtA  f  I  ON  OF   WATErt  TrtE  GrtEATEST?  lU 

YES.      IF  THE  MEMBilANE   WErtE   TrtE  OUTEii  LINIT^  OF  A  LIVING 
CELL#    WHICH  OF  THE  i^rtOCElsSES  BELOW  WOULD  ACCOUNT  FOn  TrtE  MOVE- 
MENT OF   GLUCOSE  OUT  OF  THE  CELL? 

LET  OSMOSIS  =  12 

LET  ACTIVE   TrtANS^•Ortr  =  13 

LET  DIFFUSION  =  M 

?  M 

COHHECT.      THE   GLUCOSE  DIFFUSED  FrtOM  AN  ArtEA  OF  rtl GrtEu 
CONCEN  TiiATION  TO  ONE  OF  LOWErt  CONCEN  filATI  ON .    WHICH  ^»rtOCE:3S 
WOULD  ACCOUNT  KOk  THE  riOVEMENT  OF  THE   WATErt  OUT  OF  THE  CELL?  13 

rtlGHT.      THE  CONCENTHATI  UN  OF   WA  i'Ert  IS   GrtEAl'Ert  OUTSIDE  OF  THE 
CELL  THAN   INSIDE.   ACTIVE    rrtANS^»Orti'   WOULD  ACCOUNT  FOrt  MOVE- 
MENT AGAINST  DIFFUSION.    WrtlCrt  |JriOCES:>   WOULD   EAr^LAIN  TrtE 
TrtANSPOrtf  OF   WATEH   INTO  THE  CELL?  I'd 

YES/    OSMOSIS   IS  DIFFUSION  OF   WATEH  TrtrtOUGrt  a  ^jEMIi^EHMEABLE 
MEMBrtANE.    IF  THE  IODINE  OUTSIDE  OF    THE  CELL  rtAD  TUHNED  BLACK* 
\(*iAT  PHOCESS   WOULD  nAVE  CAUSED  IT?  13 

YES.      SINCE  STAHCH  MOLECULES  AHE  HELAflVELY   LAHGEj    TrtE  CELL 
WOULD  HAVE   TO  EAi^END  ENEHGY   TO  MOVE    THEM  AChOSS  THE 
MEMBHANE/    EVEN   WrtEN    THE  STArtCrt  CONCEN  i'rtATI  ON    IS  GrtEATExi 
INSIDE   THE  CELL. 

CONGi^TULA  riON:>.      YOU  rtAVE   SCOHED   lUO.   KEE^•   U*^  THE  GOOD  WOHK. 

END  OF  r^rtOGrlAM  **% 
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lUUrtHM  U(JUia>  diOLOGY>  7/y/6^ 

lot)  HEM     rtcIVlbtU  UX"  C.LOblK  7'9'70 
10  7  UKM     ALL   iN^Ul  j  H^tt:  Itrir'OrtHiii 

ilOt^iilM'"  CilLL  hEi'i£3;u\Nh::»" 

ISOt^iilNT 

I30ri£ADL>M>N^U^i^ 
I/tOOMrAlU#  1  1  #  ia#  1  14 

iSOf^fiiiNir 

l60^^nlMr*'  AN   INr'Oui'AiNJi    FUwCilOi\  OF  CELL  C.tMauAMcIb   lb    rO  CONTrtOL" 

nOr^rtlNf'THfc:  t^A:>bAGc:  UK  ^iAitiUAL  liNJi'O  AMU  OUT  OF  CcJLLi).    Inib  t^rtOGiiAM" 
l<50*^ulNi"'G0fc::>   INfO  THE  ^lEAN^  aY   WrtlCn   inlb  F'liUCE:?:?   i'rtKEb  t^LACE." 

iiOOt^rtliVJr"  IN    rnlb  EA^Ertli^iEiM  i'  A  :> i'AiiUn  AND  GLOCuSE  SOLO  riON  WAS" 

2lO*^aiNT'VLACED   WlTnlN  A  i^lEOE  OF  ^;ELLO>'rtHN^l  VOdlNG*   OELLOt^nANE  lb" 
iiiiUt^UlNr'VOrtOOb  ENUOGn  TO  *^Exu\l  i'  THE  *^A:>bAGE  OF  bOWE  binALLEH  MOLEOOLEb" 
•iiJUr'rtlNr" TmiOOGri  1  i' •    inEuEFOivEj    A  CLObEU  OFF  h^lECE  OF    rUbliNjG  CAiVi" 

<:/40^iiiNr*MEi^iiEbENr  a  cell." 

iiSOr'rtlNr 

cJ60t^itlNf"  AFTEU  TnE  bXAuCH  AND  GLOCUbE  bOLUl'iON  WA:>  t^LACED  INTO  I'nE 
ii70*^rtlNr*TUHlNG>    friE  END   Wrtb    i'lEU  OFF  AND   inE    'CELL'  r'LrtCED   ZN  A  BEAKEu 

a£JOr^UlNT**OF  WAlEu    lO    wnlUn  A   FEW  DilOr^:>  OF   lODlNE  riAD  dl!.EN  (WDtLU*** 
ayUr^ulNT 

dUOr'rilNr"  LET   "L"   iiEi-'KEbEw i*    THE  OJTolDE  OF  TnE  rtEWdiiANE" 

jlJr'KlwT"  LET   "I'l"    rlEx^KEDENT   TnE   INblUE   Or    inE  WEi'lUitANE" 

JJOt'ulNr"  WrtErtE  inE  CONCEN  fiu^  i'l  ON  OF  GLOCO;iE   fnE  GnEATtoi'"; 

J/40lN*^UiA 

JSOr^ulNT 

J60 1  FAsi"!  IrtEN/i  1 0 

JVOr'nlNfbOniiY .    ThAT   lb  NOT   TnE  COiluECr  AN:ji»/En.    WnY  NOT?    WUl  TE  YOJiv" 
adOt^rtlNT"nEAbONb  ON  a  i^IECE  OF  r'A^^Exi  AND  nAVE    I'nEM  VERIFIED  dY  ^OUii" 
jyOt^rtlNT'*TEACnEH  cJEFUiiE  CALLING  Thib  r^UUGilAM  AGAIN." 
^0  STOP 

/ilOt^nlNT"  ThAl*    lb  OOxikEOT.    WnEnE   lb   TnE  CONCEN  fnATl  ON  OF  bXArtCh  TnE" 

/4iiu*^nlNT"GiiEArEbT"; 

/iJOlNHUTB 

^^OPHlNi* 

ASO 1 F8<  >MTriEW3  70 

/460t^nlNr*HlGrtT.      WrtEuE   lb   i'nE  CONCENTnATl  ON  OF   lOUlNE  TrtE  GnEATEbT"; 

/4701NPUTC 

/itiOPHlNT 

/iVO  I  FC<>LThEN3  70 

500PK1NT"WOWI      WHAT  A   bU^'EivlOK  MIND   YOO  HAVE^    Oii  lb   IT   oObT  LUCKY" 
5IOPnlNT"G0£bblNG?    WnEuE   lb  T>iE  CONCENTnAT  1  ON   OF   WAiEu   TnE  GnEATEbT"; 
520iNPUTD 
SaOPKlN  r 

540 1 FD<>LThEN3  70 

550PnlNi'"YEb»      IF    TnE  MEMbxtANE   WEnE    i'nE  OUIEK  LlMlTb  OF  A  LIVING" 
560PH1N  fCELL>    WHICH  OF    IrtE  PnOCEbbE:^  dELOW   WOULD  ACCOUNT  FOik  THE  WOVE-' 
570PrtlNT"MENT  OF   GLUCObE  OUT  OF  THE  CELL?" 
StiOPxllNT 

590PK1NT"  LET  ObMOblS  «  "N 

600PnlNT"  LET  ACTIVE  THANbPOiiT   «  "0 

6lOPrtlNT"  LET  DlFFUblON  =»  'V 

620  INPUT  E 
630PX11NT 

640 1 FEOPTHEN370 

650PnINT"C0nnEC  r.      THE   GLUCObE  DlFFUbED  Fu0^i  AN  AiiEA  OF  nlGHEn" 
660PKlNT"C0NCENTiiAT10N    TO   ONE  OF  LOWEn  CONCENTrtAT  1  ON  •    WnlCn  PnOCE^b" 
670r^KlNT"W0ULD  ACCOUNT  FOn  THE  M0VE^3ENT  OF    THE   WATEK  OUT  OF  THE  CELL"; 
6b01NPUTF 
6yoPnlNT 

•WUlFF<>0TH£i\)3  7O 
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7lu*^uIiS»i*'niGni  .      inE  CUNCEM'fuU* i ON  OK   ^Ai'iiu  ii  GahHicIa  OvJiolDii  OK  inE" 
TrfJi^nlNi'^UELL   i'nAiM   iW^lUK.  ACi'i\;L   iiiANSr'Ui^i'   WOULD  AOOOUMi'  FOi\  i'iOViL-" 
VJUr'uIwi^riC.Nl'  ACAAiv^i'  UlFKUdlON*    WniUn  r'nuOiijo  WOuLu  iiAr'LAiw  Inc.*' 
7^Ur'uliVji'**iJtA4NW'OUi    OK    wAI'Eu  lk\iTO    i'nE  CELL"; 
VSOlNx^UTG 

770 1 F  G<  >NTriEN  3  70 

7ttOr'HlNT"yEi*   05W0:>15  io  UiKFOiiOiv  OK   WAi'E/t  THnOUGn  A  SEwI*JEiXi^hAiiLh" 

7^0i-nlNT"MEMUrtANE,    IF  Tnh  lObiiME  OOr^^lDE  OF  TriE  CELL  HAD   lUitMEU  bLrtCKj" 

tSOOr»rtlNr*'Wrtrti'  HuOCEoj   WOULD  HA\;E  CAU:>ED  if*'; 

dlOlMPUTh 

620HiilNT 

ttJOlFH«OTHENt560 

tiaOr'/tlNT'*NO. 

bbOGOrOtt70 

b60HiilNT"tE5. 

ti70f>alNi"*51NCK  biAuCh  ^JOLECULE:>  AnE  rtEUAriVEL/  LAKGfcj    TnE  CELL*' 
tittOHKlNT!* WOULD  HAVE  TO  Ea*^END  ENEHGY  TO  MOVE  THEM  ACHObii  THE  '* 
bVOr'HlNT"MEMBftANE#   EVEN   WhEN   THE  5TAHCH  COWCENTiiATl  ON   i  b  GitEATEn** 
yUOHKlNT**lNi>lDE  THE  CELL.'* 
yiOf>aiNT 

yaoiFHoOTHENyeo 

y30PKlNT**C0NqitATULAT10NS.  YOU  HAVE  :>C0iiED  lOO.  KEE*^  UH  inE  GOOD  WOuK." 
y50GOTOy70 

960PH1NT'*VELLj   YOU  HAVE  DONE  WELL  IN  SHITE  OF  bONE  EHrtOrt.'* 
970PRINT 

980PHINT**  ***  END  OF  r'UOGnAM 

990END 
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DISCIPLINE  BIO  LOGY 

SU B J  EC  T  ENZYMES 

PROGRAM  NAME  N7.YMC 


DESCRIPTION: 

This  program  covers  enzymatic  reaction  rates,  and  conveys  the  idea 
that  enzyme  reactions  arc  dependent  upon  environmental  factors  such  as 
pH,  temperature,  and  the  concentration  of  the  enzymes.    A  simulated 
experimental  situation  is  created,  whereby  the  student  works  with  one  para- 
meter at  a  time  and  can  vary  the  degree  of  the  enzyme  reactivity. 

OBJECTIVES; 

The  program  presents  the  students  -he  follov  ing  concepts: 

A.  Enzymatic  reaction  rates  are  dependent  upon  environmental  factors: 
(these  include  pH,  temperature,  concentration  of  enzymes,  and  substrate) 

B.  The  value  of  graphing  to  help  in  the  interpretation  of  data: 

C.  The  meaning  of  the  term  "  limiting  factor"  : 

D.  Different  enzymes  may  vary  in  degree  of  reactivity  and  thereby  affect 
reaction  rates: 

E.  Enzymes  are  not  used  up,   but  can  take  part  in  additional  reactions. 
PRELIMINARY  PREPARATION; 

A.  Student  -  The  student  should  have  some  understanding  of  these  terms: 
pH,  substrate,  enzyme,  and  chemical  reaction.    He  should  know  that 
there  is  a  substrate-enzyme  interaction,  and  that  enzymes  act  as 
catalytic  agents,  therefore,  more  than  one  reaction  can  take  place  with 
one  molecule  of  the  enzyme  over  a  period  of  time. 

B,  Materials   -  graph  paper,  transparencies  of  the  following  plots,  and 
one  of  the  three  tot^ether  for  simultaneous  viewing,  (optional) 
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RATES  OF  ACTIVITY  WHEN  VARYING 


PH 


Enz.  Cone,  and  A 
Temp.  ^ 


pH 


ENZYME  CONCENTRATION 


pH  and  Tennp. 
at  Optimum 


to      3c  to  iC  bo  X*  at  C|r  »ct« 
Enzyme  Concentration 
(in  percentage) 


TEMPERATURE 

pH  and  Enz. 
Cone,  at 
"Optimum 


»t  iS  20  is  .1o  i  Mc      i  Si 
Temperature 
(Deg.  C.  ) 


DISCUSSION: 

A.  Operational  Suggestions 

1.  Student  level  -  Average  to  above  average  ability 

2.  The  student  should  use  all  three  limiting  factors  presented  in  the  com- 
puter program. 

3.  Students*   graphs  shoild  be  checked  before  proceeding  with  the  follow-up 
question. 

4.  Students  work  in  groups  of  5  or  less.  Allow  one  group  at  a  time  at  the 
computer  while  the  remaining  groups  are  engaged  in  a  related  activity. 
For  Example:     Food  testing  with  hydrogen  peroxide  for  catalase  activity, 

B.  Suggested  Follow-up 

To  maximize  the  value  of  this  program,  it  is  strongly  suggested  that  the 
teacher: 

1.    Elicit  from  the  students: 

What  represents  maximum  and  minimum  reaction  rate  for  pH,  temperature, 
and  enzyme  concentration?  (Use  appropriate  transparencies  or  chalkboard) 
1,    Ask  the  following  questions,  based  on  the  plotted  graphs,  as  lead-ins  to 
discussion  or  as  a  homework  assignment. 

(a)  At  what  point  do  most  reactions  take  place  with  regard  to  pH, 
enzyme  concentration,  and  temperature?  (This  and  subsequent 
questions  are  intended  to  bring  up  the  ideas  of  optimal  pH, 
temperature,  and  enzyme  concentration.  ) 

(b)  Why  is  death  caused  when  pH  rises  or  falls  beyond  a  certain 
point  in  a  system? 
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(c)  Why  does  the  concentration  of  enzymes  reach  a  point  and  then 
no  increase  in  reactions  take  place? 

(d)  What  is  normal  body  temperature?    What  relationship  is  there 
between  reaction  rate  and  body  temperature?   High  fever? 
Freezing  temperature?    (Note;    40  deg.  C.  is  104  deg.  F.  , 
which  is  higher  than  normal.  ) 

(e)  Suppose  the  pH  of  a  system  is  7,  enzyme  concentration  is  90, 
and  temperature  is  0  degrees.    What  is  the  reaction  rate*? 
Why? * 

(f)  Supppose  the  temperature  is  37  deg.  C.  ,  enzyme  concentration 
is  30,  and  pH  is  14.    What  is  the  reaction  rate?    Why?  * 

(g)  V^hat  is  meant  by  limiting  factors? 


*  Student  must  examine  all  three  graphs  before  reaching  a  conclusion. 
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rW**  ^  i    ^NJO't^  Hi'^  c-tM^xMc:  Antj   ^g.j    uOUrtiNG   WX  in?   Joe:  A  VALOt.  Of 

S-*^   i  -"i  1  1  1 

^                          U.iib  I  ^ 

$                            '-'^  I.  ♦ 

6                            136. 'ib  ^   1  4c 

f                             lb7.b  1  4. 

l3tt.7S  1  ♦ 

jl  30  1  ♦ 

1'4  ll.iib  I  ^ 

j3  3«7b  * 

0  * 

^  CriOlub:  OF  xht:  kol-lowing  limiting  KACran^i 

o;C0NCENrxiAH0N   OF   hiN^thi^ii  3 )  rt:^ix^EtiArUilfc: 

m^^  ^>  ^Uii^\i-;ON  OF  ElNzi^MEii 

^f<^  AP^^''^^   ^^'"^^    rhE   SUBSi'ttAlfc:         ALWAti,   dUFK  1 C 1  KMT . 

^t^OT  ENZYME  AUfc:   r^OU   WOnKlNG   WITH?   JiiiL  A  VALUE  OF 

jP^OM  rtEACnvK)  CVKliY  rtKACrH^/i^i-    7  7.5 

g^/iVM^/'-v.-.^      REACTION  HATE  0  50  lUU  ISO  2UU 

^   1  1  I  1  1 

li^  0  * 

^1^  33.75  1 

6  7-5  X  * 

^1^  '  101.^5  1  ♦ 

^(^                          i57-5  1  ♦ 

y                          157.5  1  41 

157.5  X  ♦ 

^i}                          i57.5  1  ♦ 


ji;0  157.5  X 
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1 00  niWJtL  i\  OnOlCr:  OF    i  nc.  r  OLLOWliNJli  Lii*.l  I'liNjG  KhOiO*vj: 
i>t^n  2  )COML;£;\iiilAriOW   OF   LL>4i.tiuE:3  J  )  ilLi-a-citA  I  Jiili 

WniCn  NUMuiLii  UO    l  OU   vvl:?ri   ?  J 


nUjw"  i\k::-iO  i  1  v/iL  Ai\  ICN^  ri^;c:  Auh  tOJ  WU*\f\lCyG  wii"n?  Uot-  rt  VrtLOE  OK 
riiOi^j   1    (NOl   v/cInY  xiciAC  i  Ia/il  )    iU   10    Cs/LivX   ivcIrtO  I'l  s^L)  •    ?  V.D 


iviLriO  I'iOi'j  rtHTh  u 
 i  . 


0 

u 

b 

1  1  .^b 

lu 

cici.b 

15 

^1  .db 

JO 

6J.  7b 

^5 

JU 

1  Ici.b 

Jt> 

1  ^6  •  c^D 

no 

iJdV.b 

A5 

JV.b 

DO 

0 

DvJ 


iO  J 
-i-- 


Ibu 


DO    rOU   Wlbn  AiSJOfriiLiV  iiOiM?    IK    r'Eo*   r^nliNjf    i;    IF  NO^   r-i;l.\Jl'  J.    ?  0 

oTUUt    l*nE  GivAi^no  hNU    i'HriLEo*   Hi\/U    fitr    I'O  KlGunn. 
our    WnAr'ii  riAr'r'hiV/lNG  nErtt-» 
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lUUUi^iAC  lb>  «uC  1  1 )  «nClki> 

ilU*iEM  r'ilOGilAM  UcVcILUt'hiJ  UY  ii.   COOr*hrti-iAN  -   oOnt^  GLhisiN  nlGrt  ^iCnOUL 

l^UtiEil  ELWOOU^   MEW  YOiiK 

121   iiti'i     liEUl^iED  i3Y  CLUdIa  7-6"  Vo 

rtE^]  Y«:UEACTIVI  fY 
lc25  U£i^     ALL  nkl^ULT:?  iAiJjLHl'hU  AiNtU  Gru\x't\LU   <.i\tU  Ot'iiONi)) 

I'JUfnliir*  rrtl:3  t'ilOGltA^l  1^  Uh^iUiNihU   lO  DrtUW  TnAi'  hivj^trtt  HCi'lUW  1 

14UF0UN~1 roi4 
IbOiiEAuACM). 
16UNc:aTM 

ITUr'rtligfilhLArhU  fU  CErtlAiN  LlWiliNG  FACfOrtD.  irthat.  FAU  l  Uii:»  liMCLJUt:  t-n*" 
ItoUFUxtN-lTOlU 

JUUNhlATiM 

iilUt'illiM  r"  friE  CUimUc-vI  iiiHi' lOi^  UK  hw^-lrtha*   AwU  TEMr'hni*  i"  Jitfc,.    IN   inlj  *^rtUGi*rti*l" 

2iiUF0m>Jal  TUi  i 

•jaUrtklAUnCN) 

24UNEXTN 

SbUt'itlN  fWE  A55JME    irtAi*    i  wU  JK    irlE    i'rtiihb:  KAC  i'Urta  AilE  CQN^iTACSi  AND" 
aGUt'illNfWlLL  CrtANGE  ONLr   ONt  Ai"  A    I'IME.    WE  ALSO  A^i^iUME    irtAi"  hACrt" 
iiTUf'UlNfFACTO^l  WUrtKS   1  NUcj^KNUEN TLt *   HLi'rtOUGn   iniS   IS  NOT  TitUE  IN" 
.itiU*'rtI;vJT"NA TUuh  ." 
iiyUr'ilXNr 

aUUt^rtlNi'"  XOJ  rtHV/E  H  CrtUlUE  OF   fnE  FULLOWiNG  Llfili'lNG  FACTOrti:" 

JlUf'HXNT  • 

3i2U*^UlNT"l  Jr'h  «J  )CONCEN TrtA  i*  1  ON  UK  liN^YNhS  3)  TLMr^EitA  I'UrtE" 

aJUt-UlNT 

Ji4Ut'rtXNT"WHlCrt  NUMtJExi  UU  YOU   Wl^irt  "; 

35UIN*^UTA 

jeUjJHINT 

37UlFA«rrhEN4£iU 

JtiUlFA*^THEN6bU 

3yaiFA-3THENbiJ 

4UU*>fiXNT"TrtAT  NUi    H  t^EitMlJaXaLE  AN S Whit." 

4I1UG0T034U 

420  **rtlNT  "***  li^ti  ***" 

43UG0SUB52U 

440PHINT 

45U  PRINT   "i^tt  VALUE"*  "HEACT ION  itATE"*"J  50  lUU"; 

^Sli'fiXNT  "  15U  2UU  " 

46U  PrtINT  "  "*"I  1  1"; 

461   PHINT  "  1  1" 

470   DATA  0*1.5«4.O«7*5«I2*O«lb.5«i^l*U«l&.5«l<2*O«7*5«4*U«1.5«U.5«U 
4bUF0iiN>>lT014 

4VU  t'rtiNr  N*A(N)«Y*    "l"i   TAdClNTC  CA(N)*r  +  ,b)/5)+2to)  j"*" 

50UNEXTN 

5iJG0T0y20 

520PH1NT 

53U  LET  A«0 

540f KINT^'HOW  rtEACTlVE  AN  ENZYME  AilE  YOU   WUrtKlNG   WITH?   USE  A  VALUE  OF" 

550PHXNT"FH0M   I    (NOT  VEHY  rtEACTlUE)    TO   10    CVErtY  rtEACTIVE).  "; 

560INPUTY 

570XFY<ITHEN6UO 

5b0   IF  Y<-10   THEN  670 

600    IF  A>*2  THEN  650 

6lOPaiNT"THE  NUMBEfi  YOU  HAVE  CHOSEN  DOE^j  NOT   KALL   Wl  I'rtlN  THE  rtANGE  " 
620HHI NT" GIVEN.     THY  AGAIN." 
630  LET  A-A+l 
640 G0T056O 

650  PRINT  "NEXT  TIME*   PLEASE  FOLLOW  I NS  FfiUCTI  ONS ." 

66OST0P 

670HETUHN 

6tJU  PitINT  CONCENTKATION  OF  ENZYMES  ***" 


30 


0    Copyright  1971,  Polytechnic  Institute  of  Brooklyn 


Biologv 
NZYMC" 


71Jf^*iI.Mf 

7o  1    i^iil  i\;  I    "  1  50  iiuu  '* 

7*^0   r';.!  W  1"  'S   ,**  L  1  I"; 

/t-il   i^vi.NJi    "  X  i»» 

7')  J  t,'.'.  li-l    'i-D^V.Uj  ij-^j  lo.Ujiil  -Uj^il  -  Jjiil  -Ojiil  .Jjtil  -  U 
77 J    r'J..  .\=i    iO  1«J 

VcvJ    r-;'.l:vl     lU+iv^     oiiU)^t,     "i**}     IHU  Ci  i^j  i  (  (  u  C  iM  )  >H  +  .  o  )  /  o  ) +c:  c  )  i  "  =»J " 

7Vo    .  jb-*  i  u 

•^:>J  .uU:\i-  '^'u  i  i-.; 

4r'..U,\.'l   1  1" 

:  J     L)H  ft4  Ojl«5jJ«UjD-JjO-bjll-OjlD-UjlV«l3ji7-Jjb-UjU 

-  7uLc.  f  r=j 
wour  0*fciM=  1  10  1  1 

vuuLiL  1  r  =  f +D 

VlUiVjILAl*  N 

Vidur'nlivi  i' 
'Jour'£\ii\i  f 

v6u    IF   H=l    rniLiM  JUU 
->7u    IK   A<>U    I'fiiLN  VJU 

you   f^i\ii\ii    '•:3rJU'r    TiiL   OiU^ni  hND    l'HciL£oj    AwU  fU  KlGUi-ic" 

Vf>l   r'ril  ivif   "OU  f    vJnn  T  •  :>  nAf'Htiivil  t\iG  ncikf" 
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DISCIPLINE  BIOLOGY  

SUBJECT  ENZYME  REACTION  RATE 


PROGRAM  NAME  NZYM2 


DESCRIPTION: 


An  extension  of  NZYMC    which  permits  the  student  to  examine 
the  effect  on  reaction  rate  with  continuous  changes  in  environmental 
factors. 


OBJECTIVES: 

In  addition  to  reinforcing  the  concept  that  reaction  rate  is 
governed  by  pH,  temperature,  and  enzyme  concentration;  the  program 
can  be  used  to: 

A.      Introduce  the  idea  of  controlled  experimentation  where  two  factors 
are  kept  constant  and  a  third  is  permitted  to  vary. 


B.      Develop  the  idea  of  plotting  experimental  data  to  generate  a  family 
of  curves  as  illustrated  below. 


PRELIMINARY  PREPARATION: 


A.  Student  -    Same  as  NZYMC  .    It  might  also  be  helpful  if  the  student 
has  been  exposed  previously  to  an  actual  experimental  demonstration 
in  which  the  change  of  reaction  rate  with  one  or  more  factors  is 
visually  displayed.    The  rate  of  bubble  formation  when  one  of  the 
reactant  products  is  a  gas  for  example,  might  serve  as  one  practical 
illujitration  of    variation  of  reaction  rate  with  temperature. 

B.  Materials  -  none 
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DISCUSSION: 

A»      Operational  Suggestions 

1.  This    program  has  not  yet  been  tested  in  the  classroom. 

2.  Average  students  should  work  as  part  of  a  group;  above -average 
students  could  be  permitted  to  work  alone. 

3.  For  group  effort  activity,  it  would  be  instructive  to  use  three 
different  groups,  each  of  which  holds  a  different  factor 
constant  while  the  other  two  factors  are  allowed  to  vary. 

B.      Suggested  Follow-up 

1.  Each  group  should  be  required  to  plot  their  data,  on  a  board, 
if  possible,  so  the  whole  class  can  see  the  results.  Families 
of  curves  should  be  discussed. 

2.  Equivalent  points  on  each  data  set  should  be  compared;  e.  g.  is 
reaction  rate  the  same  when  pH  is  4,  temperature  is  25*C  and 
concentration  is  50%,  regardless  of  which  factor  is  held  constant 
and  the  others  allowed  to  vary? 

3.  Introduce  the  concepts  of  interpolation  between  curves  and 
again  check  comparable  points  on  each  set. 

4.  Indicate  that  the  maximum  reaction  rate  obtained  is  the  same 
regardless  of  the  technique  used  to  reach  maximum. 
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VniS  fiiOGriAyi   WILL  ENABLIl  VOJ  TO  SEE   THE  EFFECTb  ON  TnE  HATE  OF 
i-lEACTlON  WlA'rtlN  A  S/6TE^i  CONTrtOLLED         EN^rME;>.  THE 
REACTION  rtATE  WILL  Vrtftf  AS   TriE  ENV/IxiONMEN  TAL  C0NDITI0N5 
V/AiiY.     THESE  CONDITIONS*  i^rt*   COiMCEN  fniirlON  OF  EN^YhES* 
AND  TEMr'ErtATUriE*   IN  A  NATUrtAL  ilrUrtTlON  AxiE  NEVExi  CONSTAWi'. 
LET'S  SEE   WftAT  COWrxiOLS  TnIS  rtATE  IN  TnESE  SYSTEMS. 


THE  FOLLOWING  ArtE    TnE  LlMl  I'S   WlTrtlN  UrtlCn  EACrt  OF  OUn 

ENVIrtONMENTAL  CONDiriONS  CAN  VA«Y. 

1  )*^h  BETWEEN  4  AND  lU 

a)EN^.   CONG. —BETWEEN  10  AND   lOU  i^ErtCENr 

3)TEM1^.  BETWEEN  5  AND  47  DEGREES  C 

I  AM  GOING  TO  i^HXNT  A    '7'.   YOU  MUST  THEN  TYPE  A  NUMBErt  FOH  Ph* 
CONC*  AND  TEMP.   <  IN  THAT  OrtDER)*    WHICH  FALLS  WITrtlN  EACH 
LIMIT  STATED  (SEE  ABOVE.) 
7  4*10*5 

f'H  CONC.  TEM.^-  HEACTION  HATE 


10 


.05 


WOTE  THE  HEACTION  HATE  WITH  THE  THHEE  VALUES  WHICH  YOU 
SELECTED  TO  PROVIDE  A  BASIS  FOH  JUDGEMENT  OF  HEACTION 
HATE*   CHOOSE  ANOTHErt  SET  OF  VALUES  FOH  PH*   CONC*  AND 
TEMP.      (SEE  LIMITS  ABOVE). 


7  7*10* 
PH 


CONC< 


TEMP. 


HEACTION  HATE 


7  10  5  4.5 

IS  THE  RESULT  A  HIGHER  OR  LOWEH  HEACTION  HATE7      IS  THE  HIGHEST 
VALUE  OBTAINED  A  MAXIMUM  VALUE7     DO  YOU  WANT  TO  THY  ANOTHER 
SET  OF  VALUES  (TYPE    M«)   OR  WOULD  YOU  PREFER  A  MORE  ORGANIZED 
APPROACH  TO  DETERMINE  MAXIMUM  REACTION  RATE   (TYPE  'fi') 
1  2 

WE  ARE  NOW  GOING  TO  PERFORM  AN  EXPERIMENT   IN   WHICH  YOU  ARE 
TO  TYPE   IN  THE  VALUES  FOR  PH,    CONC.   AND  TEMP.   AS  YOU  DID 
BEFORE.  HOWEVEH*NOW  YOU  AhE   GOING  TO  BE  ABLE  TO  CHOOSE  THE 
FACTOR  WHICH  WILL  VARY.   THE  OTHER  TWO  FACTORS  WILL  REMAIN 
CONSTANT.    (USE  DIFFERENT  NUMERICAL  VALUES  FOR  EACH  FACTOR,) 
TO  OBTAIN  THE  MOST  SIGNIFICANT  DATA*   START  THE  EXPEHIMNT 
USING  LOW  NUMERICAL  VALUES  FOR  EACH  FACTOR. 


I  AM  GOING  TO  PRINT  A    W.   YOU  MUST  THEN  TYPE  A  NUMBER  FOR  PH* 


CONC  »  * 

AND 

TEMP.    (IN  THAT 

ORDER)*  WI-UCH 

FALLS  WITHIN  EACH 

LIMIT 

STATED  (SEE  ABOVE.) 

7  4*20 

*5 

TYPE  THE  NUMBER  WHICH  IS 

TO  BE  VARIED. 

7  20 

PH 

CONC. 

TEMP. 

.    HEACTION  RATE 

4 

20 

5 

.1 

4 

30 

5 

.13 

4 

40 

5 

.16 

4 

50 

5 

.17 

4 

60 

5 

•  19 

4 

70 

5 

.19 

4 

80 

5 

.2 

4 

90 

5 

•  2 

4 

too 

5 

.8 
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you  NOW  HAVE  A  SET  OP  VALUES  FOH  liEACriOM  nATE  Ab  OME  OF 
THE  GOVEjtNING  FACTOwtS  IS  VAulED  AND  THE  OThEK  TWO  ArtE  HELD 
CONSTANT.  DOES  THE  4iEACl'iON  rtATE  nAV/E  A  MAXIMUM  VALUE? 
IS   THIS  TrtE  MAaIMUM  I'OSSIdLE  rtEACTION  HATE?  TO  UiSrEiir'ilNc;  TrtlS 
USE  THE  SAME  INITIAL  VALUE  FOu  THE  VAHYING  FACTO*a*  l3Ur  TnlS 
TIME  TY*>E  IN  UiFFEnENT  VALUEb  FOH  ThE  CONSTANT  FhCiOhS. 

IK  YOU  WAi\ir  ANtfTHEH  SET  OF  VALUES  FOH  HEACTION  JiATis^TlVc; 

IK  YOU  HiiiC  SAflSFIEO  TnAT   iOU  KNOW  TnE  VALUES  FOiw  EACn  FrtCrOii 

i«SAAlMUM  jiEACriON  JtATE  THEN    TYPE  '2'. 

?  I 

i  AM  GOING  TO  r'HINT  A   •?•.    rOU  NUSf  fnEN   I'Yr'E  A  NUWaEit  FOit  r'n 
CONC.#  AND  TEMP.    (IN  THAT  OxiOE^^)*    WnlCh  FALLS  WITmIN  EACn 
LIMIT  STATED  (SEE  ABOVE.) 
?  7#2U#5 


fYr'E 

TnE  NUMi^En  WnlCH  IS 

rO  bE  VAHIED. 

?  '^0 

PH 

CONC. 

TEMi^. 

HEACnON 

7 

20 

5 

o.bb 

7 

30 

5 

I'd.  2b 

7 

40 

5 

14.67 

7 

50. 

5 

16.2b 

7 

60 

5 

1  7*31 

7 

70 

5 

1  7.y7 

7 

tfU 

5 

lb. ay 

7 

90 

5 

lb.  6b 

7* 

100 

5 

ib.b 

IF  YOU  WANT  ANOTHEH  SET  OF  VALUES  FOH  HEACTION  HATE^TYr'E 

IF  YOU  AHE  SATISFIED  THAT  YOU  KNOW  TnE  VALUES  FOH  EACH  FACTOu 

MAXIMUM  HEACTION  HATE  THEN  TYPE  •2». 

?  2 


HEADY 
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dL.il^^c.«»j   r'uLxi'cCn.  OK  Ur^LiiNj* 

iUD   ikhi'.     .isr'r.j    A=£:w^»    COi^jO»-»    i  =  i£»4**r 

iu'/  FUi%  Lll  iiiNjC  X  #   .-iLL  Ci'-tLCuLai  iU^i)  LiOiNc'  VIA  GO:>Uu  UrtLL:^ 

iiur^iaivifXril  J  .''iiOGitHi-i   wiLL  i::i\adLh   iOO   i'O  Tr.h  iiKKlLClb  ON  Tnt  lu^i'r.  Or' 

I  oUf'.'-l  .'J  I  "iiEAC  riOi\   lu-i  1 1:.   WlLL   \Jt^i^  i    t\j>    itic,  hiM*^  1  ilOiNJi\c.i>i  VAL*  COiNiUi  T 1  Ui>jb" 

l:3ur;i.li^  i"ii.^u    I't^i'.r        i  ijifcC*    1;^  u  k\*a  I'UiJjAL        TUA  I*  1  UtXj  rti-.b  t\iiL\J)Lt\  COiNJb        t  .  " 
l-iUriU  ;\i  i"L£.  r VnAf  CJwI;iOLo   l'nl:>  itAl'E   IN    i'nlioi:;  jrSTtr'iJ." 

iou*"i'.li\i  i"  rn£.  rOLLOWiNG  Aiwii    liiii  Li.^il  To   WlfnlN   WnlCn  EACH  OF  OUii" 
IVUi^iiiN  ["lii^yiiiUiNJiMLNfrtL  COi\Uii  iO:vo  CAN  VArtY  .  *• 

tiUUr^ivikV  r   "   ">"l)fn  cjfili'WiihN  ^  hND  iO** 

riiUr^iviigi*   "   "/"a)c.iv^.   CONO. — BETWEIlN   10   AND    100  i^EHCENT" 

iiciOt-xilwr  "  "/"J)  rKi'ir^.  BETWEEN  5  AND  ^7  DEGREES  C", 

ii^OGO:DOdl  3iiO 
3lOGOSUBlOi20 
3iiOi^*llNr 

JJOi^iilNi'^iViOrE   rHE  KEACTION  rtATE   Wl Ih  InK   rhKhii  VALUES   WhlCh  ITOU" 

:U40i^iiiNr'3£L£CTED  TO  i^xlOVlDE  A  BAbli  FOii  JUDGKMKNT  OF  KEACfiON" 

J60r^nlNr":lArE#   CHOOSE  ANOTH£iv  SKT  OF  VALUES  FOH  ftx,  CONC.#>AND" 

360i^iilNr*iEivie.      (SEE  LIMITS  ABOVE).'' 

370HH1NT 

3b0G0S0iJI020 

jyOi^UlNr^lS    inE  rtESULr  A  rtlGnE.-l  OH  LOWEii  HEACTlON  liATE?      IS  THE  HlGnE:>l" 

^Oi^ulNT"VALUE  OBTAINED  A  MAaIMUM  VALUE?     DO  VOU   WANT  TO  THY  ANOTHErt" 

^4lOPnlNT"S£l  OF  VALUES  (TY^^E    •!•)    OH  WOULD  YOU  i^HEKEH  A  WOHE  OHGANl^EU" 

420*^rtlNr'Ai^i^H0ACH   TO  DETEHMINE  MAXIMUM  HEACTION  HATE   <  TY^»E  'a')" 

4;i0  IN*' UTa 

4^01Fa=2THEN  ^4bU 

4^aiF  ABl    TnEN  450 

^M^i  i^rtlNT  'VLEASE  TYPE    I    OH  2** 

^6   GO   TO  430 

4S0  PrtlNl*  "WHAT  AkE  YOUH  NEW  VALUES  FOH  PH#   CONC*   AND  TEMP."i 

460G0SUBI020 

470G0r0390 

4tiOPHlNT 

/;V0PHlNT''tfE  AitE  NOW  GOING  TO  PEHFOiiM  AN  EXPEiilMENT   IN   WHICH  YOU  ArtE" 

5U0PrtlNT"T0  TYPE   IN  THE  VALUES  FOH  Pn#   CONC   ANO  TEMP.   AS  YOU  DID" 

5l0PHlNT"BEF0ilE.   HOWEVEil#NOW  YOU  AHE  GOING  TO  BE  ABLE  TO  CHOOSE  THE" 

520PH1NT"FAC  rOH  WHICH  WILL  VAriY.   THE  OIHEH  TWO  FACTOHS   WILL  HEMAIN" 

530PHiNT"C0NSTANT.    CUSE  DIFFEHENT  NUMEHICAL  VALUES  FOH  EACH  FACTOH.)" 

5^0PHlNT"rO   OBTAIN  THE  MOST  SIGNIFICANT  DATA*    STAHT  THE  EXPEHIMENT** 

550PH1NT"US1NG  LOW  NUMEHICAL  VALUES  FOH  EACH  FACTOH." 

560LETMaO 

570  GO   SUB  1320 

SbOGOSUBI 100 

SyOPHIWr'TYPE  THE  NUMBEH  WHICH   IS  TO  BE  VAHlED." 
6001NPUTX 

630  IF  X»A  THEN  725 
6A01F  X»K  THEN  79  5 
650   IF  X»T  THEN  655 

652PHlNr  "PLEASE  TYPE  THE  VALUE  FOrt  PH>    CONC*   Ort  TEMP."; 

653G0   TO  600 

655G0SUB  1370 

660G0SUBI220 

670G0SUB1240 

6tiOG0SUBI260 

690G0SUBI260 

700LETT»T"»-5 

7l01FT>»47THENtt70 
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72UG0T06OU 
7k2dGOSUa  137U 

7aUG0dUiJi24U  Biology 

740  GOSUb  1  ii60  M7VM9 

V5UG0dUBl22U  "^^"^ 

760  GOSUB  li^bU 

770lFA>lUTrifc:N670 

7bULETA"A+.5 

7VUG0l'0750 

7V5G0SUd   13  7U 

bouGOSuaia^u 

OiUG0SUU1^60 
dViU  GOSUB  1240 
b30G0SU312d0 
b40LETK-K+lO 
b50  I  FK>  1 00  ThEiMb  70 
b60G0T0b2u 
b70LEr  i'laiyi+l 
obO I FM>»2  fhEwyeo 

b9U*^hIwr"Y0U  NOW  HAVE  A  dEf  OF   VALUES  FOrt  REACTION  WAfE  AS  ONE  OF" 
*AJUPHXNr"TKE  GOVEiiNI;NJG  FAC  TOitS  IS  VAftlEU  AND   THE  0  inErt  TWO  AnE  hELU" 
yiOi^rtlMfCONSTAWT.    UOE:>  TrtE  uEACi'IOM  JlAfE  HAVE  A  MAXIMUM  VALUE?" 
920t^riIi\ji'"IS  THIS  ThE  WA/.IhUM  *^OSSIriLE  KEACTION  xiAi'E?    i'O  DETEiu'^il iNiE  TniSj" 
930^'HIi>)T"USE  THE  SAME   IMTIAL  VALUE  FOrt  THE  VAHYING  FaC  i'OH^  bUl  fnl:)'* 
940t^HlNT"TIME  TY^E   IN  DIFFEHENT   VALUES  FOri   THE  CONSTAiMf  FACTOiiS." 
950PHINT 

y60*^HlwT"IF  YOU  WANT  ANOTrtEH  SET  OF   VALUES  FOH  rtEACTiON  HATE^TYfE    '  I 

y70r'KlNT"IF  YOU  AitE  SATISFIED   THAT  YOU  KNOW  THE  VALUES  FOH  EACH  FAClOrt'3 

yboi^aiNr'MAAlrtUM  uEAOTION  hate  TnEN    itfE  •2'." 

9yOIN*>UTB 

lOOOIFB-1 THEN  570 

1005IF  B-2  THEN  1010 

1U0  7PHINT  "PLEASE  TYPE   1    OH  2" 

lUUbGO   TO  990 

lOlOSTOP 

10  20G0SUU1  100 

10 30 GOSUB 1220 

1040G05Ubl24u 

10  50  go:  'JB1260 
1U60G0SUB  137U 
10b0G0SUB12bU 
1090HETUHN 
UOOINPUTA^K^T 

110  5  HEM     INPUT  AND  CHECK  UOUNDS 

11  10IFA<4THEN1 IttO 
1120IFA>10TH£N1 IbO 
1130IFK<10THEN1 IbO 
1140IFK>100THEN1 IbO 
1150IFT<5THENX ItiO 
1160IFT>4  7THEN1 IbO 
1170G0T01210 

llbOPRINT"AT  LEAST  ONE  OF  TrtE  VAHIA8LES  UOES  WOT  LIE  WITHIN  THE" 
1190PaiNT"PH£SCHIBED  LIMITS.   SEE  LIMITS  ABOVE  AND  THY  AGAIN." 
1200G0T01 100 
1210HETUHN 

1220LETVl-EAP(-< ( .71«A-4.y7) »2) ) 
1230 RETURN 

1240LETV2-EXP< - .Ob^K) -2«EXP( - .0  5«K) + 1 
1250 RETURN 

1260LETV3-16.3«EAP< .U74«T)-EaP( .i33*T) 

12  70  RET  URN 

l2bOLETV-.bb«Vl*V2«V3 

1290LETV»INTC V«100+0.5)/iUU 

1300PRINTA^K^T^ V 

1305  HEM     PRINT  REACTION  HATE 

1310RETURN 

1320  PRINT 

1330PRINT"I   AM   GOING  TO  PRINT  A    '?••    YOU  MUST  THEN   TYPE  A  NUMBER  FOR  PHV 
1340PHINT  "CONC.^   AND  TEMP.    (IN   THAT  ORDEH)^    WHICH  FALLS  WITHIN  EACH" 
X350  PRINT  "LIMIT  STATED   (SEE  ABOVE.)" 
1360  RETURN 

1370PRINT  "PH">"CONC."^"TEMP. "^"REACTION  RATE" 

13B0PRINT  "--^•>"  "^^  " 

1390RETURN 
1400END 
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DISCIPLINi^  BIOLOGY  

SUBJECT  PHOTOSYNTHESIS 


PROGRAM  NAME  PHOSYN 


DESCRIPTION; 

This  program  investigates  changes  in  the  rate  of  photosynthesis 
when  carbon  dioxide  concentration  and  light  intensity  are  varied. 

OBJECTIVES: 

A.  To  permit  the  student  to  see  the  effects  of  varying  two  of  the  factors 
of  the  photosynthetic  reaction. 

B.  To  reinforce  the  concept  of  the  fundamental  importance  of  the  process 
of  photosynthesis. 

C.  To  lead  the  student  to  develop  id*  ;*s  for  increasing  a  plant*  s  food  out- 
put by  manipulating  factors  involved  in  photosynthesis. 

D.  To  learn  or  practice  graphing. 

E.  To  learn  the  concept  of  controlled  experimentation. 

F.  Analysis  and  interpretation  of  data. 

PRELIMINARY  PREPARATION; 

A.  Student  -  An  understanding  of  the  photosynthetic  process. 

B.  Materials  -  graph  paper 

DISC  USSION; 

A.      Operational  Suggestions 

1.  Student  level  -  average 

2.  Pitfalls  to  avoid  - 

a.  If  the  student  is  not  familiar  with  decimals,  allow  him  to  use 
integers  for  graphing 

b.  The  computer  levels  off  at  a  light  intensity  of  12.    If  a  student 
selects  all  of  his  light  intensity  values  above  11,  a  straight 
line  of  asterisks  will  appear  on  the  graph. 

c.  Remind  students  that  the  computer  plotted  graph  is  to  be 
viewed  sideways,  (see  run) 

3.  Students  work  in  groups  of  5  or  less.    Allow  one  group  at  a  time 
at  the  computer  while  the  remaining  groups  are  engaged  in  a 
related  activity. 
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Suggested  Follow-up 

The  students,  after  running  the  program,  are  expected  to  graph 
the  results  obtained  from  varying  the  carbon  dioxide  concentration. 

j^licit  from  the  student; 

1.  What  happens  to  the  rate  of  photosynthesis  as: 

a.  The  carbon  dioxide  concentration  increases? 

b.  The  intensity  of  the  light  increases? 

2.  How  might  you  increase  the  size  of  tomatoes  grown  in  a 
greenhouse?  What,  if  any,  limitations  are  there  to  this 
type  of  increase? 

3.  What  is  apt  to  happen  to  the  world' s  food  supply  if  the  amount 
of  carbon  dioxide  or  the  light  intensity  was  reduced  by  one- 
half? 

4.  Compare  your  graph  with  the  graph  made  on  the  computer. 
Point  out  similarities  and  differences.    Explain  them. 
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nLLLO.         NOW  YOU  :>nOULU  KNUw  FnOCi  YOUn  L£UTdhh::>  WHAT 
r'nOrO^^YNrriKSl:*  in.   1H1:>  LAdOiiAlOtlY    WILL  KNABLt:  YOJ  TO 
CONUUCr  l*:A>^£nlNLNr:>  UlN;    inti  COro^UTklii  UnlCn  WOULD  NOT  BE 
r^jmUTlUAL  UU;tING  UL/\Sb  Tli^ii. 

i>lNC£  ALL  OF   OU*i  FUUU  COWL:>  KnUi\  i-LANlii*   Lti  f '  i  FIND  OUT 
hOW  CnANGlNn    i'nE  A/<OUNT  OF  CAi^UON  UlOAlDfc:  Ox;   InE  INitiNilil 
OF  LiGni   fllLL  ArFLCT   rrirl  x-LANf'^  *iAi'E  OF  i-nO  i  OSYN  intbl 
Mk:ASUrii':u  IN  KlCxiOGiuArio  OF   GLJCO:>E  r'iiOUUUEU  r'Exv  DAY. 

LET'S  BEGIN  WI in  CnANGING  TnE  LIGHT  INTENSITY*   VOO  WILL 
VArtY    rrilS  BY   SELEUIING   iNTEGEn  VALUES   IN  Tnt  ilANGE  OF 

0  i'O  JO  (TnE  UNITS  FOii  LIGnT  INTENSITY  HnE  IN  ErtGS/SEC/Su . CM ) 
BY  l^AnsING  ONLY  ONE  FACTOn  AT  A  TIME^    WE  AKE  CONDUCTING 

A  UONfjiOLLED  EAi^Enlt^iENT .    WE  WILL  ASSUME  THAT  Odn  t^LANT 
nAS  ALL  OF   TnE  CAiiBON  DIOAiUE^    WATEH  AND  CHLOiiOl'HYLL 
THAT  I  r  NEEDS. 

YOU  SnOULD  CHOOSE  BETWEEN  FIVE  AND  TEN  LiGnT  INTENSIT^T 
VALUES.    TYf'E  IN  ONLY  ONE   VALU£  AFTEH  EACH  UUESTION  MAiiK. 
BY  TYPING  IN   iOO *   NO  MOHE  UUESTION  NAnKS   WILL  APPEAH  AND 
THE  PHOGHAM  WILL  CONTINUE. 

(NOTE!    'HP*   MEANS  rtATE  OF  t^nOTHSYN  THESI S ) 

LIGHT  INTENSI  rY(LI  )7  2 
45 

<LI)7  15 
HP-   I  a  I 

<LI)7  7 
Bpm  99 

<LI)7  2y 
HH-  li>5 
(LI) 7  20 

<LI)7  5 

PPm  b4 

<H)7  6 

92 
<LI)7  U 

(LI)7  12 
HP-  116 
<LI)7  10 
HP*  111 

1  ■   TABLE  ONLY*   2  -  PLOT  ONLY*   3  -  BOTH?  3 

LIGHT  HATE  OF 

INTENSI TY  PHOTOSYNTHESI S 


2  44.81 

5  d3«ti 

6  ^2 

7  9b«57 

10  111.4*^ 

11  114.12 
la  116.29 
15  *  1&0.52 
20  123*52 
29  124*5 
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LIGHT 
INTENSITY 

tiATE  OF  i>HOrOSYNThEiiS 


0  ^5  50  75  100  125 
I  1  1  1  1  1 

2  I  ♦ 

1  0 

5  I  ♦ 

6  1  ♦ 

7  I  ♦ 

10  1  ♦ 

11  1  ♦ 

12  I  ♦ 

15  I  * 

20  1  * 

39  I  * 


O.K.   LET'S  NOV  VAHY  THE  AMOUNT  OF  CAKbON  OI0aID£  IN  THE 
ATMOSPHEAE  SUhKOUNDING  OUK  ^LANT. 

THIS  TIME  ASSUME  OUK  PLANT  HAS  ALL  THE  LIGHTj    VATEK  AND 
CHLOaOPHYLL  THAT  IT  NEEDS. 

LET  THE  VALUES  YOU  SELECT  FOH  THE  CAHBON  DiOAlDE  CONCENTHATiON 
BE  FOK  TWO  DECIMAL  PLACES  ONLYj   AND  IN  THE  HANGE  OF  0  TO  •aO 
UNITS  FOR  C02  CONC.  AKE  CUBIC  CENTIMETEKS  PEA  LI  TEH  OF  AIH. 

AS  BEFOHEj    I    WILL  TYPE  IN  A  AND  THEN  YOU  TYPE  IN  THE 

CARBON  DIOXIDE  CONC.  AVAILABLE  TO  THE  PLANT- 
THIS  TIME  YOU  MUST  CHOOSE  TEN  DIFFERENT  VALUES* 
REMEMBER  HP  ■  RATE  OF  PHOTOSYNTHESIS* 

CARBON  DIOXIDE  CONC. (COS) 7  .10 

RP-  118 

(002)7  .SO 

HP-  125 

(C0t>7  .30 

V-  125 

(C08>7   .15  ^ 

IP-  184 

(002)7   .0  5 

HP-  94 

(C08>7  .25 

IP-  125 

(CM>7  .Oft 

IP-  54  * 

(002)7  0 

IP-  0 

(C02>7  .11 
IP-  119 
(002)7  .09 
IP-  115 
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1  ■  TAtiLE  ONLY#  2  =  r'LOf  ONLY^  3  =»  bOTh?  J 
C02  CONC.  xiATE  OF  PHOTOSYNTHESIS 


•  U2 
.05 

•  0V> 

•  1 

.  1  1 

•  lb 

•  a 

•  25 

•  3 

C02  CONC^ 


.02 


•  05 


•  09 

•  1 

•  i  1 


•  15 


U 

53^tt7*^ai 
^^•1U9^ 

114^9425 
11 7^bl6i 

l2J^56j£i 
125 
125 
125 


liAXE  OF  PHOTOSYNTHESIS 
U       25       50       75'      luu  12b 
—  1  1  1  1  1 


DO  YOU  KNOW  WHAT  IS  HAPPENING  IN  BOTH  THESE  INSTANCES? 
READY 
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lUO   ntiif'i  y»   ri.    COOr'Ert*    U  ^  A.NibrtNCrt  ri.:>.*    rlE  VISED  7/6':^ 
10  6  nsli'l     t\c:'\flb£Q  bi   C-LO^jIK     7-9- 7U 

1J6  rttrt  V(  1  isiiN'^'Ui   vALJhi   (LXGni'   li>jiENSirr,   COii  CO.\C. ) 
10  7  rtbrt  u(l)=itHT£  Or'  r»HO  fOiyN  inKSIii 
110   DIM  v;(31)^a(31) 

lidO  r^iilM'  "MliLLO.         NOW  tOJ  JnOULD  KiViOW  FuOM  tOJrt  LECrUuEii  Wnn  I " 
130  Hrtli>JT  •VnOTOS^NinE:>lb  i:>.    Tnl:^  LAtJOrtArOrlt   WILL  ENAriLE  lUO  TO" 
lAO  PiiK\JT  ••CONUUCr  E A^* Eli InEMI'ii  ON   TnE  COi'ii^UrEn   WnlCrt   WOULD  i\iO  T  tJE" 
150  i-'.UNr  'VrtrtCriCaL  uOrtli>iG  CLAi»:>  VI ME." 
160  r^ulNr 

auo  t^nii^T  "ilNCE  ALL  OF  0U*\  FOOD  CO^iE:j  FnOrt  ^^LAiMfS*    L/.:i'':>  FIinjU  UJl" 
eilO  i-'rtl.vir  "HOW  ChAi\GlL\iG    IriE  /U'lOO.Vi    OF  CHitBOiNJ  uIOaIoE  Ort  TriE  INTEiNi^jli 
y«J  HuK>jr  "Or   LlGrti'   WILL  aFFECT    IV.E  r'LAiNiT'ij  xiAiE  OF  PHO  i'Oo  Xi\  inEb  1  " 
kiJO  r-ivlWr  "MEAbUiLED   IN  MlCrtOGnAM:>  OF   ULOCO:iE  t^nODUCED  rEit  DA]f." 
;iaO  ill. Mr 

ej^O  r-ivlivir  "LET'S  BEGIN   WX  i'h  CnANGlNG   int.  LlGni    IlNj  TEwSl  f  i  .    YOU  WILL" 
JOO  h»i;lNl-  "VHit:^    fhli  BY   SELECXING   INTEGEit  VALUE:>   IN   iriE  rtANGE  OF" 
3lOr»niNT"U    ro  30    (TnE  UNITS  FUU  LlGnT   INl'ENSirY  AiiE   IN  Ex\GS/SEC/Su.  C 
315  HrtlNT  "BY   VAa^ING   ONLY  ONE  FaCiOu  AI  A    TIME*    WE  ArtE  CONDUCTING" 
320  ^ulNT  "A  CONrilOLLED  EAr^ErtlMEM'.    WE   WILL  A:3:,0ME   TnAi    OOrt  r^LANl'" 
330   HulNT  "rtAS  ALL  OF    i'nE  CAuBON  DIOaIDE*    WATErt  AND  CrtLOrtOr'h^LL" 
335  i^iilNT  "TnHi    IT  NEEDS-" 
3AO  i^HlNT 

350  r^/ilNT  "YOU  SrtOULD  ChOOSE  BEl'WEEN  FIVE  AND  TEN  LlGnT  iNlENSil'Y" 
360   HrtlNT  "VALUES-    TY^'E   IN  ONLY  ONE  VALUE  AFTEn  EACn  UUE^TION  MAnK-" 
MO  /^rtlNT  "BY  TY^'lNG   IN   lOO,   NO  CiOKE  UUESTiON  MAHKi   WILL  Ar't^EAn  AND" 
JVO*^KlNT**TriE  r^rtOG/lAM  WILL  CONTINUE-"  ' 

3Vb  t^tilti^  "(NOTEj  MEAiNiS  iiATE  OF  HhOTnSYNTrtESl  S ) " 

OOO  ^^rtiNT 

410    -.iINT  FLIGHT  INTENSITY"; 

41  ci  uEM  IWiTlALI^E 

413  FOn  Imu   to  30 

415  LET  \/(li«-l 

417  NEAT  1 

41V   FOit  i»l    TO  10 

420   t^HiNT  "CI.1)"; 

430    INt^UT  W 

435   IF  W»iao   THEN  560 

440    IF   W>3^    THEN  510 

450    IF   W<U    THEN  510 

460    IF   Wit>iNT(W)    THEN  510 

470   LET  V(W)vW 

4ti0   LET  ri(W)«lNT(  l250O*(  l-EAr^(-.id22*V(W>)>  +  .05)/100 
490  i^xllNT  "Hi^-";iNT(n(  W)'»--5) 
500   GO   TO  55o 

510   i^HlNT  "WHONGI      USE   ONLY   INTEGErt  VALUES  BETWEEN  O  AND  30." 
520  PHI  NT  "THY  AGAIN-" 
530   GO  TO  430 
550 .NEXT  1 
560  PRINT 

565  HEM     CHOICE  OF  OUTPUT 

570  PHINT  «   TABLE  ONLY*   2   «  PLOT  ONLY*    3  -  BOTH"; 

5450    INPUT  W 

590    IF  W«l   THEN  600 

593   IF   W«2  THEN  650 

595  IF  W«3  THEN  600 

596  GO  TO  5  70 
600  PRINT 

605  PHINT  "     LIGHT'S"       HATE  OF" 

610  PHINT  "INTENSITY"*"PH0T0SYNTHESIS" 

615  PrtiNT   "  " 

620    GOSUB  1500 

630    IF   W<>3  THEN  760 

650  PHINT 

660  PHINT  LIGHT" 
670  PHINT  "INTENSITY" 
660   GOSUB  1600 
760  PHINT 
770  PRINT 

780  PRINT  "O.K-   LET'S  NOW  VARY  THE  AMOUNT  OF  CAkBON  DIOXIDE   IN  THE" 
790  PrtINT  "ATMOSPHERE  SURROUNDING  OUR  PLANT-" 
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bOO  PrtI.NT  PHOSYN 

blU  i^KXNT  "THIS  TIME  AibUME  OUK  t-LAiNT  nAb  ALL  Tat  LlGftT*    WATExi  AND"  ^ 
tiao  t'hiNT  ••CrtLOrtOi^HYLL  THAT  IV  NEEDS." 

tt40*'HlNT"LET  THE  VALUES  YOU  SELECT  FOrt  TnE  CArtbON  DIOAiDE  CONUEMTrtA  1"  i  ON" 
bSO  i^HiNT^BE  FOrt  TWO  DECIi'OAL  r'LACES  ONLY*  AND   IN  TmE  rtANGE  OF  U  TO 
bbO  PHiNT  "UNITS  FOii  C02  CONG.  AilE  CUblC  CENVlMETErtS  PErt  LlTtrt  OF  Alrt.'« 
8yU  PrtINT 

PrtlNT  "AS  cJEFOiiE>    1    WILL  TYPE  IN  A  AND  THEN  VOU  TYPE  IN  AHE'« 

VlU  PrtlNT  "CAitdON  DIOaIDE  CONC   AVAILABLE   iO  THE  PLANT." 
yiiU  r'UiNT  "THIS  TIME  *tOU  hUSl*  UhOOSE  TEN  DlFFEuENl  VALUES." 
y25  PrtlNT  ••rtEWEMdEH  tu^  «  imTE  OF  PnOlOSxNi'hESlS." 
V^3U  PrtiNT 

y^O  PrtINT  ••CAxidON  DIOaIDE  CUNC"; 

HEM  INITIALISE 
V^^ii    FOrt    laD    TO  30 

LET  V(  i  )«-! 
9/16  NEAT  I 
9/lb  FOrt  I»l    TO  iU 

yso  PrtlNT  "ccoiir'; 

960    INPUT  W 
970    IF   W«100   THEN   10  50 
9d0    IF    W<0    THEN  10/IU 
V90    IF  THEN    10 /lO 

995  LET  U=1J0*W 

lOOU    IF  ABSCu-lNr(U-»'.5)  )>»000U  1    fnEN  lU^^U 
10U3  iLEt^     FUDGE   1005  CAUSE   INTEGErt  ME:3SES  UP 
1005  LET  U»INT( iOU*W+.5) 
1010  LET  V(u)aW 

1020  LET  rt(U)  =  lNTC  1  75*C  1 -EaPC -2tt«V(  U)  )  )  t-.U05)/l  Vi^^l  25 
1025  PrtINT  "HP»";iNT(rtCU)t-.5) 
1030   GO  TO  105O 

l\}^0  PRINT  "INPUT  VALUES  BETWEEN  0   AND    .3   TO    TWO  PLACES  ONLY" 
lO/ll   PRINT  "THY  AGAIN" 
10/15  GO  TO  960 
1050   NEXT  I 
1060  PrtINT 

1070  PrtINT  "1    =   TABLE  ONLY^   d  ^  i-LOf  ONLx*   J   =  uOln"; 

lObO    INPUT  W 

1090    IF   V"l    i'HEN  1100 

1093   IF   W«2  TrtEN  1150 

1095  IF   W«3  THEN  UUU 

1096  GO  TO   10  70 
IIUO  PrtINT 

1105  PrtINT  "C02  CONC."^"rtArE  OF  PHO TOSYN TnES 1 S" 

1110  PrtINT  "  "^"  " 

1120   GOSUB  1500 

1130   IF   W<>3   TrtEN  lldOO 

1150  PrtINT 

1160  PHINT  "C02  CONC." 
UbO   GOSUB  1600 
1200  PrtINT 
1210  PRINT 

1220  PHINT   "DO  YOU  KNOW  WHAT  IS  rtAPPENlNG  IN  BOTrt  TrtESE  INSTANCES?" 
1230  STOP 

lii99  REM     TABLE  PrtlNTEH 
1500  FOrt  1-0   TO  30 
1510    IF  VCIXU   TrtEN  1530 
1520  PrtINT  VCn^rtCl). 
1530  NEXT  1 
15i40  HETUrtN 

1599  REM     PLOT  ROUTINE 

1600  PrtINT       ">"HATE  OF  PrtOTOSYNTHES I S" 
1610  PHINT  "  ">"0       25       50        75        100  125" 

1620  PRINT  "  "*"I  1  1  1  1  r' 

1630  FOR  I«0   TO  30 

1633  IF  V(I)>«0   TrtEN  16/l5 
1636  PRINT  "  "*"X" 
16/10   GO  TO  1670 

1645  PRINT  V<  1)  j"!";  TABC  l/l-t-lNTC  H<  1  ) /5+.5>  );"♦" 
1670  NEXT  I 
1660  RETURN 
1700  END 
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DISCIPLINE         EARTH  SCIENCE 


SUB  J  EC  T  CLIMATES 

PROGRAM  NAME  CLIMAT 


DESCRIPTION: 

This  program  is  designed  to  give  students  practice  in  identifying 
climates  and  climatic  patterns.    As  the  program  runs,  students  are  asked 
questions  regarding  precipitation  and  potential  evapotranspiration  on 
the  basis  of  P  and  P.  E.  curves  randomly  selected  and  matched  by  the 
computer.    At  the  conclusion  of  the  program  they  are  asked  to 
specifically  identify  the  climate  of  the  region,   (i.  e.   Tropical  rain 
forest.  Humid  continental)  on  the  basis  of  these  curves,  his  answers, 
and  the  computer'  s  corrections. 


OBJECTIVES: 

The  program  presents  the  student  with  the  following  concepts: 

A.  The  value  of  graphing  to  help  in  the  interpretation  of  data; 

B.  There  are  a  limited  number  of  characteristic  annual  precipitation 
patterns  which  affect  the  earth; 

C.  The  P.  E.  characteristics  of  a  region  are  primarily  related  to 
1)  latitude  and  2)  proximity  to  large  bodies  of  water; 

D.  Combinations  of  P  and  P.  E.  patterns  yield  a  relatively  small, 
distinct  number  of  climates; 

E.  The  precipitation  patterns  are  modified  by  the  prevailing  wind 
pattern,   regional  geography  and  altitude. 


PRELIMINARY  PREPARATION: 

A.      Student  -  The  student  should  have  been  introduced  to  the  general 
climatic  regions  and  their  characteristics.    He  should  also  have 
some  understanding  of  the  earth'  s  wind  belts  and  how  they  affect 
precipitation  on  the  windward  and  lee  side  of  mountains  and 
continents. 


Earth  Science 


PRELIMINARY  PREPARATION:  (con*  t) 


B.      Materials  -  1)  Dittos  of  graphs  set  up  to  permit  students  to 
rapidly  graph  the  P  and  P.  E.  Curves: 


P  and  PE 
{in  inches 
of  H^O) 


I  ^1- 

L 

i  1 

1 

-1 — , 

— 1 — 

1 — 1 

-J 

! 
I 

.    i  1 

— ^ 

— 

■ 

1  i 

■  1  ■  J 

— 

P  +  PE 


P  curve 
PE  curve 


-    —  —  /  «  PE 


Month 

2)    Each  student  should  be  given  a  student  progress  code  number. 
This  activates  the  selection  of  P  and  P.  E.  curves  for  that  student 
when  typed  into  the  computer.    Each  time  a  student  uses  the 
program  he  should  be  given  a  NEW  progress  code  number. 


DISC  USSION: 

This  program  is  for  students  of  average  ability.    It  should  be 
used  individually  or  in  groups  of  5  or  less. 

Student  graphs  are  employed  only  to  help  the  student  rapidly 
assimilate  the  numberical  data  presented  by  the  computer.    They  need 
not  be  checked  beforehand  by  the  teacher,  but  should  be  used  during  the 
follow-up  discussion  of  the  students'  run. 

The  follow-up  discussion  on  a  class,  group,  or  individual  basis 
will  greatly  enhance  the  value  of  the  lesson  and  the  student  comprehension 
of  the  entire  topic  of  climates. 

As  proficiency  increases  (or  with  superior  students),  the 
student  might  be  asked  to  complete  the  program  by  inspection  of  the  data 
without  actually  plotting  the  P  and  P.  E.  curves- 

In  the  program,  the  criteria  used  in  evaluating  P  patterns  are: 

80"     -  wet  climate 
13-80"   -  moderate  precipitation 
<13"     -  arid  or  dry  climate 

Although  these  values  may  not  agree  exactly  with  values  taught 
by  individual  teachers,   they  are  close  enough  to  accepted  standards  to 
make  the  use  of  the  program  extremely  worthwhile- 


46 


e    Copyright  1971,  Polytechnic  Institute  of  Brooklyn 


Earth  Science 


DISCUSSION:  (con*  t) 

As  with  many  of  the  other  programs  presented  here,  this 
program  may  be  used  in  a  demonstration  lesson       using  the  computer  to 
provide  data  and  questions;  and  the  class  to  suggest  and  evaluate 
responses  to  be  fed  into  tho  machine.     Later,  individuals  or  groups 
might  be  permitted  to  use  the  program  as  previously  discussed.     (If  the 
program  is  used  in  this  manner,  the  teacher  might  wish  to  prepare 
transparencies  of  the  data  and  curves  in  advance  for  use  during  the 
computer  run.  ) 


Earth  Science 
CLIMAT 


i 

1-4 

u 

lu 

7 

lb 

iu 

5 

13 

6 

14 

7 

1  J 

i-^ 

o 

o 

iU 

7 

lu 

1 1 

1 J 

i 

1^ 

1 1 

0 

i'OfAL  ^'^ll!:Ci^^lTA^lUl^J  =    i;i7  iwGnED 


O.A.^    fLOT   irOUn  GitAx^n  Oi\J   Vnr-  r'Ar'En  f^rtOVlUc.U  lUU 
AiNiO   JniLiNi  VOU  Aiiiil  UEAUY  TU  COiNi  1' X l\UE •  .  •  •   I'iEilELl  Ilr^E 
Aim  I    i>jUl'iiiErt  AwU  Tn'tL  iLtlTUxiiVJ   KE  f  •  ?  U 


iic:ADY?      GOUL)>    iNJOW  TELL  WjS    •    •    •    UUEii    l^OUn   GilAr'ri  bnOW  TnA  i* 

TfiE  CLIMATE  nAS  DEFltxiii'E   wEi*  Al\U  DKY   i>EAi>OLVji>    Cl  =  rE5j   U=iMO>    ?  u 

TELL  i-iE>    IS  THE  CLIi>lAi:::    LIJ    WET>    ilci]    DiiX>    Oil   C33    MODErtAiE  ALL 

.vjlCE  G01NG>  SMMiirx'  ^^rtiNli':^.      KEEP   U*^   TnE  GOOO  WO.^A. 

dY  CHECKING  THE  i-'E   CUit'v/E  OlM   YOUii  GriAr'n^    WOULD   I'OU   SAY   TrtAi"  TnE 

SUMWEHi  AiiE  CI  3  rtOT>    L22   WAxii'i>   On  COOL?  2 


AW  C'MOiNj>  YOU  CQOLDN  •  r  i^OSSibLf  MEAM  fnAl*.... 
I'OU  SHOULD  nAVE  :dAIU  1 


FHOM   THE   SAME    llNJFOiiT'iATl  ON    (i^E   GKAHn>>    WOULD   YOU   SAt    TnA  f  TnE 
wiiMfExiS  AKE    Cn    C0LO>    iH}   MiLD>    O^-i   C33    WAxii>i?  1 

ir   WAfiWS  MY  rtEAilT   fO  rtEArt  YOU  SAY  TrtA  i' •      GOOD  GOAi>jG. 

WELL>    BY   MOW  YOU  MUST  hAVE  AN    IivjKLING  AS    TO  TnE    i'Yh'E  OF 
CLIMATE   WE  rtAVE  n£xlE«      BELOW  IS  A  CUMr*LErE  Ll^TliViG   OF  ALL  inE 
CLIMATES  IN   TrtE  WOnLD .     iiEFEii  TU  THEM         TnE  in  NUMdEn  ONLY. 
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CLIMAT 


'd  litOi'iLrAL  EAiii'  COAST 

J  fuOr'iCAL  :'iOiVjbUO:.v 

^1  »;  vOh'lJfAL  i)A'^rt.\ivjH. 

S  i'jiOf^iCnL  DESEUT 
■"■6 -  " " MEDi  rEriiiANEAN 

7  WAfilNE    WEbV  COAST 

O  rtJivliD  COinJTINEiMTaL 

V  nU/ilb  SUBTrtO*^iCAL 

10  MIDDLE  LArrrUDE  GrLASSLANDS 

U  WIDDLE  UAriTUDE  DESErtl' 

iki  SLJBArtfiC  CLii>iATES 

Ort   1/4  niGnLAiMD  CLlWATES 

CiiiOr-lCML  Ou  MIDDLE  LaTlTUuEi)) 

li)  h'OLArt  TUiMDiiA 

16  r>OLAit  iCECAj-* 


iJhAT  IS  THE  NU^idEit  OF  THE  CLIMATE  WE  nAv/E  (WE'LL  ACCnr-T  TnE 
FACT  THAT  TnEV  MAjT   OVExiLAi^)?  1 


SUGGESriON  -  STICX  TO  LAWGUAGES  Oii  SOCIAL  :j1'UDIES. 
TOO   SnOLJLD  nAVE  SAID  6    .      GOOD  DA^'  TO  rOU. 


ivEADi 
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lUOnfc:M--£:.A.  GALLE'i  lA^r'Hi'ChUGJE-n.  i>.  ^^i/cici/b^   can  in  :>L;ifc:iNJC£   Ciii  XChC  ) 

1  luaEi']--nE Will  n'EiNJ —  7/tib/6V--brtilL;--<nUb> 
lid  uEM     ilEl'lciclD  10i\r   r'iirtE^^    waLi'   Wnl  it-iAi\)  nS>  b-6V 

uEi'i     iih-ivEv/ISED  3  ]f   CLOSIK  C'dS-lO 

1    5 1  FiNJ <>56 THEN  I  iiiU 

lD5r^r.li\)r''Q.K.  >   nEiiE  AaE   iiOME   v/HLUEb  rUxl  Tn£  r* KEG Ir^l       1*1  Ui\    (r*)   Ai\/D  rOn." 
16Ur'Kii\JT"TnE  r'OiEiNiilaL   E  Var^O  i  ivAiNi      1  iiA  i*i  Oivi    (r'E)    OF  A4\j  A/iErt  :  " 
1 6  br*  It 

175r^ilil\JT"    'S^'sasss'S  "  =  «  =  =  =  =  =    =  " 

1^>5L£IV=1NTC  lU*nWDC  1  )  ) 
aJUlFP>6TrtENiy5 
^U51Fr'<lTHEN195 
yiULETEaiiNJTC  lU*nNDC  1  )  ) 

'd'dO    iFE<l  FHENiilO 
i:iii5LETZ.  =  5*E  +  6*r» 

ciju   IF   Ci:-21  )*Ci:-kJk:)*C^-17)*C^:-3b)=U   TriEi\J  l"i^5 
ii35F0Kl=xrf012 

ii45IFr'>lTnENii55 

25ULETi^l  »  12+CObC  .261  *i  )  t  i>  +  i:>*ufyJDC  -  1  ) 
255lFP<>2'rHEN265 

26uLE  fr'l3  12*SINC  .261  *1  )+2*Ki\iDC  -  1  ) 

265IFH03THEN275 

27ULETHl=2  +  3*HiNJDC  -1  ) 

275IFi^<>^TriEN2b5 

26uLETr l=2*rtWDC -  1 ) 

26 5  I  Fl- <> 5 T h E iNJ 2 9  5 

29uLETr^  1=7+ 10  *rUND(  -1  ) 

2'i/5lFP<>6ThE:\J30  5 

aUULETr^l  =3*C0SC  .5+  .  1  5  +  1  )  ttJ 

jUSr'nINTIiNJT  CP1)> 

31U1FE>1  TriEi\J320 

315LEfEl  =  lU*SIi>jC  .261*1  )  T2 

320lFE<>2TnEN33U 

325LETEl  =  12*biN( .261*1  ) 

J30 1 FE<>3THEN3^0 

335LEfEl=2*5INC .5+. 15*1 ) t2 

3^UiFE<>^THEi\350 

3^5LETEl=tt  +  4*HNDC -  1 ) 

350LETT='T+INrCr'l  ) 
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JSSr'ilX    ri  i>jT<  E  1  +  C  E  1  /  lU  )  *<i  ) 
j6Ui\Jh.A  ri 

3bJt'iilNr"U.K.^   r-LOi  YUUii  GiCHi^H  UtM  VnE  t-ar-iiii  r'ivOv/iUiLU  X'OU" 
joDi^itliNj  fAi\iD   wrtEN   iOU  AiiE  iiEHUY    TO  UUiNiTl  i>jUc:  .  .  .  .   i^'iii^rLEL  x  iir-E" 
JVUr^niN  T^AiNJt    iNiUi-idEn  AWD   Thh:  iiETUiiiv   iitLX  •  **  i 

/jJbx-itii\iT**nc:ADy?      GOUD^   NOW  TELL  .    .    .   UJE:?    X'UUn  GiiAr-n  brtOW  TnAi*' 

^lUr^iaNf'Tnfc:  CLlMAi'E  na:?  UEFINITF   WET  AMU  bii:    bEAbOiNJb   (l  =  iEj-»  U  =  CsjO) 
^;iU    IN^UT  5 

IFS=U ThENSuS- 
^JJ    IF   6<>i    InEN  AUb 

J  5 1  Fh*  <  3  TnEiNi  s  6U 
^iJ7  LEV  b=U 
^UlO    GO   ;iUB  lU^S 

^^5x-u1i>jVTELL  Ci'd*  I J  inE  uLlMAlE  tl3  WEl'j  LiiJ  UnXj  Oii  LJ3  WUUEiiA  l£  ALL'' 
^bU*^Kli\IT"YEArt**; 

^6blFii=lTnEiNJSJi5 

/|7ulF5=3TriEi\jS^b 

^47J   IF   b<>;i    rHEiNj  ^^15 

^l75lFT<13THEM6ii5 

^toU  IF  r>tiOTnEN^y5 

^oSGOiiUBlU^U 

A9UG0T063U 

^VSGObUdlUiiU 

5OUG0  r063U 

t>05lrt^>i^TnEN^^5 

SlulFr>  =  ia  THEi^^VS 

51 bGObUBlu:rfU 

Si:i0G0T056u 

S251FT>oO  rriE:v6cib 

530 1 F  r>= 1  J  THEw^o  D 

d35G0:3UB1u3U 

DA0G0TU63U 

5^51  FC  1-13)  *(bU  -  i  )  >=U  iriEi\j6^5 

55UlFT<13ThEN535 

5551F  r>6U  rriEi>j^y5 

560r'itXiNJT"TELL  KiE>    WnXCn   lb    iriE    WE  i    obH:30.\i^    tlJ    inE   WliNjlEil  OK   C2a  THE" 
565^UliNJ  fSUMMEit"; 
57Ur'iiiNT 
575   IM^UT  3 

Do51FS=rrnEW6U5 

5cJ7    IF   b<>2  THEN  560 
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6UOG0'VU6JO 

60  5iFt^=  l'rric:i\i6at) 

6lbG0fU63U 

6ii5r»rtlNi'"L\)IC;E  GOING j    bi^OArtTV  t^ANTS.     K£E>   Ut^    frtE  GOOD  WOitK-'' 
ejUt^rtlN'fB/  CHECKING  TrtE  t'E  CUUVE  ON   tOUii  GKAt^rtj    WOULD  VOU  bAlT    ThAi*  InE" 
6J5^UlNr"6UNMEaii  Ant:   LID   rtOTj    CJ^D    WArlMj    Oii   tJD  COOL"; 
6^U    IN^UT  b 

6SU  iFi3=aTriEN6^5 
6b61F:>=  JfrtENVlS 

65  7   IF  b<>l    THEN  62S 
66U  lKE  =  id'i'H£N725 
66blKE=:^4THEN725 

66  7   Ir    E=l    i'riEN  Tdb 
67uU0bUBl020 
67DG0i'O7jO 
6^51FE=  lTrtEN7S^5 

70U  IFEoJ  A*ni::N6  70 
TUbGOSUBlO^U 
71OG0r073u 
7151KE=JTrtEN71^5 
mo  i  FE<  >  3  THEN  6  7U 

7ii5^rtlNr")rOU  nAVE  UhS  TOhED         FAl  VH  IN   f EENAGErti> • " 

73Ur»HiNT"FrtOW  TnE  SAi^iE   INFUHWA'ilON   <t^E   GHAFH)j    WOULD   iOO  TrtAT  TnE" 

735t'rtlNT"  WlNTErtS  AHE   LI  J    COLDj    C2J  WILDj    OH  WAuM"; 

7^0    INt'UT  S 

7^5r»xllNT 

73UiFS=2TrlEN7yu 

753iFS«3TH£NttlU 

760    IF   Sol    THEN  7JU 

765lFE<3THENbJ^5 

770G05UBIU30 

775G0T0tt3O 

7bOG0SUBlU^U 

7b 5 GOT Ob 3U 

7yuXFE=3THhNb25 

7V5lFE=:^TnEN7bU 

bUOGOSUBiU^U 

bU5G0T0b3U 

blUlFh=3THEN77U 

bl5lFEa/iTHENb3U 

b20GOTObOO 

b25i^HiNT"lT   WAHMS  MY  HEART  TO  HEAH  YOU  bAY    THAT-      GOOD  GOING-" 
b30i^hlNT 

b35PKlNT"VELLj   BY  NOW  YOU  MUST  HAVE  AN  INKLING  AS  TO  THE  TYVE  OF" 
b^Ur'nlNT^CLIMATE   WE  HAVE  HEkE-     BELOW  iS  A  COMPLETE  LISTING  OF  ALL  TrtE" 
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oSui^iil  w  I' 

Coui^«wl  i'j  l'"i>JUi'Jt>r.ii*'^  •SNjH;'';::,   OF   CLi I'L" 

to65r';»i*>J  1'"=:  =  =  =:  =  =:",  "ssss  =  =  =:  =  =  =:=:=  =  =:  =s  a" 

oc  bi"     N   "  ^  •  S  "  Tit  Ox"  X  U  A  L        Jai>jiMH ' ' 

ovDriiiNT"6'S"K£DI  TEiuii^NEAN" 
voUi^iaNVV^^hHiilNL   Wi:JbA'  COAb'A"* 
5i"ivl  i\V"b'*  >  "nU;^ii  U  GOw  A'iwLivj  laL'* 
^>AuA^niNy^'S''nuhID   i  jl>  AuO*^  I  CaL" 
Vl  t>j  i  **  AO  "  ^  "I'ii  uuL£   La  lU  i' Jui:,  GiLaooLHivjU:^" 

^i:iUi"nlNT"A  A'S'ViIuDLi:,  La  i  i  i  uui:.  ui:,i£4.i''» 
^JciDi-iaiMT"  Aid*S"iJdAivi'iC  L;LIi'iHi'£i" 
vjui-nIi>jT"  AJ   Ou    A^'S  "niGnLAiviD  CLIi^ai'ho" 
vobi^iil  .Nil"  A^vOi^iUaL  On  ^aUA^Li!.  Lnfliuui..^: 

ty^4ui"iai>j  A  "  A  'VOLau  VJwOiiA" 
^^Sa^iUNT"  A  6'S'VOLAiv  IC£UHA^" 

yDbi^.vi.>jT"WhAf  lo  ifii:,  i^jUt'io£u  OF  ini:.  CLlL^'iMin  vl£  nt\\JE  CW£'LL  ACGEr"  i"  i*n£ 
^J60  i^.tltNii'   "FhUa"    AnAi    Ui..  i    t^HX    Ol^£ttLHr' ) 

•s/VbA^iilw  I' 
^bOA^AlNT 

^JOblFo=L(^)Tn£^  Auub 

.yvUi-iilt\ii"t\x    oUGGhi  AlOi\j   -   iA*ICx<   TO  LMi>jGUriG£o  Oi\  bOCXAL  iA*UDi£b." 
J^DA^nANfYOU   SnOuLb  ritW/E   bAXA^";  LC  ^  )  ;  "  .      GOOu   UA  x'  TO  VOU.** 
AUUUiTOi^ 

AUU5i-»xilNT'''xOUAt  FOrtru>J£  Ab  A  i'i£  r£OriULUGX  i  i    lb  tiUUUlNG.      IT  WAb" 

AU  AUi-nlNT"VEiCY  iNjICK  TO    v/OilK  WITn    lOU.      bU  LOiMG." 

AU  A  SbTOi^ 

AUblULETijs  A 

AUi25GOTOA0^5 

AU3ULETB=2 

AU35G0T0A0^b 

AU^0LETB=3 

Au^bA^i-cINT'^Hw  C'inOiNj>    YOU  COULUN '  i'  i^OiblbLr  il£Ai>J  A'nai...." 

AObUi^ftIi\iT*'TOU  brtOULD  HAVE  bAlU'StJ 

A055i^rtINT 

AU6Uu£TUiuNj 

AOoSDATAA  A>6>A6>7>iiJ>Au>ii6>J>i:i7jAb 
AuvuDATA2b>b>i>9>  Ai>32>3>33>AJ>3^^AA 
AUV5DA 

AA35>  V>  JV>A6>^0>o>^A>A3>^/l>5 
AAUUDATA^6>  A U  >  ^b >  A  6  >  50  >  A  >  b  A  >  A  id^  S6  ^  ^ 

A  A0  5DATA3y>^>^^i>5>  35>^>^U>d>^5>  A^^A  ^  A  b>^6>  I      5  A  ^  5 ^  56 ^  A  6 
A  A  AODATAU^U 
A  A  AbEWU 
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DISCIPLINE     EARTH  SCIENCE 
SUB  J  ECT       CLOUD  FORMATION 
PROGRAM  NAME  CLOUDS 


DESCRIPTION: 

This  program  tests  student  ability  to  solve  problems  related 
to  the  formation  of  cumuliform  clouds  (i.  e.   L,  C.  L*  ,  temperature  at  various 
altitudes).    In  Phase  I  of  the  program  students  enter  the  variables  and 
unknowns  of  previously  assigned  problems.    The  computer  checks  the 
students*  answers  and  supplies  the  correct  answers  if  an  error  is 
detected. 

When  Phase  I  is  completed  the  computer  automatically 
presents  a  group  of  new  problems  for  the  student  to  solve  and  check 
at  the  machine. 


OBJECTIVES: 

The  program  attempts  to  reinforce  and  apply  the  following 

concepts: 

A.  There  is  a  specific  rate  at  which  temperature  drops  in  a  rising 
parcel  of  unsaturated  air. 

B.  Once  air  becomes  saturated  and  condensation  begins,  the  lapse 
rate  decreases  due  to  the  release  of  latent  heat  of  vaporization. 

C.  The  base  level  of  a  cloud  (LCL),  and  temperatures  within  it  can 
be  calculated  from  ground  level  data. 


PRELIMINARY  PREPARATION: 

A.  Student    -  Students  should  be  familiar  with  the  terms  and  values  of 
the  dry  and  wet  adiabatic  lapse  rates,  normal  lapse  rate,  and  the 
formula  for  calculating  the  Lifting-Condensation  Level. 

B.  Materials  -  Printed  sets  of  problems  with  the  following  variables  and 
unknowns : 

1.  Air  temperature  on  the  ground. 

2.  Dew  point  on  the  ground 

3.  Temperature  at  the  base  of  the  cloud. 

4.  The  elevation,  in  feet,  of  the  base  of  the  cloud  (LCL). 
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DISCUSSION! 

This  program  is  designed  for  average  students.  Individuals 
should  be  permitted  to  go  to  the  computer  to  check  any  problem  or 
groups  of  problems  whenever  the  machine  is  free.    The  teacher  in 
the  lesson  acts  solely  as  a  resource  person  to  help  those  students  unable 
to  arrive  at  correct  responses  because  of  conceptual  errors  -  not 
mechanical  errors. 

To  speed  the  Irjsson,  Phase  II  of  the  program  may  be  omitted 
entirely,  by  procedure  1,  or  from  early  runs  by  procedure  2. 


Procedure  1 


Erase  Lines  561  -  699,   770  - 
790  and  change  line  55  7  to  read: 
If  P>  1    then  20C0. 


Procedure  2 

Change  line  55  7  to  read:    If  P>  1 
then  200a 

When  you  are  ready  to  use  Phase  II 
merely  retype  line  557  as  originally 
listed. 
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STAOHa  COMVICTIOII  CUBaWlTS  MX  CAUSma  ^DJ^TIC 

cooLiNa  or  aib  mbs  you  aw  ajid  am  mspowsibl*  ^ob  the 

rOaNATlON  OF  A  CLOUD.     BOTH  THB  DBY  AND  THE  «iST/DXABATlC 
(A5VKU.  AS  THE  N08MAL  LAPSE  BATES)  ABE  CONSlDtBED  IN  THIS 
PB06BAN* 


LSQEND 

UTHE  TBNPEBATUBE  ON  THE  GBOUND 
fi-THE  DEV  POINT  TEKPEBATURE  ON  THE  GROUND 
>THS  TEHPEBATUBE  AT  THE  BASlC  Of  THE  CLOUD 
4.THE  ELEVATION^  IN  rE£T#  OF  THE  CLOUD  BASS 

CHOOSE  ANY  TVO  OF  THE  ABOVE  VABIA8LES  AND  SELECT  VALUES  FOB 
THEM.     TYPE  THEM  IN  ASl 

VMBIABLE  CODE  #VALUE#  VABIABLK  CODE  #VALUE»*  .CE.a.  1#50#8#30> 
7  1#S0#8#41 

ObCAY#  TYPE  IN  YOUR  CALCULATED  VALUE  FOR 

1MB  TBNPEBATUBE  AT  THE  BASE  OF  THE  CLOUD 

FOLLOW)  NY  A  COiaiA#  AND  THEN  TY^E  IN  YOUB  VALUE  FOB 

THS  BLBVATI0M#  IN  FEEt#  OF  THE  CLOUD  BASE 

7  39#aooo 

VERY  OOOD*     VEBY#  VERY  800D* 

00  YOU  HAVE  ANY  OTHER  PROBLEMS  YOU  VOULD  LIKE  TO  TBY7 
(1»YES#  0»N0>   17  1 

USXNB  THE  SAME  LEOEND  AS  BEFOBE*** 

CHOOSE  ANY  TVO  OF  THE  ABOVE  VARIABLES  AND  SELECT  VALUES  FOB 
WEN.     TYPE  THEM  IN  ASt 

\ABIABLB  CODE  #VALUB#  VARIABLE  CODE  #VALUE» •  •CE^Q*  l#50#B#dO> 
7  1#90#3#85  . 

(MAt*  TYPE  IN  YOUB  CALCULATED  VALUE  FOR 

1MB  DKV  POINT  TEMPEBATUBE  ON  THE  OBOUMD 

FOIXOVEP  B?  A  COHMA#  AMD  TUBN  TYPE  IN  YOUB  VALUE  FOB 

IMS  ELEVATION^  IN  PEET#  OF  THE  CLOUD  BASE 

7  30#4iOOO 

IT  LOOKS  LIKE  VS  GOOFED  SOME  PLACE* 
LET*S  SEE  WHAT  THE  COBBECT  VALUES  ARE* 


SO  DE8BBSS  *  THE  TEMPEBATUBE  ON  THE  GROUND 

89.S4M5  DEGBEES  -  THE  DEV  POINT  TEMPEBATUBE  ON  THE  GBOUND 
as  DEGBEBS  -  THE  TEMPERATURE  AT  THE  BASE  OF  THE  CLOUD 
4945*455  FEET  -  THE  ELEVATION^  IN  FEET#  OF  THE  CLOUD  BABE 

SO  YOU  HAVE  ANY  OTHER  PROBLEMS  YOU  VOULD  LIKE  TO  TRYT 
<1»YBB#  0»NO>   I  7  0 

1BLL#  BEFOBE  YOU  U>UIVE#   I  HAVE  A  PBV  I  *D  LIKE  YOU  TO  TBY*»* 
lABEO  ON  YOUB  VALU£C$#  TUB  HEIGHT  OP  THE  CLOUD 

(HBASUBBO  FBOM  THE  CLOUD  BASE)  IS     IG1SUG8     FT*     CAN  YOU  TELL  HEt 

WAT  II  THE  TBMFERATUBE  AT  EACH  OF  THESE  ALTITUDES  I 
1     31«S  FT 
a     318lf  FT 
3     13434  FT 

1MB  TEMPERATURE  AT     3118     FT.   IS  7  30 

aOBBY»     YOU  VSBE  DOING  GREAT  THERE  FOR  A  WILE. 

IKU.#  BACK  TO  THE  BOOKS*     THB  VALUES  YOU  SHOULD  HAVE  fBBi 

1  THE  TEMPERATURE  AT  3168  FEET  IS     38*5  DEGRESS 

a  THE  TEMPERATURE  AT  31 GIG  FEET  IS  *6!« 30304  BEGBEES 

3  THB  TEMPEBATUBE  AT  13430  FEET  IS  •8*878787  BBGBEE4 
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IOJiXM"A.C«CAQaXAN0^K.A.(IALiXTTA«  PATCHOGUS  H.S.#  11*80*68 
11RXM--AEVXSCD  BY  CHMLBS  LOSIK  AND  TONY  PSBC2  7/16/69 
la  ASM    aX'BSVXSBD  Bir  C .LOSIK  9-86*70 

aOBBN— THIS  PROCUIAM  IS  ASSOCIATED  WITH  CLOUD  rORNATION 

aSBSM  PHASE  I  or  PaOGRAM  BEGINS  HEAE*     STUDENTS  WILL  BE  GIVEN 

SMSH  INTBOOUCTOAY  INTOHMATION  AND  BE  ALLOVSO  TO  ASK  AND  ANSWER 

87iiBM  ANY  NUNBEB  OT  PROBLEMS*   WHEN  THEY  INPUT  NO*  8  (LINES  554-556) 

8BREN  PROGBAN  SENDS  THEM  TO  PHASE  II  (LINE  561  AND  FOIXOVING)* 

30PRINT**  -#-CLOUD  NINE- 

40PRINT'*  — — 

45  DIM  B(a)#  T<4>#  Q(3}#  A(3}#  C(3) 

SOPaiNT 

dOPBlNT"*       STRONG  CONVECTION  CURRENTS  ARE  CAUSING  AOIABATIC** 
lOPalNT'*CO0LlNG  OT  AIR  WHERE  YOU  ARC  AND  ABE  RESPONSIBLE  FOR  THE"* 

aopaiNT**roBmtlON  op  a  cloud,    both  the  dry  and  the  moist  adiabatic** 

90PB1NT'*(A5  MtLL  AS  THE  NORMAL  LAPSE  RATES)  ARE  CONSIDERED  iN  THIS'' 

91PRINT**PB0GRAM*-* 

lOOPBINT 

10ft  PAINT 

IIOPBIMT'*  •*#'*LEGBNir 

IBOFAINr* 

140PRlNT*l-'*i 

IftOflOAUBlOOO 

160FBINT'*a-'*l 

110MSUB1010 

180PRINT"*3-'*i 

190i0SU810t0 

iD0PRINT*4-'*l 

BIOGOSUBIOJO 

aMPAIHT 

BBS  PAINT 

830  PRlNT*"CNO0SE  ANY  TVO  OT  THE  ABOVE  VARIABLES  AND  SELECT  VALUES  POR** 

831  PBlNT-*THBM*     TYPE  THEN  IN  ASl** 

838PAINT'*VAAIABLS  CODE  «VALUE#  VABIABLE  CODE  #VALUE«  •  •  ( E* G*  l^SO^B^dO)"* 
833  PAINT 
840  LET  XmO 
848  LET  T«0 
Mft  LET  A»0 

846  LET  BM) 

847  LET  B<l)«iO 
846  LET  B<8>»0 
88GINPUTB( 1)#A#B(8)«B 
BfOPBINT 
300P0AI-1T04 
310IPB( 1 )«ITHEN330 
380aBXTI 
330LBTT(I>»A 
348rOaj»lT04 

380 1  PB(  8  >«JTHBN3  70 
diGMBETJ 
379LBTt(J>-B 
380IPI«»UTNBM40S 

3MPBlNmrdU  CAN'T  USB  THE  SANE  VALUES  TVICB*" 
395GOt08SO 

4D5PAIHr*0KAY#  TYPE  IN  YOUR  CALCULATED  VALUE  rOR"! 
406PA1NT 

410IP>I<»8TNEN485 

411LBTT-<T(l>-T<8))/4.5 

418LBTT(4>-10004T' 

413LBrr<3>-tC8)-T 

414G08UBI080 

41ftM8UB1099 

416G08ailB30 

417INPUT3UY 

41BlPABS(X«T<3))>«*6THBN5O0 
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4 1 9 1 FABS  (  Y-T  (  4  >>>••  6THKii500 

480Q0T0550 

4851 r J« I <>3TH£N440 

426LSTT«(T( 1 >-T(3>)/5.5 

487LCTT(4>»1000«T 

4aeL£TT(8>«T4-TO> 

489005101010 

430G0SU61050 

431Q0SUai030  _ 

438INPUTX»T 

433 1 FABSC X- T( a  >  ) >•  •  6THSII500 

4341 rABS( Y-T( 4 > > >• • 6THEN500 

435Q0T0550 

440 1  r  J«  1 04THSM45  5 

441LXTT«T(4>/1000 

448LXTT(&>«T(1>-4.5«T 

443LXTT<3>-T<8)-T 

444eOSUB10lO 

445aOSUB1050 

444aOSUBl080 

447INPUTX»Y 

44« I rABS(  X-T(  8  >  >  >•  •  6THKM900 
449 1 FABS (  Y-T (  3  >  >  >•  •  6TftXJf 500 

450^BIMT*«0liAY»  TYPS  IN  YOUB  CAIXULATBD  VALUE  FOR" 

45 5 I r J« I <>6 THBM4 70 

454LBTT«TC8>-T(3> 

4S7LBTTC 4 > ■ 1000 *T 

45«LBTT(  1  >«t(3>4>5*5*T 

459eOSUB1000 

460aOSUB1050 

441Q0SUB1030 

468IMPirrX»Y 

463irABS(X-T( 1 >  >>«.6THSN500 

4*4 I r ABS ( Y« T ( 4 > > >- • 6THBN500 

46580T0550 

470 I r J* I <>8TU£N4e5 

471 LSTT«T ( 4  > / 1 000 

478UITT<3)-t{8)*T 

473LXTT( 1 >-T<8>>4.5*T 

47480SUB1010 

475MSUB1050 

474aasuBioao 

477IMPUTX»Y 

47SXrABS(X-T(  1  >  >>«.4T11BM900 
4791 FABSC  Y-T(  3 >  >  >- •  6TMBai»00 
4BOaOT0550 

48 1 I r AB S ( X- T ( 3 > > >• • ^TMBMiOO 

4B 5 I r J* I <> 1 8THXa390 

48«LXTT«T( 4  > / 1 000 

4B7LXTT(1 >«T(3>>5.5*T 

4B«LXTT(8>«T(3>>T 

4B9aOSUB1000 

49080SUB1050 

491B0SUIt010 

498IMPUTXjY 

493irABS(X-T( 1 >  >>«.4TUBM500 
4941 FABSCY-TC  8  >  >  >- •6TllBai500 
49S80t05S0 
900PJIIIIT 

508^81111^1?  LOOKS  LIKE  VE  aOOFBO  SOME  PUiCE*** 
505PBINr*LBT*S  SEE  MAT  THE  COBHECT  VALUES  ABE*** 
SOTPBlNT 

510  PBIMT  TCn^BEBREES  -  "i 

518  00  SUB  1000 

515  PRINT  T<8>'*PEaRESS  - 

517  80  SUB  1010 

S80  PRINT  TC3>'*DEaREES  -  "J 

588  80  SUB  1080 

585  PRINT  TC4)"FEET  -  -I 

587  80  SUB  1030 

58       7  I 
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530  PaiVT 

5d5mT0554 

SSOPEIMT 

558PRiirr'*vsaY  qood.    very#  vxry  good.** 

553PRI  NT 

554i>aillT'*I>0  YOU  HAVE  ANY  OTHER  PROBUXMS  YOU  VOULD  LIKE  TO  TRY?" 

555  PRINT  ^'Cl-YSS^  0-NO)   I  "I 

556  II^UT  P 
557irP<lTUSN561 
559PaiNT 

559PRINT'*USIN6  THE  SAME  LSQEND  AS  BEFORE.  ••** 
560flOT0830 

561LETM-CTC1)-TC3))*2000-7*TC4) 

568RSM  LINE  561  CALCULATES  ALTITUDE  FOR  TOP  OF  CLOUD  AND  BEGINS 
563aEM    PHASE  II  OF  PROORAM.     PROBLEM  NO .8  IN  THIS  PART  (CALCULATION 
564REM    OF  TEHP.  ABOVE  CLOUP  TOP)  INVOLVES  OSE  OF  THE  NORMAL  LAPSE  RATE. 
569PmiNT 

S41PRlNr*IIBLL#  BEFORE  YOU  LSAVK#  I  HAVE  A  FEV  I  *D  LIKE  YOU  TO  TRY...- 
570PmiNr'BASEO  ON  YOUR  VALUES#  THE  HEIQHT  OF  THE  CLOUD" 

S0OPRI NT* (MEASURED  FROM  THE  CLOUD  BASE)  IS  "JHJ**  FT.     CAN  YOU  TELL  MEt»« 

600LSttt(l)-»7*T(4) 

601LSTOCa>-T(4)^l ^S^H 

60aLrrQ(3>-T(4>^.5*U 

610LSTA( 1 >-T( I>-T(4>*3.65E-3 

611LETA(a>-T(l>-(T(4)^1.5«H)*3.5E-3 

61ttLBTA(3>-T(3>«1.5E-3*H 

614rRINT  ' 

415PRINr'WAT  IS  THE  TIMPEBATURS  AT  EACH  OF  THESE  ALTITUDESl** 
6A0FMH«IT03 

6ASrRINr*  '*#NIIHT(Q(N)>.5)I'*FT'* 

•BTMlJtT  N 

MBPJUNT 

6BfF0aN-lT03 

6J0PRINT*TUB  TEMPERATURE  AT  "•JINT(A(N)^.5)J'*  FT.  IS  **J 
431IHPVTC(N) 

63SIFABB(C(N)-A(N))>1.1THEH750 

MOMBXTN 

6MPR1HT 

100PRlHr*WV#  YOU  MUST  BE  A  BBAIN*     AND  YOU  PROBALLY  JOiOir 

710PRlMr>A  LOT  ABOUT  CLOUDS  AND  THI N6S  LIRE  THAT.     IT  HAS  VERY** 

7iOPRlHr*MICE  TO  VORX  VITH  SOMEONE' MHO  UtDBRStAHDB 

790PRI NT*      "THANK  YOU  AMD  ....  PEACE  AMD  LOMB  LIFE" 

740BTOP 

7S0PB1HT 

75SPRlNr"fOBRY.     YOU  BBRE  OOIHB  OBEAT  THERE  FOB  A  WILE." 

7MrRlHr*WLL#  BACK  TO  THE  BOOKS*     THE  VALUES  YOU  SROULB  HAVE  AMI" 

7MPBIMT 

nBF0BM«lT03 

77APBIMtaj 

lBOPBlMT"tHB  TWBBATURE  AT"J INT(B(N)^.5) J"FEET  IS  "IA(H)I"BBMRBES" 

TfONSETM  " 

BJBSTV 

IMBPBIM 

r*THB  tBirBBATUBE  ON  THE  BBOUND" 

iooAbbtubh 

ioioPBiMr*THE  bbv  poimt  tbmpbbature  om  tub  BBOMHP" 

lOlBBBtBMM  ' 

IBBOPBIMT'THE  TEMPBBATUBE  AT  THE  BASE  OF  THE  CLOUB" 
lOBBMBtUBB 

lOaOPBIHT'TMB  ELSVH^TIOM#  IN  FEET#  OF  THE  CLBUB  BABE** 
1B3SBBTUMM 

SBtOPRINT^BLLBMBD  BY  A  COMMA#  AHB  THEN  TYPE  IM  TOUR  VALVE  FOB  " 

1055BBtUBB 

BOOOBHD 
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DISCIPLINE      EARTH  SCIENCE 

SUB  J  EC  T  WATER  BUDGET 

PROGRAM  NAME  WATERl 


DESCRIPTION: 

This  is  a  tutorial  program  which  takes  a  student  through  the 
step-by-step  calculations  of  a  water  budget,  checks  the  correctness  of 
his  responses,  and  indicates  the  location  of  his  errors.    In  difficult 
parts  of  the  budget  instructions,  clues  are  given  before  the  student 
is  asked  to  re -calculate  his  work. 


OBJECTIVES: 

This  program  is  designed  to: 

A.  Enable  students  to     visualize"  an  areas'  climate  in  terms  of  its 
moisture  patterns  of  usage,  storage,  recharge^  and  deficit. 

B.  Illustrate  the  relationship  of  deficit  and  surplus  in  light  of 

growing  seasons  for  crops,  watering  of  lawns,  the  need  for  irrigation, 
and  the  occurrence  of  floods. 

C.  Develop  the  skills  necessary  for  the  successful  completion  of  a 
water  budget. 


PRELIMINARY  PREPARATION: 

A.  Student  -  Students  should  understand  the  following  terms:  potential 
evapotranspiration,  actual  evapotrans piration,  deficit^ and  surplus. 
The  concept  of  a  change  in  value  of  a  number  (A-ST  or  '  delta'  -ST) 
should  also  have  been  covered. 

B.  Materials   -  Ditto  sheets  containing  water  budget  tables  should  be 
available  for  each  class  member.    A  sample  table  follows: 
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WATER  BUDGET 
FOR: 


•ogres  s 
de  no. 

•  -  — ■ 

1 

J 

F 

M 

f 

A 

M 

J 

w  

i 

A 

S    [  o 

N 

D 

P 

PE 

P- 
PE 

ST 

ZiST 

! 

i 

AE 

i 

...I... 

1 

i 

1 

 1  

D 

1 

S 

1 

1 

A  set  of  water  budget  graphs  should  also  be  available  if  the 
teacher  wiahes  to  have  his  classes  complete  the  graph  in  addition  to  the 
water  budget.    See:    Investigating  the  Earth,  Teacher' s  Guide,  Part  L 
P.  402  of  the  Earth  Science  Cur ric"urum  Project. 


DISC  USSION: 

This  program  is  applicable  to  individual  or  small  group  (  5  or  less) 
instruction,  and  is  designed  for  average  students. 

Tlie  progress  code  numher  assigned  to  the  student  indicates  to 
tf:e  prof^ram  the  extent  to  wliich  the  student  has  progressed  tfirough  tlie  program. 
These  numbers  should  be  fhosen  according  to  tlie  following  table: 
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I'l'O'iress 


Cocl<^  ft  Sta*^^e  of  Calculation  of  Water  Budget 

0-10  Introductory  information 

11-20  Student  is  ready  for  "?-PE"  section  of  projiram 

21-:i0  ready  For  "ST''  section  of  program 

31-40  ready  for      -ST'*  section  of  program 

-^l-i^O  ready  Tor  "A.E."  section  of  program 

■"^l-t'O  ready  for  '»D"  section  of  program 

•  »I-~0  ready  for  "S"  secl'ion  of  program 


Eacli  t^rudent  may  work  on  a  different  water  budget  by  entering 
a  tinlfjue  sei'  oi'  data  in  lines  43  and  44.     Line  42  also  may  be  changed  to 
indicate  the  region  whose  water  budget  is  under  study. 

This  program  should  be  used  in  conjuncrion  with  program 
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WAT  IS  YOUR  PROOaCSS  CODE  NUMBSH?  5 

mrca  budgkt  for  rutlano^vt^s 


pt 

57      48       63       74      60       90       86       86       98       94      88  56 
PZt 

0        0         0         88       75       114     133     114     78       41       8  0 
MOW*  RETURN  TO  YOUR  SCATS  AND  SEPARATELY  VORK  OUT  YOUR  VALUES 

rOR«     •P«PE»        AND  *STORAQE*. 
RETURN  ONLY  AFT^^A  YOUR  TEACHER  HAS  CHECKED  YOUR  VORK  AND  GIVEN 
YOU  A  NEV  PROGRESS  CODE  NUMBER  I 


READY 
RUN 

WAT  IS  YOUR  PROGRESS  CODE  NUMBER?  15 


PRINT  YOUR  18  VALUES  rOR  P-PE  WEN  YOU  SEE  THE  QUESTION 
MARX.     ATTSR  EACH  OF  THE  VALUES  PRINT  A  COMMA  <«><^-BUT 
DO  NOT  PRINT  A  COMMA  AFTER  YOUR  LAST  VALUEI  SIMPLY  HIT 
'RETURN** 

7  55#48#63#46#5#-84#-47#-88#14#53#60#56# 
TOO  MUCH  INPUT#  EXCESS  IGNORED 

OUCHII  THERE'S  AN  ERROR  AT  MONTH     1    •     RETYPE  THIS  LINE. 
7  57#48#63#46#5#-84#-47#-a8#14#53#80#56 
GOOD  VORXI 

NOV  LET*S  SEE  HOV  VCLL  YOUR  VALUES  FOR  *ST'  CANE  OUT.  PRINT 

THEM  AFTER  THE  QUESTION  MARX. 
7  100# 100# 100# 100# 100#  76#89# 1 # 1 5#68# 100 # 100 
YOUR  VALUES  FOR  "STORAGE*  ARE  CORRECT. 

HAVE  YOU  FINISi^SJ' THE  REST  OF  THE  MTER  BUDGET? 
<1«YES#  0«N0>   t  ?  or 

OKI   GO  BACK  TO  YOUR  SEATS  AND  VORK  OUT   *DELTA-ST*  AND  'A.E.* 


READY 
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i  BSM     CLASS  ROOM  COITION  OF  VB        PKR£2  5/1/69 

a  DIM  P(l8)#2(12>#X(18>#T(ia>#A(12)#V(18>#SCl8)#D(18)#E(18) 

3  DIM  0(18) 

4  REM     REVISED  BY  C«LOS£K  8-86-70 

10  PRINT** WHAT  IS  YOUR  PROGRESS  CODE  NUMBER**! 

13  INPUT  B 

14PRINT 

30  FOR  I  -  1  TO  18 

32READP(I> 

34LET2(I)«P(I> 

36IFB>10THEN48 

40IFI>1THSN47 

48PRINT**«ATER  BUDGET  FOR  RUTLAND^  VT.  t** 
43DATA57#40#63#74#0O#»O#66#86#98#94#«6#56 
44DATA0#0#0#8S# 75# 1 14# 133# 1 14# 70#41#0#O 
45PRINT**-  —  "-— —————— ——— — 

46  PRINT  "Pf 

47  SOSUB  500  « 
4fi  NEXT  I 

49  PRINT 

50  FOR  I  -  1  TO  18 

51  READ  T(I> 

58     LET  Z(I>-T(I> 
53  IF  B>10  THEN  50 

55  IF  I>1  THEN  57 

56  PRIHT  ••PES" 

57  GOSOB  500 

58  NEXT  I 

70  IF  B  >  10  THEN  90 

60  PRINT**NOV#  RETURN  TO  YOUR  SEATS  AND  SEPARATELY  WORK  OUT  YOUR  VALUES" 
81  PRINT-        FORI      •P-PE*         AND  •STORAGE*. ** 

83  PRINT**RETURN  ONLY  AFTER  YOUR  TEACHER  HAS  CHECKED  YOUR  WORK  AND  GIVEN*' 

84  PRINT**  YOU  A  NBV  PROGRESS  CODE  NUMBERI** 

85  GOTO  999 

90  IF  B  >  80  THEM  110 

100  PRINT**PRINT  YOUR  18  VALUES  FOR  P-PE  VMEN  YOU  SEE  THE  QUESTION** 

101  PRINT**       MARK.     AFTER  EACH  OF  THE  VALUES  PRINT  A  COMMA  (#)--BUr* 
•    ^?JNT*'       DO  NOT  PRINT  A  COMMA  AFTER  YOUR  LAST  VALUE!  SIMPLY  HIT** 

liiS?"  •RETUB.M*.** 

iC   .i.r-5U^a  530 

iioroai-iToi8 

115Lm<3:>-P<I>-T<I> 

117IFB>aOtHSNl30 

180   IF  X(I>*^0(I>  THEN  130 

181PaiNT**00CH:  I  THERE'S  AN  ERROR  AT  MONTH  **II**.     RETYPE  THIS  LINE-*' 
188  Q0T0105 
130  NEXT  I 

137  IF  B  >  30  THEN  800 
130  IF  B  >  80  THEN  148 
140  PRINT  '*800D  VORXI** 

148  PRIMT**N0V  LET*S  SEE  HOV  VSLL  YOUR  VALUES  FOR   *ST*  CAME  OUT*     PRINT  ** 

143  PRINT"       THEM  AFTER  THE  QUESTION  MAHX.V 

150  "^SUB  530 

800  FOR  I  ■   1  TO  18 

80 1 IFXC I ) >-0THEN808 

808  LET  8-0 

803  LET  S(I)  -  T      X(  I ) 

804  LET  T  -  S(I) 
a05IFS(I><-0THEN875 

806  LET  i  -  0 

807  NEXT  I 

800  LET  T~-  100 

809  LET  S(I)  -  XCD^Q 

810  LET  G  «  5(1) 
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fill  L£T  T  -  100 

212  L£T  S(I)  -  X(I>^G 

2l3irSi I > >- lOOTHCNSaO 

 ai5-G0T0  ao7 

875  LET  S(I>   -  0 

276  GOTO  881 

280L£TS(I>-100 

861L£TN1-I^1 

8b8LCTG-I 

890r0RI-NlT0ia 

310UCTM-I-1 

311LXTN-I^1 

320G0SUB352 

381NIXTI 

384  FOR  I  -   1  TO  Q 

385  LET  M  -  I-l 

387     IF  I>1   THEN  332 
380     LET  N-18 

332  GOSUB  352 

333  NEXT  I 

334  GOTO  400 

358  LET  S(I>«S(M>^X(I> 
355  IP  S(I>>«100  THEN  363 
357  IP  SCIXI  THEN  300 
360  GOTO  366 

363  LET  £(I>-S(I>-100 

364  LET  S(l>«100 

360  LET  V(I>«S(I)-S(M) 
369  LET  A(I>«T(I^ 
371  GOTO  389 
380  LET  S(I>«0 

308  LET  D(I>«ABS(P(I>^S(M>-T(I>> 
383     LET  A(1>-S(H>^P(I> 

304      LET  V(I>-SCI>-S(M> 

309  RETURN 

400  IP  B  >  30  THEN  440 

431     POR  I  -   1  TO  18 

408  IP  Q(l>  -  S(I>  THEN  420 

404PRINT**SORRY  ABOUT  THAT  I  I  MONTH"i  li  **IS  IN  ERROR-  RECALCULATE  PLEASE*' 
410  GOTO  999 
480  NEXT  I 

485  PRINT'*YOUR  VALUES  FOR    'STORAGE"  ARE  CORRECT." 

486  PRINT**     HAVE  YOU  FINISHED  THE  REST  OF  THE  WATER  BUDGET?" 

487  PRINT  "<l-YES#  0-NO)  t 
480  INPUT  L 
430XPL-1THEN441 

433  IP  LOO  THEN  486 

435PRINT**0KI    GO  BACK  TO  YOUR  SEATS  AND  VORK  OUT   *DELTA-'ST'  AND  *A«E.*'* 

439  GOTO  999 

440  IP  B  >  40  THEN  455 

441  PRINT**LST'S  SEE  YOUR  VALUES  FOR  *DELTA-ST*." 

443  GOSUB  530 

444  FOR  I  >•  1  TO  18 
446IP8( I >-V( I )THEN451 

447PRINr*THfiRE  SEEMS  TO  BE  AN  ERROR  IN  MONTH  **I*".     BETTER  TAKE  A  LOOK'* 
440  PRINT**     AT  YOUR  VALUES*  REMEMBER  DELTA -ST  -  ST  FOR  LAST  MONTH  MINU 
449PRINT**     ST  FOR  THIS  MONTH.     PLEASE  LEAVE  AND  RECHECK  YOUR  WORK*** 
49000T0999 
451NEXTI 

453  PRINT**THESB  VALUES  ARE  FINE." 
455  IP  »>50  THEN  470 

456PAINT**H0V  DID  YOUR  A.£.  VALUES  COME  OUT?     JUST  LIST  THEM  AS  BEFORE* 

457  GOSUB  530 

450POBI-lTOlt 

459IPQ( I >-A( X  >TH£N465 

460PRINt'*00PSI     YOU  DID  ITl  MONTH"I-IS  INCORRECT.  .  .RECALCULATE!  I  t" 
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461  aO  TO  999 

465  NEXT  I 

466  PaiNT'*aOOO  VORKI     THEY'RE  ALL  CORRECT*** 

470  IF  B>60  THEN  465 

471  PRINT-PLEASE  LIST  YOUR   'D*  VALUES.- 

473  QOSUB  530 

474  FOR  I  -   1  TO  12 

475  IF  Q(I>-D(I>  THEN  430 

476PRINT''Y0U  HAVE  A  DEFICIT  WHENEVER  P.E.>A.E.— AND— -ST"0.  THE** 
477PRINT-     DEFICIT  ■  THE  AMT-OF  H20  YOU 'R  SHORT  TO  MEET  THE  P.E.  FOR" 

478PRINT"     MONTH";  I'*.     THAT  ISt  D-PE-AE.     HAVE  ANOTHER  TRY  " 

479  GOTO  999 
4B0  NEXT  I 

485PRINT-N0V  FOR  THE  FINAL  ROV«     PLEASE  PRINT  YOUR  'SURPLUS*  FIQURES." 
486  GOSUB  530 

467  FOR  I  -   1  TO  la 

408         IF  Q  CD-  E  (I)  THEN  495 

489PRINt-A  SURPLUS  OCCURS  ONLY  WHEN   •ST*->100.  DID  THIS  CONDITION  EXIST" 
490PRINT-F0R  M0NTH"I"7   IF  SO  THEN   "S •-EXCESS   'P •  NOT  NEEDED  FOR  P.E." 
491PRINT'*     SEE  YOU  AFTER  YOU  HAVE  RECALCULATED!  I  I  I " 
49800T0999 
495     NEXT  I 

497  PRINT-WELL^   IT  LOOKS  LIKE  YOU  DID  IT.     FINEI I" 

499  GO  TO  999 

S00PRINT2(I>i 

90a IF2( I  7  >99TH£N525 

503IF2( 1 >  >9THSN5aO 

S04IF2(I>>*1THEN515 

305lFa:(  I  >  >-  lOTHENSaO 

506lFa:(  I  >  >-  lOOOTHENSaS 

515PRINT-  "i 

SaOPRINT-  -i 

SCSRETURN 

530INPUTQ<  l)^Q(a)^Q(3>^Q(4>^Q(5)^Q(6)^Q(  7) ^ Q(  6)  ^  Q( 9 ) 10 )       1 1  ) i 2) 

533RETURN 

999SND 
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DISCIPLINE         EARTH  SCIENCE 
SUB  J  EC  T         WATER  BUDGET 
PROGRAM  NAME  WATER2 


DESCRIPTION; 

This  program  prints  out  a  completed  water  budget.    It  may  be 
used  by  a  teacher  to  quickly  calculate  a  series  of  water  budgets  he  plans 
to  use  or  it  may  be  employed  with  more  advanced  students  to  check  out 
an  entire  budget  in  one  run. 


OBJECTIVES: 

A.  To  free  teachers  from  the  time-consuming  task  of  calculating  a 
number  of  practice  water  budgets. 

B.  To  allow  students  a  rapid  means  of  verifying  budgets  they  have  been 
assigned  for  practice  and  [drill. 


PRELIMINARY  PREPARATION: 

A.  Student    -  Students  should  be  completely  familiar  with  the  concepts 
of  evapotranspiration,  water  surplus,  water  storage,  and  water 
deficit. 

B.  Materials  -  A  ditto  of  water  budget  tables  as  shown  below: 

WATER  BUDGET 
FOR: 
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DISCUSSION; 

To  place  a  particular  water  budget  in  the  -rogram: 

1.  Call  up  the  program  by  name, 

2.  Type  the  precipitation  data  on  line  5;  the  R  E.  data  on  line  6  and 
the  title  of  the  budget  on  line  4. 

example: 

4PRINT  "  Water  Budget  for  N.  Y.  ,  N. 

5DATA  89,  86,  98,  86,  84,  85, 106, 113,  88,  88,  82,  85 

6DATA  0,  0, 12,  40,  86, 125, 149, 132,  94,  55,  22,  2 

3.  Type  "  RUN" 

The  complete  water  budget  will  print  out,    (Check  the  value  for  P 
and  PE  to  make  sure  you  have  typed  them  in  correctly,  ) 

To  add  other  budgets  repeat  steps  2  and  3  until  all  budgets  have 
been  completed. 

Additional  P  and  PE  data  for  other  regions  can  be  found  in 
Investigating  the  Earth,  Teacher' s  Guide,  Part  I,  pages  392-397. 
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Earth  Science 
WATER2 


ATEA  BUDGET  FOR  ANCHORAQ£#  ALASKA I 


22  18 

13 

10 

1  o 
i  c 

oo 

HQ 

oo 

66 

47 

o  c 

25 

o  •a 

0  0 

0 

16 

71 

104 

115 

105 

65 

21 

0 

0 

H-PEl 

22  18 

13 

a 

•o 

_  c  n 

•59 

-82 

-67 

-37 

1 

26 

25 

23 

DELTA- ST 1 

22  3 

0 

-8 

-59 

-33 

0 

0 

1 

26 

25 

23 

STORAGE- (  ST  >l 

97  100 

100 

92 

33 

0 

0 

0 

1 

27 

52 

75 

AEI 

0  0 

0 

18 

71 

55 

48 

68 

65 

21 

0 

0 

Dl 

0  0 

0 

0 

0 

49 

67 

37 

0 

0 

0 

0 

SURPLUS 1 

0  15 

13 

0 

0 

0 

0 

0 

0 

0 

0 

0 

TOTAL  P  ■ 

374 

TOTAL  PE  - 

499 

P/PE  -  .749499 
READY 


^.2 
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Earth  Science 
WATER2 


t  ASM      CALCULATES  INiTEB  BUDGZT  —  PXAS£  80NAA69 

uDiH  p( ia>#2(ia>#x(ia>#i( 18) 

3  HJ'JI      LXNBS  4#5#6  AM  FOR  -TITLE  LXl«-#  -P  DATA-*  A  -P.£»  J>ATA'' 

4  P/ilNT-VATKA  BUOaST  POR  ANCHOAAaS*  ALASKAl** 
5DATA88#l«#13#10#ia#88#4«#M#6«#47#85#83 
«DATAO#0#0#18#7U104#US#t05#65#8U0#0 

TPRXnr*-"""-"""""""""*-"""""*"— 

0  PAINT 

9  PRINT  -PI- 

10  POR  I  -  1  TO  18 

11  RZAO  PCX) 

18  LST  £(X)-P(I) 
13  OOSUB  499 

15  NSXT  I 

16  PRINT 

89  DIN  T(18) 

39  PRI NT-Pit - 

4D  POR  I  -   1  TO  18 

41       ASAO  TCI) 

48  LBT  £(I)«T(I) 

44  80S(JB  499 

45  MKXT  I 

44  PRINT 

59  PRINT  -P-PEt- 
61  POR  I  -  1  TO  18 
48  LKT  jt(I)-P(I)*T(I) 

45  LBT  £(I>-X(1S 

46  MIW  499 
67  NUT  I 

66  PRINT 
69  iOTO  '>9 

97  urr  0-0 

96  DIN  A(ia)#\;(18) 

99  DIM  S(13>#DC13)#X(ia) 

100  fOR  I  -  1  TO  18 

101  IP  X(I)>«0  THXN  lOi 

108  LST  8-0 

103  LST  S(I)  -  T  ♦  X(I) 

104  LET  T  i  KI) 

105  IP  S(I)4-0  THEN  175 

106  LET  6*0 
10  7  NEXT  I 

105     L5?  t  ■  100 

109  LET  5(1)  -  X(I)^a 

110  LET  0  -  5(1) 

111  LBT  T  -  100 

118  LET  5(1)  ■  X(I)*a 
113  IP  S(I)^<»100  TRIM  180 
115  OOTO  107 

175  LET  2(1 >  -0 

176  OOTO  161 

160  LET  5(1)- 100 

161  LBT  NT   -  I  ♦  1 
168  LBT  6  -  I 

190  FOR  I   -  Nl  TO  18 

810  LET  jl-I-l 

811  LET  N  -  I^l 

aac  aoso;>  858 

881  NSXT  > 

884  70R  I'-i  TO  Q 

885  LET  f(-I*l 
»I7XPI>1TNAN838 
6'i6  LET  N-18 
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tarrn  iicience 
WATER2 


83a  G03UB  asa 

a33  NEXT  I 

a34  aOTO  391 

asa  LET  S(I  )-S(N>-t>X(I  ) 

855  Xr  S(I>>«100  THEN  863 

857  IF  S(X><1  THEN  860 

860  GOTO  868 

861  GOTO  868 

863  LET  E(I)«S(I)*100 

864  LET  5tX)-100 

a6r.  L^T  ii(X)-S(I)-S(H) 

n\Ji>-Tci> 

27}  .  €39 

d6C  -  '  1*  )  "0 

888       .<.<v  D(I)-ABS(P(X)-fS(M><-T<X)> 

883  LET  A(X)-S(M)-i>P(I> 

884  LET  V(X)-S(X)-5<M> 
869  RETURN 

391  PRINT  "DELTA- ST 
39^  FOR  I  '   I   10  18 

393  LET  2(I>-V(I) 

394  80SUB  499 

395  NEXT  I 

396  PRINT 

399  PRIMT^STORAGE-CST)!" 

400  FOA  X-1   TO  18 

405  LET  2(I>-S(I> 

406  G0SU8  499 
410  NEXT  I 
415  PRINT 

419  PRINT'*AEI** 

480  FOR  X  -   1  TO  18 

485  LET  2(I>»A(I> 

486  60SUB  499 

427  NEXT  I 

428  PRINT 

439  PRINT  -Dl** 

440  FOR  I  -   1   TO  18 

445  LET  Z(I>-0(I> 

446  GOSUB  499 

450  NEXT  1 

451  PniNT 

459  PRINT  "SURPLUS I** 

460  FOR  I  -   i  TO  Id 

465  LET  2(I>-E(I> 

466  60SUB  499 
468  NEXT  I 
470  PRINT 

475  FOR  I  ■   1   TO  12 
477     LET  0-P(I)*0 
479     LET  H-T(X)4H 
400     NEXT  I 

481  PRINT 

482  PRANT  "TOTAL  P  ""#0 

483  PRINT  "TOTAL  PE  ■">H 
464  PRINT  "P/PE  ""O/H 
485  GOTO  999' 

499  PRINT  Z(I)i 

500  IF  Z(I)>99  THEN  525 

501  IF  2(X)>9  THEN  580 

502  IF  Z(X)>*1   THEN  515 

503  IF  Z(I)>-10  THEN  515  . 

504  IF  Z(I)>*1000  THEN  520 

505  REM  504  READS  >1000  TO  PREVENT  SPACING  AFTER  NUMBERS  BETWEEN 

506  REM  -100  AND  -1000 
515  PRINT  "  "I 

520  PRINT  "  "i 
525  RETURN 
999END 
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HUNTINGTON     COMPUTER  PROJECT 


A  TEACPiER^S  MANUAL 
(COMPUTER  -  RELATED  MATERLALS) 

S  econd  Edition 
January  31,   1 971 


Director:   Dr.  Ludwig  Braun 
Assistant  Director:   Dr.    Marian  Visich,  Jr. 


Polytechnic  Institute  of  Brooklyn 

333  Jay  Street 

Brooklyn,   New  York  11201 


Developed  by  the  Huntington  Computer  Project  during  the  period 
May,  1968  and  September,  1970.     This  effort  v/as   supported    by  the 
National  Science  Foundation  under  Grant  No.  J000079. 


The  enclosed  material  is  a  compilation  of  computer  programs 
developed  during  the  period  May,    1968  to  September,    1970.  These 
programs  were  developed  by  teachers  and  students  in  the  high  school 
which  participated  with  us,   and  by  the  Project  staff. 

All  of  the  enclosed  programs  have  been  tested  on  a  Digital 
Equipment  Corporation  TSS-8  time-shared  computer  during  the  suimner 
of  1970.       To  the  best  of  our  ability,  we  have  assured  ourselves 
that  the  programs  actually  run.     It  should  be  pointed  out,  however, 
that  we  were  not  able  to  make  an  exhaustive  explor'dtion  of  the  pro 
grams.     There  may  be  undiscovered  bugs   (if  there  aren't,   it  may  be 
the  first  time  in  the  history  of  computi'ig).       We  v^ouid  appreciate 
hearing  of  any  which  emerge  in  the  future. 

These  programs  run  in  the  version  of  BASIC  s    "ch  existed  on 
the  TSS-8  in  August,    1970,   and  should  run  on  most  otiier  versions  of 
BASIC,     The  major  potential  problem  on  othe:r  rraehmos  is  the  output 
format   (DEC  uses  14  columns  per  print  zone,   wh:lie  some  other  manvi- 
facturers  use  15;   we  used  the  TAB  function,,  which  doesn't  exiat  in 
all  BASIC  compiles).     It  may  be  necessary  to  make  so'^^  miro* 
changes  in  progrrams  to  adjust  this  format.     Another  r  >ssible 
problem  is  in  the  use  of  the  RANDOMIZE  command  in  jome  programs* 
to  start  the  random-numbe:--  generator  at  a  random  P'^int,     If  t^-^y, 
command  is  not  available,   some  other  means  should  bo  devised  icr 
randomizing  the  start. 

It  is  our  sincere  hope  that  these  programs  and  their  sup- 
porting  documentation  will  be  helpful  to  educators  who  are  exp5'^-  - 
ing  the  uses  of  computers  in  education, 

We  are  anxious  to  hear,  of  any  bugs,  errors,  or  i.mproveme)  ts 
in  leso  programs,  and  are  especially  anxious  to  hear  of  any  novel 
ways  of  using  them. 


Ludwig  Braun 
Marian  Visich,  Jr. 


TABLE  OF  CONTCNTS 


Volume  I 

BIOLOGY 

DROS  1 
Game  approach  to  determination  of  the  genetic 
characteristics  of  Drosophila . 

EVOLU  7 
Simulated  experiment  -  The  relationship  between 
evolution  and  natural  selection  is  accomplished  by 
studying  a  population  of  mutant  moths. 

GAMGN  14 
Review  of  gametogenesis  using  diagrams  and  questions. 

MEMBR  20 
Experiment  simulation  showing  the  active  and  passive 
transport  of  materials  across  a  membraiie . 

NZYMC  25 
Simulated  experiment  -  Degree  of  enzyme  reactivity 
varies  as  environmental  conditions  are  '"hanged. 

NZYM2  '  32 

Simulated  experiment  -  Maximum  enzyme  reactivity  is 
shown  as  being  dependent  upon  an  interaction  of 
environmental  conditions. 

PHOSYN  38 
Simulated  experiment  -  Photosynthetic  production  of 
sugar  varies  as  student  varies  light  intensity  or 
carbon  dioxide  concentration . 

EARTH  SCIENCE 

CLJMAT  45 
Practice  in  identifying  climates  and  climatic  patterns. 

CLOUDS  54 
Explores  problems  related  to  the  formation  of  cumu- 
li form  clouds. 

WATERl  60 
A  tutorial  program  which  goes  through  the  calculations 
of  a  water  budget. 

WATER2  67 
Prints  out  a  complete  water  budget. 
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Volume  II  ■ 


CHEMISTRY 
ATWT 

Calculates  atomic  weight  from  percent  abundance  of 
isotopes . 

AVOGA 

Calculates  Avogadro"s  nur.iber. 
DECAYl 

Radioactive  decay  is  treated  qualitatively  in  a  game- 
type  situation . 

DECAY2 

Calculates  half-life,  mass  and  prints  a  table  showing 
mass  or  number  of  particles  of  a  radioactive  sample. 

EM.PIR 

Calculates  empirical  fojrmulas. 

EQUILl,  EQIJIL2 

Calculates  the  effects  of  concentration  changes  in  the 
equilibrium  systems:    2HI^H^  +  I^  and  PCl^^PCl^  +  CI. 

KINET 

Tabulates  and  graphs  equilibrium  concentration  data. 
MASSD 

Calculates  mass  defect. 
MOLAR 

Calculates  molarity  from  tit:3tlon  data. 
PMPOH 

(^Iculates  pH,  pOH,  and  percent  dissociation. 
PRCMl' 

Calculates  percent  composition. 
STOICi: 

Solves  mass/mass,  mass/volume,  and  volume/vo] urne 
problems . 


Volume  III 

MATHEMATICS 
ARITH 

Review  of  multiplication  skills.  (General  Math) 
BANK 

Solves  financial  problems  concerning  installment  buying, 
long  term  loans,  and  savings  accounts, 

CRVLEN 

Computes  t  ie  length  of  any  curve,     (analytically  defined) 
CVAREA 

Computes  the  area  under  any  curve,     (analyticall.y  defined) 

CCD 

Finds  the  greatest  common  divisor  of  any  set  of  numbers, 
LIMSIN 

Evaluates  the  limit  of  sin  x/x  as  x  approaches  zero,  in 
both  radian  and  degree  measure, 

PI2 

Computes  the  area  of  a  circle  using  both  inscribed  and 
circumscribed  regular  polygons. 

FLOTTR 

/•'lots  the  graph  of  any  function, 
PRIFA 

Finds  prime  factors, 
QUADRT 

Describes  the  graph  of  the  second-degree  equation. 
Ax"  +  Bxy  +  Cy    +  Dx      Ey  +  F  =  0, 

RATIO 

Solves  for  the  unknovm  in  a  proportion, 
R00TS2 

Finds  the  real  roots  of  the  quadratic  equation 
ax^      bx  +  c  =  0, 

SETS 

Finds  the  union  and    ntersection  of  any  two  numerical 
sets. 


MATHEMATICS  (con  *  t ) ^ "  -  -  " " " 

SIMEQN  53 
Finds  solutions  to  sets  of  up  to  ten  simultaneous  equations. 

SLOPE  58 
Computes  the  tangent  slope  for  any  function. 

SQRT  62 
Finds  the  square  7'oot  of  counting  numbers  up  to  five 
decimal  places. 

STATAL  65 
Calculates  the  arithmetic  mean  (average)  of  a  set  of 
numbers. 

STOCK  69 
Simulates  the  stocK  market. 

SUKlAR  8.0 
Computes  the  area  of  any  surface  of  revolution. 

VOLSOL  83 
Finds  the  volume  of  solids  of  revolution. 
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PffYSICS 


BFIELD 

A  plot  routine  illustrating  the  B  field  about  one  and  two 
wire  currents.     (Electricity  and  Magnetism) 

BOHR 

Hydrogen  line  spectrum  and  energy  level  diagrams  are 
displayed.     (Atomic  and  Nuclear; 

CALORI 

Calorimetry  experiment  to  detemine  the  heat  energy  to 
be  supplied  (or  removed)  from  each  mass  to  obtain  the 
equilibrium  temperature,  (Mechanics) 

DECAYl 

Radioactive  decay  is  treated  qualitatively  i..  a  game- 
type  situation. 

DECAY2 

Calculates  halL'-life,  mass  and  prints  a  table  showing 
mass  or  nuniber  of-  particles  of  a  radioactive  sample. 

EFIELD 

An  extension  of  Coulomb's  law.    Finds  the  relative 
field  strenjrth  at  a  distance  from  a  line  and  plane  of 
charge.     (Electricity  and  Magnetism) 

KINERV 

Review  of  kinematics:    presents  questions  conjerning  the 
movement  of  a  ball  in  flight.  (Mechanics) 

LENSES 

Solves  lens  proI>lems.     (Light  and  Waves) 
MASSD 

Calculates  mass  defect. 
NEWTN2 

A  pid^lematic  situation  requiring  repeated  application 
of  Newton's  second  law.  (Mechanics) 

PHOTEL 

Critical  wavelength  for  photoelectric  emission  is  to  be 
determined  in  a  simulated  experiment.     (Atomic  and 
Nuclear) 


PHYSICS  (con't) 

PHOTON  57 
How  energy  levels  are  determined  from  the  emissions  of 
excited  atoms.     (Atomic  and  Nuclear) 

PLANK  61 
A  photoelectric  simulation.    Students  adjust  the  retarding 
potential  to  determine  the  wavelength  of  randomly 
selected  electron  emitting  X-rays.     (Atomic  and  Nuclear) 

PRJTL  68 
Coordinates  and  speeds  are  printed  for  a  projectile 
fired  ci^  selected  speeds  and  angles  (frictionless). 
(Mecb^'.'-;  ccs) 

REFLCT  72 
Least  time  principle  of  light  is  presented  as  a  challenge 
involving  a  r^ame  analogy.     (Light  and  Waves) 

SLITS  76 
A  plot  routine  permitting  further  exploration  of  Young's 
Double-Slit  experiment.     (Light  and  Waves) 

SNELL  ?2 
A  plot  routine  to  aid  in  visualizing  Snell's  law. 
(Light  and  Waves) 

SPACE  100 
Demonstrates  the  effects  of  changing  velocity  on  orbita? 
motion .     (Mechanics ) 

.    VFIELD  105 
Plots  a  picture  of  the  relative  potent  Lai  strength  in  the 
region  surrounding  two  charges.     (Electricity  and  Magnetism) 

VLOCTY  110 
Demonstrates  that  average  velocity       D/AT)  approaches 
a  limiting  value  as  ^T-^0.    A  graph  of  D      .  T  is 
plotted  for  an  acceleration  of  1  meter/sec''.  (Mechanics) 

WAVES  115 
Plots  a  graph  of  a  fixed  and  a  variable  wave,  and  the 
superposition  of  the  waves.     (Light  and  Waves) 
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 -  -   Volume  V  

SOCIAL  STUDIES 

BAMNC 

Simulates  the  effects  of  the  relationship  between  costs 
of  production  and  revenues. 

BANK 

Solves  financial  problems  concerning  installment  buying, 
long  term  loans,  and  savings  accounts. 

CIRFLW 

Simulates  the  effect  of  a  change  in  consumption  of  the 
"Circular  flow  model  of  goods,  services  and  money." 

CONSMP 

A  simulation  of  economic  depression  and  equilibrium  as 
effects  of  consumption. 

STOCK 

Simulates  the  stock  market. 


•  Volume  VI 

TEACHER  ASSISTANCE 
AVERGl 

Averages  grades,  lists  value  of  curve,  and  adjusts 
grades. 

AVERG2 

Sorts  and  averages  grades. 
FREQ 

Prints  a  frequency  distribution  (bar  graph)  of  grades. 
GRADE 

Prints  a  table  of  grades  (in  percentages),  number  of 
questions  missed,  and  number  of  questions  answered 
correctly. 

ITEMl 

Counts  and  prints  number  of  times  questions  are  missed. 
ITEM2 

Sums  item  analysis. 
STAT 

A  statistical  analysis  of  laboratorv  data.  (For  teache 
use  ) 

STATAL 

Calculates  the  arithiaetic  mean  (average)  of  a  set  of 
numbers . 


DISCIPLINE  CHEMISTRY  

SU  B  J  EC  T    ATOMIC  WEIGHT  (ATOMIC 


MASS) 


PROGRAM  NAME  ATWT 


DESCRIPTION; 

This  program  will  calculate  the  atomic  weight  (atomic  mass) 
of  an  element  from  the  %  abundance  of  each  isotope  of  the  element.  The 
%  abundance  may  be  found  in  the  chemistry  handbook. 

OBJECTIVES; 

To  show  that  the  atomic  weight  is  an  average  weight  and  not 
the  weight  of  any  particular  atom. 

PRELIMINARY  PREPARATION: 

A.  Student  -  The  student  should  have  an  introductory  understanding 
of  atomic  weight,  mass  number,  and  isotopes. 

B.  Materials  -  A  chemistry  handbook  from  which  mass  numbers  and 
%  abundances  may  be  obtained  is  necessary. 

DISCUSSION; 

It  is  usually  difficult  to  get  the  point  across  that  the  atomic 
weight  is  an  average  weight  and  not  the  weight  of  any  particular  atom.  This 
point  can  be  made  rather  easily  if  the  calculations  for  atomic  weight 
are  examined.    This  program  will  enable  the  teacher,  in  a  few  minutes 
during  his  discussion,  to  do  a  large  number  of  calculations.    This  is 
particularly  impressive  when  the  teacher  uses  %  data  that  is  significant 
to  5-6  figures,  and  thus  produces  an  atomic  weight  as  accurate  as  those 
given  in  most  tables. 

If  the  teacher    is  interested  in  discussing  programming  with  his 
students,  this  program  is  a  good  one  to  use.    It  has  the  advantage  of  being 
short,  but  still  containing  a  number  of  interesting  programming  techniques. 


Chemistry 
ATWT 


Trii:)  *»^<OGiiAKi  WILL  CALCULAfE  Trth  AfOMIC   WtllGrtF  <ATUrtlC  I'iAia) 
KrtOM   frit  I'trtUcNi'  HUUiXiUANCt:  OF  EACH  jJEnChiN/i" 
AdUNDAWCES  I'iH^  tilL  FOOiNiO  IN   fnE  CnEMI;>i'ia  nAi\}Dt300K. 

now  i';-     '   i:>0  4'0^t::j  bOiL^    4'rtE  hLKMENT  rtAVE  7  7 


NO. 

I 

7 

.15 

IbOTOrE 

NO. 

2 

7 

lU 

NO. 

3 

7 

16. 

l^OTOr'E 

NO. 

7 

200  s 

23. 

1 

■  ,cro*^is 

NO. 

5 

7 

20  1  J 

13. 

2 

l.aQlOi-E 

NO. 

6 

7 

29  • 

b 

A  :iOTOr»i£ 

N0« 

7 

7 

20^s 

6«d 

ATOMIC  WElGrtT  (ATOMIC  MAib)  I  :i  aoo.525 
ANOTHEH  rtUN   (l^VEbj  0=N0)    ?  U 


INr 

EAC 


53  NJNdEii  ANU  XnE  i^ExiCENT  ABUNDANCE  FOu 
7  IbOiOh'ES. 


liEAD^ 
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Chemistry 
ATWT 


lu5  fifcld     nEVISEU  JUV  CLOiilK  o-12-7u 

1J6   iiEi^     BCl)   rtxtE   i'nfc:  WA:i:>  i\0:>.>    CCD    AriiL   Inc:  r'EitCEw i'i) 

Uu  *^xi.liN»r        rmS  r^n.OGiiAM   WILL  CALCULAfh   Int.  Ai'Oi-ilC   WhlGni*   (ArUMU  t^iA;^:?) 
120   r»itli\ir   *•   KuOw    i'nK  i^ErtUhWA*  MdUiMUAiNJCE   OF  EHCn   l:>OrOr'iL«      r'ExnJEiSi  A '* 
i3J  r»itii\r       ABUWDANCE:i  A-iAV  HE  FOUiMU   IN    irtE  CnEMi:3iiiy  nAiSiUbOOK." 
h-rtlNr 

15U  i^iilNr       riOW  HAiVx'   IbOTOh'ES   DOES   A'hE  ELENEiXJl'  nAVE 
I6U   INx'Ul  A 

163   IF  ABiiCA-IMCA)  )>.UUU  I    THEN   1 5U 
166  i-HlNT 

i7U  r»nliNjr        Ii\r»Ur   i'riE  WASi)  NUfiiiErt  Ai\D    I'nE  r^EuCE^f  AaOivjOAWCh  KOit'* 

.-_ioa^rf,itUM  f_..*_*.  EACn  ,0F-  1  nEVA''  1  iO.i  Or'E^  •  *S  ^  

105  *^itIE>IT 

19U   DIM  BC2U)^C<aU) 

193  LET  D«U 

W6  LET  E«0 

aJU  FOrt  i'O  A 

r»riINT  *•   liOTOrE  NO.'U'* 
aiU    INr»Ur  B(1>^C(I  ) 
213  LET  D«D-^BC1)*C(1) 
216  LET  E«E+CC1) 
22U   NEAT  I 
235  PHINT 
245  i^HlNT 

3UU    IF  ABS(E-1U0)<.2  TrtEN  3US^ 
3U2  r»rtIi\iT 

304  *^rtli\T        THE  x^EiiCENT  AdUNUAiNiCE  DUES  iNiOi*    A*Oi'rtL  lUU." 

305  PfilMT        CrlECK  r'EKCENTAGE^  AND  ilEEANiTEK  UAa'A.** 
JU6   GO  10  lo5 

30^  LET  D=D/100 

31U  PHINT  •*  ATOMIC   WElGtti*    (ATOMIC  I'iAiiii)    I ;  U 
315  *^KINT 

32U  *^nINT       ANOTHEfi  tiUN   (  1=YESj  U=iSJO) 
330    IN*^0T  A 
335  PitlNT 

340    IF  A=l    THEN  140 
35U    IF  A<>U    TrlEN  320 
36U  E^D 
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DISCIPLINE 


CHEMISTRY 


SUBJECT 


AVOGADRO'  S  NUMBER 


PROGRAM  NAME 


AVOGA 


DESCRIPTION: 

A  class  presentation  designed  to  calculate  Avogadro' s  number,  by- 
using  the  molecular  weight  of  a  compound  and  dividing  by  the  combined 
actual  weight  of  the  total  numbers  of  neutrons  and  protons  in  a  single  molecule, 

OBJECTIVES; 

To  show  by  calculation,  the  value  of  Avogadro' s  Number,  and  to 
reinforce  the  concept  of  Avogadro' s  hypothesis. 

PRELIMINARY  PREPARATION: 

A.  Student  -  The  student  .must' be  familiar  with  atomic  structure,  atomic  mass, 
nuclear  particl^Ks^,  and  isotopes. 

B.  Materials  -  none 


DISCUSSION: 

A.  Operational  Suggestions 

The  presentation  of  this  program  can  be  utilized  to  occupy  one  forty- 
five  minute  teaching  period,  even  though  the  actual  running  time  is 
approximately  10  minutes. 

B.  Suggested  Follow-up 

The  occurrence  of  built-in  error,  due  to  the  use  of  average  atomic 
weights,  generally  provokes  discussion  as  to  the  reasons  for  the  error. 


A 
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Chemistry 
AVOGA 


IF   INSTuUCTlOiNJS  DKSlrtEDj    TVr't:   Ij      IF  NOfj   TYi^E  U?  1 

Trtl:>  r^xiOGiiAi>l  WILL  CALCULATE  AVOGADHO'S  NUMBEk  di  USING 
Ai>ii  r^UilE  GAbhOUS  ELEWENX  Oii  BINAKY  COi'Or'OUwU. 

This  VALUE  WILL  BE  CALCULATED  BV  USING  ThE  WASS   IN  GKAi^S 

OF  ThE  NEUTiiONj    WhlCh  IS   I    I  •  6743b:3E-ii4 

AND  THE  MASS  OF  ThE  t'liOTUiMj    WhlCri  IS   :    1  . 6 7kiU S^E-Si^ 

YOU  MUST  SUPPLY  ThE  ATOMIC  NUMBEh  AND  ThE  ATOMIC   WElGhT  OF  ' 
EACH  ELEMENT  USED.      CAhAY  DIGITS  UP   TO  6  PLACES   IF  YOU  ' 
WiSh.      WHEN  THE  MACHINE  ASKS . ( ? )    INPUT   THE  ATOMIC  NUMBEh 
AJNiD  ThE  ATOMIC   WEIGHT  OF    i'HE  FlrtST  ELEMENTj    TnEN  THE 
ATOMIC  i>JUMBH:h  AND  THE  ATOMIC   WEIGHT  OF   friE   SECOND  IN  THE 
FOnM  AjBjCjD*     IF  USING  SINGLE  ELEMEiNTSj   BE  SUiiE  TO 
PUT  IN  0  FOh  VALUES  C  AND  D. 

NOW  INPUT   THE  VALUES  FOh  YOUh  COMPOUND 

INPUT  ThE  NUMBEA  OF  ATOMS  FOh  EACH  ELEMENT. 
(C02   WOULD  BE   1^2)      :?  i^'a 

***  THE  NUMBEh  OF  PAhTltLES  PEh  MOLE  OF  TnlS  GAS   IS  5.9  764y6E+23 

WOULD  YOU  LIKE  TO   TUY  ANOTHEh  PROBLEM  7 
TYPE   I    IF  YES  J    TYPE  U    IF  NO     ?  I 

4t  4^  4^  4^  4^  4^  :4e  4^  4^  4^  4^  J(c  4^  4^  4c 

NOW  INPUT  ThE  VALUES  FOil  YOUh  COMPOUND 
?  6j 15.9^4j0j0 

INPUT  THE  NUMBEH  OF  ATOMS  FOh  EACrt  ELEMENT. 
(C02   WOULD  BE  U2)      :?  2jU 

***  ThE  NUMBEh  OF  PAhTICLES  PEh  MOLE  OF  THIS  GAS   IS  5.y764y7E+23 

WOULD  YOU  LIKE  TO  THY  ANOTHEh  PROBLEM  ? 
TYPE   I    IF  YESj    type  U    IF  NO     ?  U 


HEADY 
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AVOGA 


100  UEM     JOh«  ^iAiiCnlSOTTO     k^ld  SUWhEii   '6^  1/^/6^ 
103  liEM     rt£Vl:>KD  tiY  C.LOSIK  7-27-70 

105  itEM     A#B=Ar  i>JOj   A i'  WT  OF  FIri5Tj      CjU^AT  NOj  AT   Wi'  OF  :DiiC0i\JD 

106  UEM     E#Fc#  AYOM:d  FIHSTj    #  ATOMS  SECOND 

110  i»rtINT  "IF   INSTRUCTIONS  DESIHED#    TYh^E   1j      IF  NOT#    T^i^E  ' 


..... 


11  a  HEM     Gsi^HOTON  WASS#  h=;>)EUTKON  MAS:d 
•113  LET  G=l  .602E-iy/9.5blE/l 
116  LET  H=l  .00tj6*G/l  .0072  \  ' 

120    INi^UT  N  !] 

130  IF  N=0   THEN  220  V 

131  IF  N<>1    THEN   1 10  ' 
135  h'HlNT 

140  i-HINl    ••fhlS  i^xtOGHAM   WILL  CALCULATE  AVOGMDitO'S  NUMtj£ii  B'l  USING" 

150  PnINT  "ANY  ^\Ji\E  GASEOO:^  ELEMENT  On  BINAhY   C0^Ir'0UND. " 

151  h'HINT 

152  h'KlNT  "InlS  VALUE  WILL  BE  CALCULATED  BV  USING  TnE  i-J^SS   IN  GiiAi*ib" 

153  i^rilNT  "OF  ThE  NEUTiiON*    WnlCri  IS  :";h 

154  PKINT  "AND  THE  MASa   Of    TnE  *^H0T0Nj    WhICh  I  :d  :";G 

155  i^rtlNT 

156  t^HINT  "YOU  MUST  SUr'r^Lx'    XnE  A-TOi'iIC  NUhbEri  AND  TrtE  ATOMIC   WEIGHT  OF' 

157  PHINT  "EACH  ELEMENT   USED.      CAhHY  DIGITS  Uf   TO  6  r»LACES   IF  YOU" 
15b  r'HINT  "WISH.      wnEN  TnE  MACHINE  ASKS   C?)    INi^UT   THE  ATOMIC  NUMBEri" 

159  ^'nlNf  "AND  THE  ATOMIC   WEIGHT  OF  THE  FIHST  ELEMENT j    THEN  TriE" 

160  r^itlNT  "ATOMIC  NUMBEn  AND  THE  ATOMIC   WEIGHT  OF  THE  SECOND  IN  THE" 

161  PnINT  "FOHM  AjBjCjD.      IF  USING  SINGLE  ELEMENTS*   BE  SUHE  TO" 

162  r'riINT  "*^UT   IN  0   FOH  VALUES  C  AND  D." 
220  i^HlNT 

222  i^HINT  "  ••,"**♦**♦****♦****" 

224  PrilNT 

ii30  PRINT  "NOW  INPUT  THE  VALUES  FOH  YOUH  COMPOUND" 
240    INPUT  A^BjCjD 

250  PHI NT  "INPUT   THE  NUMBEH  OF  ATOMS  FOH  EACH  ELEMENT." 
260  PRINT'  "(C02  WOULD  BE  1#2> 
270    INPUT  E#F 

339  PRINT 

340  PRINT  "***   THE  NUMBEn  OF  PARTICLES  PER  MOLE  OF   THIS   GAS  IS"; 
350  PRINT   ( (E*B)  +  (F*D>  >/( ( ( ( E*A>  +  (F*C >  > *G5 +< ( E* < B-A>  >  +  < F* ( D-C >  >  >*H> 
355  PRINT 

360  PRINT  "WOULD  YOU  LIKE  TO  TrtY  ANOTHER  PROBLEM  ?" 

370  PRINT  "TYPE   1    IF  YESj    TYPE  0    IF  NO  "i 

380   INPUT  N 

390   IF  N«l    THEN  220 

395   IF  NoO    THEN  3  70 

400  END 
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DISCIPLINE 


CHEMISTRY 


SUBJECT 


RADIOACTIVE  DECAY 


PROGRAM  NAME 


DECAYl 


DESCRIPTION; 

Radioactive  decay  is  treated  pseudo-cjuantitatively,  by  permitting  tiie 
student  to  determine  the  approximate  number  of  radioactive  particles  remaining 
a  fter  various  times . 

OBJECTIVES; 

To  induce  a  "feel"  for  exponential  decay,  by  repeated  exercises. 
PRELIMINARY  PREPARATION: 

A,  Student-Awareness  of  terms:    Half-life,  exponential,  and  radioactivity 

B,  Material 3- none 
DISCUSSION; 

Tlie  concept  of  radioactive  decay  is  presented  in  a  game  format,  allowing 
the  student  to  challenge  his  own  ability  in  determining  (with  5,  10,  or 
20%  error),  the  number  of  radioactive  "chips"  remaining  after  various 
times.    The  number  of  chips  successively  decreases  with  each  trial,  in- 
creasing the  level  of  difficulty  as  the  program  runs.     In  each  case,  the 
exact  number  remaining  is  given,  following  the  students'  entered  value. 

Individuals  or  small  groups  find  this  program  exciting.  They 
enjoy  the  game  approach,  at  least  the  first  time  through  it,  and  seem 
to  be  motivated  by  the  opportunity  to  ^T^reak  the  bank." 

This  program  can  be  used  as  an  integral  part  of  a  class  lesson 
to  introduce  the  concept,  or  to  motivate  group  discussion  and  partici- 
pation concerning  the  phenomenon. 
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Chem 
DECAYl 


— «PIK  NXV  CUCA  CASINO**- 


MR.  A«  TOM  MICK*  QCNCRAL  KANAGSR  OF  TUB  NEW  CUBA  CAS1N0# 
HAS*  AT  TIMS    T>0#    DISCOVEHCD     100*000  AADIOACTIVK  PLAYING 
CHIPS  AT  HIS  TAULE.  THEIR  KALF«U?PE  IS  tO  MINUTES.  EACH  CHIP 
TRANSMUTES  SPONTANEOUSLV  AND  COHPLXTSLY  IN  A  RANDOM  PASHIOH. 

AT  VARIOUS  TIMES  T#  AFTER  T»0*  YOU  MUST  DETERMINE  VXTHZN 
A  CERTAIN  PERCENTAGE*  HOW  MANY  CHIPS  ARE  LEFT* 

TO  FURTHER  THE  INTEREST  OF  THE  GAME*  YOU  WILL  START  VITH 
SI #000  AND  THE  HOUSE  VITH  AN  UNSPECIFIED  AMOUNT;    HALF  THE 
MONEY  YOU  HAVE  WILL  RIDE  ON  EACH  GUESS  YOU  TAKE.     LET*S  SEE 
IP  YOU  CAM  BREAK  THE  HOUSE  BEFORE  THE  CHIPS  RUN  OUT.  ' 

1HZ  HOUSE  OFFERS  THE  FOLLOUING  ODDSl 

8)  8  TO  1  ODDS  FOR  GUESSING  VXTHIN  80  PERCENT 
A)  4  TO  1  ODDS  FOR  GUESSING  VITHIN  10  PZRCZHT 
e>  8  TO  I  ODDS  FOR  GUESSXnG  VITHIN    5  PERCENT. 

ENTER  THE  NUMBER  8*  4«  OR  8  FOR  THE  ODDS  YOU  WANT  AFTER  THE 
QUESTION  MARK  IN  THE  COLUMN  LABELLED  ODDS. 

YOUR  $  HOUSE  S  TIME  <MIN>  ODDS 

1000  U000000E^6      7«8  7  8 

HOV  MANY  CHIPS  LEFT  7  60  700 
ACTUAL  NUMBER  LEFT  IS  60716 
YOU  VON.  TRY  AGAIN. 

SOOO  996000  13*9  7  8 

HOV  MANY  CHIPS  LEFT  7  38150 
ACTUAL  NUTiBER  LEFT  IS  38164 
YOU  VOSJ.  TRY  AGAIN. 

85000  976000  86.9  7  8 

HOV  MANY  CHIPS  LEFT  7  15500 
ACTIIAI.  NimnKH  J.V.VT   15  IfiSOa 
YOU  VON.  TRY  AGAIN. 

38500  0  6  76000  30  .  7  7  8 

HOV  MANY  CHIPS  LEFT  7  11900  , 
ACTUAL  NUtlBER  LK7T  IS  11913 

YCU  CAN  BREAK  THE  HOUSE  IF  YOU  TRY  A  LONG  SHOT. 

685000  376000  46.4  7  8 

NOV  r^ANY  CHIPS  LEFT  7  3500 
ACTUAL  NU£^J3FJi  LEFT  IS  3494 

YOU  BROKE  ins  HOUSE.  YOU  NEEDED  ONLY  THE  MINIMUM  NUMBER  OF  GUESSES. 
CONQRATULAT I ONS . 

YOU  MUST  KNOV  A  LOT  ABOUT  RADIOACTIVITY  AND  THINGS. 
THANKS  FOR  PLAYING.. 


CHECK  NO.  3499 


DATES 


19 


PAY  TO  THE  ORDER  OF- 


CASH 


>S  U001000E>6 


THE  NEV  CLEA  CASINO 


A.  TOM  MICK 
GENERAL  MANAGER 


DONY  SPEND  IT  ALL  lU  ONE  PLACE. 


READY 


8 
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100  AEH  RICHAHO  T*  PAV#  PATCHOGUC  H«S«#  CPHYSICS>  HCVISED  NOV.  86#I969 
105  RAtlDOHIZE 

ItO  n£M    THIS  IS  A  GAME  BASED  ON  RADIOACTIVE  DECAY. 
180  PRINT  — »-THE  NEV  CLEA  CASINO— 
130  PRINT 

140  PRINT  '*  MR*  A.  TOM  HICX#  GENERAL  MANAGER  OT  THE  NEV  CLEA  CASINOV 

ISO  PRINT  **HAS#  AT  TIME  T«0;  DISCOVCIKEO  100#000 .  RADIOACTIVE  PLAYING'*' 
160  PRINT  "CHIPS  AT  HIS  TABLE.  THEIR  HALF-LIFE  IS  10  MINUTES.  EACH  CHIP** 
170  PRINT  "TRANSMUTES  SPONTANEOUSLY  AND  COMPLETELY  IN  A  RANDOM  FASHION.** 
180  PRINT 

190  PRINT  "  AT  VARIOUS  TIMES  T#  AFTER  T«0#  YOU  MUST  DETERMINE  VITHIM 

a90  PRINT  "A  CERTAIN  PERCENTAGE*  HOV  MANY  CHIPS  ARE  LEFT."  -  . 

BIO  PRINT 

eSO  PRINT  "  TO  FURTHER  THE  INTEREST  OF  THE  GAME#  YOU  WILL  START  VITM 

230  PRINT  "S1#000  AND  THE  HOUSE'VITH  AN  UNSPECIFIED  AMOUNT;     HALF  T^E**  * 
840  PRINT  "MONEY  YOU  HAVE  VILL  RIDE  ON  EACH  GUESS  YOU  TAKE.     LET'S  SEE" 
250  PRINT  "IF  YOU  CAN  BREAK  THE  HOUSE  BEFORE  THE  CHIPS  RUN  OUT.*" 
260  PRINT 

870  PRINT  "THE  HOUSE  OFFERS  THE  FOLLOWING  ODDS I " 
260  PRINT  "  8>  8  TO  1  ODDS  FOR  GUESSING  VITHIN  20  PERCENT" 

290  PRINT  "  4>  4  TO  I  ODDS  FOR  GUESSING  VITHIN  10  PERCENT" 

300  PRINT  "  6>  6  TO  t  ODDS  FOR  GUESSING  VlTHlN    5  PERCENT." 

310  PRINT 

320  PRINT  "ENTER  THE  NUMBER  8#  4#  OR  6  FOR  THE  ODDS  YOU  VANT  AFTER  THE" 
330  PRINT  "QUESTION  MARX  IN  THE  COLUMN  LABELLED  ODDS." 
340  PRINT 

350  PRINT  "YOUR  S"#     "HOUSE  S"#     "TIME  <MIN>"#  "ODDS" 
3q0  LET  A-0 
370  LET  B>0 
380  LET  T>0 
390  LET  Y-1000 

400  LET  '  '0  fj 
410  PHt.. 

420  IF  ABSCG-DX1500  THEN  450 
430  LET  G>5 
440  LET  D>2 
430  LET  B-B41 

450  FOR  1-1  TO  3«A«ABS(Q-D> 
47C  LET  T3»XNT(100«RND<*Y>>/10 
430  NEXT  t  ^ 
490  LET  T«rT*T3 

500  LET  D«INT<1E5«EXP(-.0693«T>> 

510  IF  D-0  THEN  660 

520  PRINT  Y#1001000-Y#T# 

530  INPUT  A 

540  IF  A«2  THEN  610 

550  IF  A«4  THEN  610 

5C0  IF  A-6  THEN  610 

570  PRINT  "SORRY  PAL#  VE  DONT  OFFER  THOSE  ODDS." 
5G0  IF  C«I  THEN  620 
590  LET  C>1 
600  GOTO  580 

610  PRINT  "HOV  MANY  CHIPS  LEFT  **J 
620  IHPUT  G 

610  S^iiim  "ACTUAL  NUMBER  LEFT  IS  "iD 

640  3F  A>2  THEN  700 

650  XF  A«4  THEN  680 

660  LET  P-.05 

670  GOTO  710 

680  LET  P-.l 

690  GOTO  710 

700  LET  P*.2 
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710  LXT  T«10«B 

720  ir  AB5(0«a><«P*D  THEN  770 
730  Let  Y«1NTCY-Y/8> 
740  IF  Y<«90  THEN  880 

790  PRINT  ••TOO  BAD#  YOU  LOST.  TRY  AGAIN*'* 

760  OOTO  400 

770  UCT  Y«lNT<Y*A«Y/2> 

780  ir  tOOOOOO-Y<t  THEM  690 

790  If  Y>aES  THCri  640 

600  PRINT  ••YOU  VON«  TRY  AQAIN.^^ 

610  GOTO  400  .  . 

680  PRINT  ••IT  5KEHS  YOU  JUST  CANT  GST  THE  HANG  OF  CT«  SAVE  YOUR  BRCAD«^^ 
630  GOTO  960  * 

640  PRINT  ••YOU  CAN  BREAK  THE  HOUSE  IP  YOU  TRY  A  LONG  SHOT." 

650  GOTO  400  ... 

660  PRINT  "OOOOPS...  SORRY  PAL#  THE  LAST  CHIP  JUST  01 S INTEGRATED. •* 

670  PRINT  ••THE  HOUSE  IS  CLOSED.** 

660  GOTO  960 

690  PRINT  ••YOU  BROKE  THE  HOUSE.  YOU  NEEDED  ONLY  •*! 
699  LET  Y» 100 1000 
900  IP  B»9  THEN  930 

910  PRINT  "THE  MINIMUM  NUMBER  OP  GUESSES. •• 

900  GOTO  940 

930  PRINT  Bl ••GUESSES. •« 

940  PRINT  •^CONGRATULATIONS." 

950  PRINT  ••YOU  MUST  KNOV  A  LOT  ABOUT  RADIOACTIVITY  ANU  THINGS." 
960  PRINT  •'THANKS  FOR  PLAYING.. •• 
970  PRINT  • 
960  PRINT 


990  PRINT 
1000  PRINT  •• 
1010  PRINT 
iuuu  rniNi  " 

1030  PRINT  — — — — 19— •• 

1040  PRINT 
1050  PRINT 

1060  PRINT  ••  PAY  TO  THE  ORDER  OP-«^^l 
1070  PRINT  — CASH— ••! 

1080  PRINT  ••S'^IY 
1090  PRINT 
1100  PRINT 

1110  PRINT  •«  THE  NEV  CLEA  CASINO 
1180  PRINT  •• 
1130  PRINT 


CHECK  NO.*;iB«D 
DATEt  "I 


A.  TON  MICK" 
GENERAL  MANAGER" 


1140  PRINT  ——————  ———————  — 

1150  PRINT 

1160  PRINT  "DONT  SPEND  IT  ALL  IN  ONE  PLACE.** 
1170END 


10 


e    Copyright  1971,  Polytechnic  Institute  of  Brooklyn 


DISCIPLINE 


C  HE  MIST  R  Y. .  V\  I YS  ICS 


SUBJECT 


NUCLEAR  DECAY 


Program  natvie 


DECAY'J 


DESCRIPTION: 


This  program  do  tlie  following: 


A.      Calculate  half-life  from  2  readings  on  a  geigcr  counter,  and  the 
time  between  them. 

B«      Calculate  mass  of  a  radioactive  sample  remaining  after  some  given 
amount  of  time, 

C.      Prints  out  a  table  showing  mass  or  number  of  particles  of  a 
radioactive  sample  remaining  vs.  some  range  of  time. 

OT3  Jrrr"T*r^rxrc• 


A.  To  provide  tables  and  graphs  for  a  better  understanding  of  the 
exponential  decay  of  a  radioactive  substance, 

B.  To  provide  a  calculator  for  determining  the  amount  of  mass  of  a 
radioactive  sample  remaining  after  some  given  amount  of  time. 

C.  To  provide  a  calculator  for  half  'life  experiments. 


PRELIMINARY  PREPARATION: 

A.  Student  -  The  student  should  have  a  general  introduction  to  half- 
life   before  the  use  of  tbe  program* 

B.  Materials  -  none 


DISCUSSION: 

It  is  difficult  to  teacli  abo\it  the  exponential  (logarithmic)  manner 
by  which  radioactive  elements  '"lecay  without  meaningful  illustrations  and 
simulations. 
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DISCUSSION:   (con' t) 


With  this  program,  a  number  of  interesting  possibilities  are 
available.    For  example,  if  the  initial  mass  is  100  g  and  the  time  is 
equal  to  10  half-lives  with  an  increment  equal  to  the  half-li.fe,  the 
student  will  see  the  mass  decrease  to  0, 1  g  during  that  timcu  More 
important,  the  example  may  be  generalized  to  show  that  for  any  radio- 
active 9am  pie: 


after  1  half -life  50%  of  the  substance  remains 
after  2  half-life  25%  of  the  substance  remains 
after  3  haVf-life  12,  5%  of  the  substance  remains 
after  10  half -life  0, 1%  of  the  substance  remains 

You  may  also  illustrate  nuclear  decay  by  using  particles  instead 


of  mass.    Use  Avogadro*  s  number  of  particles  with  students  who  feel 
comfortable  with  scientific  notation.    For  the  others,  you  may  use  a 
number  up  to  1,  000,  000  without  having  exponential  numbers  print 
out  in  the  table. 


The  fact  that  the  teletype  unit  takes  about  8  seconds  to  type  out 


a  line  provides  you  with  cute  little  gimmicks.    Set  up  a  run  with  8  seconds 
(or  any  multiple  of  8)  and  the  print-out  of  the  table  will  keep  time  with 
the  decay  of  the  sample  substance. 

Please  note  that  the  half-life  calculations  are  not  accurate  for  a 
small  number  of  particles,  thus  it  is  misleading  to  make  runs  go  to  zero 
mass  or  zero  particles. 
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DO  YOU  WANT   I  ^iruUCTJ  ONd  u-WO>   t    7  1 

Tnli  i»nOUuA»\  iJiLL  UO   inii  hOLLU^l.xOI 

OiVl  H*  UiilGKi*  liOJ.vi'fclii* 
ChOlUfc:  2  -  OiU-CuLAl*Ka  riOV<  i'lUOn  OF  A         lOAC  i'l  Wr:  Sdt'u^Lt. 

CnOlCt:  3  -  i-'iiiNio  UJr       iHcJLt  onUwl4\<(i  h)'.bj  OK  :>f\nf^Lb: 
Wj.    rl;*4ir:  On  N0»   Or   i-'ria i" I CLtb  VS»  ili-..-;. 
((iiirtr'n  Oi-i  lO^vAh)  NOitl   rO.4   i<»fc:   latiLc.  i  0 J 
KObi"   li^r'Ui    I'Oi'AL   Mi'.K  hvNiU   i'lKu.   1  ^JiVti'-uN  i"  • 
EAAi-u^LKl   IK    I'UiaL   iliMt-lUU  A.\D  ilMt 

i'.'jGi4fc:i*.r::N<i» lUi  inc:.\  riric:       rnL  inuLbi  uill 

UE   10«*<2JiJJ«  ijU» 

CrtOlCfc:       -  k-NU  OK  r'iiOGjiAh 

NOTfc:!    1»N  A.NY  ONfc:  f^iiOBLKi-;*  i  iKtl  NU;*l 

OK  istabUiit  (  I  £  I   bblCo  •  <  Hi  iNb  •  j  t  TC  • ) 

UiAT  15   I'OJil  ChOlCK?  I 

VnAl*  lo   TriE  INlllAL  HEADING  ON   InK  GKIGK.H  COJMiirtJ 
7  160O«JO0OjJ6 

INITIAL  n^ADlNO"  JOOO   bbCONL)  i(KAljii\n«    tbUO    TlMiIa  J6 
*tALF-Ll  Kt"  J  &  .yv  V:?b 

«nH4    id   I uun  unuiUcr  l 

WHAT  IS  Tnfc:  I^JITIAL  ivEADlMG  ON  IVih:  GElCEii  COJM'tH* 
7  775i  lii:>6  i^^rj 

iNU'iAL  iiKAJli^JGe   iafr><>  StCOWD  itKADlNGe   77ii  iJlii 
hALF-LlFcl"  JO-ii.Jiiob 

WHAT  IS  tOUrt  Cm01CK7  kJ 

WhAf  li>  IhK  M.\LF-Llrb:*    iNlTlnL  hAoo  OF  of\i\f^LK<  ri^^b 
TOTAL  TlMii  OF  Uh;CAi'7  lo*£>6*V6 

nALF-LlFto   la   liVlI'lAL  fiAooe  :>6   lOiAL  76      ..  ^ 

M/\ob  OF  oAXf^LK  iifc:4\:\  1  .\  1  ;0G«   J.0JOV5<i  '  - 

U*iAT  lb  YOJ*t  CnOlCK?  J 

UO  YOJ  WiiNT  TO  WOiii<  VI  fii  HAiiTlCLto  On  NAo:>7    (A*\jWi:;<;   1  KOii 

f^AiiriCLfc:.>  Oil  a  fo.i  /:aoS)  ?  i 

WnAi'  lo   inc.  nHLK-LlFli*   IMflAL  i\Oi*.afc:ii  OF  HAiiTlCLKb  IN  frifc: 
^A^•H^Lp;*    10»^\L  tr.L.W'o:.U    l  l>.\:  r  Jn  bt.Cni  *   t\MU  ir.eL 
IfyJCiiKMt;^!'   OK   KLAr^oclJ    ll^c:?    10  *  6 JtL*  J  <  luu  <  1 0 

MALF-Llrh"   10   INITIAL  N0»   OK  I'AiiT  1  CLcb«  6  ^OiiOOOur^^  J 
lOTAL   Tli-.tn   100   A;\)CiicocN  r»  10 
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USE 


U 
10 
iiO 
JO 

5U 
60 
'iO 

bu 

100 


o»0'tiooooy.*iij 

1  •bObl^i'^^^fi'j 
7.bii6U6bt:*ciiJ 

I  .  J  76*J0ir:*Jl 


1  •  bUbUUUh^^J 
7*  bdb  Jd^el'^^cj 

I  .  1  76r/JK-^l:l 


J*UUVoboK^ciJ 

btbJioJlL^UJ 

b»vvO'i  7hi^*aJ 
6«UUbJJ7c:*i;J 


DO  YOJ  UAM   Vnfc:  AdOs/E  DMi'A  GaAr'nEU?   <J-fh:>#  U-\U)7  1 


rih'K 
U 

lu 

20 
JO 
/iJ 
30 
60 
70 
bJ 
VO 
100 


UiAf         tOU.\  CHOICE?  J 

UJ    XOJ  i'O   wOiiK  r'M.illOLfco  Oii  i'i^jj?    <^4i\jWi:iv   i    r  U*v 

Vni>\l    1:*   In^  n-U.r'-UFi*  K\l  i  it\L  i\t\jj  Or*  a  i/.r' LK *  1  0 i AL 

*«%LK-Lirc:»  lb  ii\iriAL  100  iUiViL  rii\r:«  4  1)0  i.\Civt:»\i:i\r=  ib 


fOlrtL    /.MJJ  L0b5 


0 

iOO 

0 

0 

15 

bO  tOOiiJu 

/jv  .vv76'» 

•  VV  76'i 

Jj 

fii3*0JdJ(i 

sib 

'lb 

I    .  bO  1  V  V 

I  J .  '^JObv 

0  7 

00 

6«c:3l  lo 

VJ 

.  7^40b<J 

7b 

J.  1*»'jV  JV 

J  •  i  J 

V6 

.b7<'iJ6 

VO 

1  «  bOcfVAc! 

1  .  b6ii7VD 

VO 

.^J706 

lOb 

. Volbjol 

«  7oWtJ^i^i 

vv 

•  i:lc/iv 

IJJ 

•  JVo  V'/rfa 

• JVj7Jof 

.60Vci3 

I  Jb 

.  I  vbJvbli 

. 1 V5JV7 

•  0046 

ibo 

«0'>7  70c2  J^i 

.OV76V Ji  J 

•  vou;Jv 

lA 
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DO  you  VAiNir   VnE  AiJOVK  UATA  GiiAf'nfi.^  0-iNiO)?  1 


l'J\i>S  iOti  t^AiiVICLHS)  iiti'.alWl.NG 


TIWK 
0 
IS 
3U 
45 
60 
75 
9U 
1U5 
I'dO 
1J5 
15U 


1< 


VhAT  IS  yOU*i  CnOICK?  4 


llEADY 


15 


Chem 
DECAy2 


100  itKh  h.  |JOi.r\'.AW+  J«  i^iAiiUrtl  :jO f  i  0  fid   'l/dt\/U^S  ' 
)-J5  i\Ki''     iifc:v/l:jn:0  X)/  C»La:>AA     t>-J<i-VJ  ' 
UU  iil:,t%  CHLCsJLMi'iOi^'  Oh'  nALK-LlrK  mivu  iib:.\^  1 4>i NG  MH;>S  lt\CLJUlNG 
120  j(Ki>.   liibLir,:)  tUMJ  Gt\,u*ii:f* 

liia  r'illiJi   "00   ^OU  WACgi    ;»j:jlitJCliqi\b  CjaYE:)*  J  =  iNiC!)  J 

INr'Ji  A 
li26   IF  /."O    i'ritrW  30 J 
120   IK  y.ol    rne:.\   1  g<2 

rriiS  i-iiOGivrtM  WILL  UO   inK  FOLLO iNiG J " 

ON  ^  CdCtn  COU;vlc:/tt" 
ChOlCK  a  -  C/^LC'JLAVt,^  nOW  i-.JCn  OF  A  rJlUlO  \U  i  l  VL  iMfM-Li:. 

WILL  iviuI'MlN  Ariin  ^Oi-lz,  CIVk:i\  Ar-.OOi^i  UK  il»\r. 
-  r'i(lMi:i  Oi^i*  M  I'rtULfc;  :>r,0;/l.\'U  ;'*Ai^  OK  iA.-.j'i^t 
U:>«  VIi'iE  Oil  NO.  OK  i^aid'lCUr.a  \/:>.  il»-.ri«" 
C  GiUVfi  QrriOIvsL)  .\0»'n;j  r  Ui,  inci  fMupi:  tOJ" 
NJSr  INr'Ji"  iOi>iL  ill'.fc:  UiNiO  i  iMJ-;  l;-'JCiic./.c.i\i  . 
EAAKr'LfcJ  IF  I'Oi'AL  il>.c.=  l0u  rt.\n  Vli'Jc." 
iNCUEHKPJfwiO*    IfiKi'g   llWti  IriE   rAuLt  WILL 

 UE—l U'>ii07  jo-*-«-«-«-»-«-«-«-«-« *iOO   '  

ChOICE  4  -  END  OK  r'liOliiU^i'." 


CHOICK  3 


NOTKI    IN  ANY  Ow£  riiUULEM^ T U\K  MUjV" 
ALWAYS  lik:  iPjr'UlKU   I(M    ini^  :>Ai'it;  UMl  ii" 
Op*  hEAdUuk:  (lk.(  :il::i;p./»\lig;>./i::rC*  )'* 


130 

WjO  r»ftii\iA' 
ISO  r»AlWr 

IVOi^ilWi" 
IbO  i'.ilMT 

1^0  i-^id.vr" 

200  r»iil.>ii'" 
210  r»itINi" 
220H.tiNf" 
830  r»itlNr" 

250  i^iilNT' 
y60  PiilNj 

H70  x'niNr" 

2b0  r»nlNi" 
2V0  i^iilNi" 
aL»0  i^rflNT 
310  r»iiiNT  •'♦♦♦♦♦«**«*" 
320  r»i{lNT 

330  PiiltiT  "WHAT  !:>  YOUit  CnOICK'f; 

3/10  i.wor  A 

CkSO  IF  A«t  InE^vj 

350   IK  A=3   rnE?v  5  7J 
390   IF  AO/l   inKN  32'J 
/JJO  STOr* 

/|10r»iUNT"   VrtAT  13  ThE   INITIAL  itEAOlNG  ON  iiih:  CiElGKn  UOJNrEn*" 
/|20  r»iUNT"  ThE  iiECONO  iitiAOhNJG/   AND  THE   TIME  BET  VEEN  rtEAUlNGS." 
/t30   lNr>Or  U/A/C 
433  IF  A>ij  THEN  440 

435  i^idNf  "INiriMU  liEADlNG  IS  ALU'AY:^  H:66  TrtAN  FINAL  itEAUlNG**' 
437     CO  TO  4  30 

440  LET  D-C .6y3l*C)/L0GCA/d> 
450  r»iUNT 

A6\J  r»rClNr  "INI  f  lAL  riEADI  WG«'*Ai  "  SpCONL)  nEAUI  NG«"u;  "  1  I^JE»"C 
470  r»iilNr  "riALP-LlFE«"l> 
/mo   GO   TO  3J0 

490  r>i(lNT  "WnMf   1  :>   THE  »iALr-LlKE*    INITIAL  WAii  OK  iAfrlt-LK*  A»\iL»" 

500  i'iiINT  "iOiAL  TIME  OF  DECAY"; 

510   I.WUT  E/K/G 

52u  LET  n»F'>EA/'C-.6^^3l*G/E) 

530  *-Ul>iT 

540i>n|NT"nALK-LIrE  =  "E;"Ii>jl  ilrtL  .\A'i;i="F; '?T0  f  AL  rii>iE="G 
550  I'idNT  '•^»A:i:i  OK  SAKr»LE  jiE.\AI  i\Ii\JG»'*n 
560  GO    rO  300 

570  t'HiNr  "DO  YOU  VAN  f  TO  WOiiK  Ulirt  f»MUTH;LE:>  Oit  hMiS?   CANiWEit  i  F0«" 
500  r»iiINr"  i-AiiTICLEi  Oa  2  FOit  MASS) 
590   iNi^OT  J 

600  r>aiNr 

610   IF  o«"l    raSN  7'iO 
615  IF  Joa  TnKN  570 

620  HrtlM'"   utim'  I.'   J*nE  M.\LK-HKE*    INITIAL  MAji  0/  bA«r»LE*  TO  TAL" 
630  f'ill  -i'^E.^    il.'.c.  hj^.t-DhCAi*  AiNiu   TiiE  1  NCiiKI-.LM  T  Or  " 

''••11)   t     i  vi      »  M»;r,"i 

•';>w  ;4Vr'  .1  ■ 
;  ■.  r 
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600  LEV  L^r 

7U0  IF  J»l    I'nhN  bUu 

710  /'<clM"rtj\LK-LlF£s"£'"liMl  f  ImL  hil:>:>R"K;  "  1*0  i*AL   i*  U-.Ke"K;  "  I  fwCnthKiNi  fa^il 

7iiO  I'jtlM' 

730  I'UlM   "fH-;H"#   "i-jAliS"*   "iSAi^S  LOi:*"*   "l)fAL  i'»h6S  LOjS" 

7^0  "  "*   "  " 

7S0  GO  rO  0  50 

760  *'<{li\-r"   WnAi    IS  TnK  nALF-LlFE*    li>jIflrtL  iVJUMjKit  OF  t^Aii f H:Lb*:>  IN  THE' 

770  j^rtlNl"   SAK^^LK/    lOi'JiL  c:LA*^S£U  TIMH  KO^v  DLu'Ai<»   A.\D   fnE  " 

700  /^iiiMi"  iwCiiHiMviNi r  OF  i;LA*-i£D  riric;"; 

7yOGO  TO  6i>0 
TVS  I'HlNf 

bOO  *^rtlwf"nAI.r-LlFH:«"c^"lMTlAL  NO.    OF  *'Ai(T  1  OLKSa^F 

bio  /^iiiNX'TOfttL  f l^'Jk:!*"i^;"IN^Jl{El■^ii^:^="^''i 

•  020  /'iilNi 

030  i^iiiM"  hmh:"<»     *^AivriCLEj"*  'VAiif.  loss"*    total  ^-A^tr.  lo:>j" 

0^0  /^illNT"  "/   "  "*  "  

050  jj<:ii\f 

060  KOu  G  =  0   TO  K  SfrV  M 

0  70   LET  ni5K*K.%/'<-.6vyl+G/E)  ^  _   

oyO  LET  uau+W 

yoo  IF  F  >1E6  TnEN  y^o 

910  IF  J«l    TriEN  y^^O 

ykiO  i'jtlNl'  G^n^w^W  ^ 

y30  GO  TO  y5o 

•yi^O  HitlNT  INT<  G+.5)  *  INf  <n+-5)*  lNr<  W+»5)*  INf  (  u+-b) 

y50  LET  L*t\ 

960  NEAT  G 

y70  i^jtlNf 

yoo  PiilNT 

yvu  /'Kiwr 

lUOU  r*niiMi"  UO  xuu  wHWi    inc.  hoUVc  uhih  orw^-rncur    vi-ico*  * 

1010   IN^'UT  n 

loao    IK  n=0   THEN  300 

lOiiJ   IF  iiol    rhEi\  luoo 

•  10  30  r'hlNT 
lOi^O  t^itli^J^ 
10  50  PrtlNI* 

1060   HuIM'    lAbC  30  );"i':ASS   <  On  j^Aii f  I CLEb )  liEMAlNlNG" 
10  70  t^iilNf 

1000  Hnl^r  "  "*"0";iAi3<6ii);F 

iioo/'aiNT"Tihi:'S"i  1  1  1  1  r 

1120   FOjt  G  =»  0   TO  K  :>rE*'  M 
1130   LEI'  h=F*cA/'(-.6V31+G/E) 
IMO   LET  Hl"l:;TCri/F4.50-^.b) 
1150    IF  Hl<o50    laEW   1  1  "^O 
1160   LET  ril=50 

1170  naiNT  G*"r';  lAtjcni +  1  ^-5) 

1250   NEaT  G 
1260   GO  TO  300 
1200  EiNiD 
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DISCIPLINE  CHEMISTRY  

SUBJECT  EMPIRICAL  FORMULAE 
PROGRAM  NAME  EMPIR 


DESCRIPTION: 

A   classroom  demonstration  designed  to  calculate  the  empirical 
formulae  from  atomic  mass  (atomic  weight)  and  percent  composition. 


OBJECTIVES; 

..,A* — -To  distinguish-between-molecular-and -empirical  formulae     

B.  To  illustrate  the  law  of  multiple  proportions. 

C.  To  emph?.i  r*-^  •  the  unity  of  the  atom  when  writing  chemical  formulae 

D.  To  demonstrate  the  importance  of  accurate  calculiition  with  empirical 
formulae  problems 

PRELIMINARY  PREPARATION: 

A.  Student   -  The  student  should  have  some  experience  in  writing 
chemical  formulae  and  calculating  percent  composition  from 
chemical  formulae.  An  understanding  of  significant  figures  would 
also   add  to  the  value  of  the  lesson. 

B.  Materials  -  none 


DISCUSSION; 

In  this  program  the  atomic  number  is  used  for  identification  only 
and  has  no  part  in  the  actual  calculations. 

The  student  generally  has  difficulty  understanding  the  function  of 
the  ratio  in  calculating  empirical  formulae.  This  program  is  designed  to 
emphasize  that  function. 

The  importance  of  significant  figures  could  also  be  illustrated. 
The  students*  tendency  to  approximate    generally  results  in  numbers  of 
questionable  value.    In  this  program,  by  using  a  series  of  calculations 
for  the  same  compound  with  figures  of  progressively  greater  accuracy, 
an  empirical  formula  closer  to  whole  numbers  will  be  obtained. 
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EMPIR 


THIS  PiiOGHAM  WILL  FIND  THE  EMPIHICAL  FOiiWULA  FOH 
ANY  CUMPOUNO  CONTAINING  UP  TO  FIVE  DIFFEhENT  ELEiViENTS 

WHEN  INFOHWATION   IS  HEuUESTED^    TYPE,  IN  TnE  HTOrClO 
NUMBEh^    the  atomic  WEIGnT^  AND  THE  ^'CT  COWt^OSlflON  dx 
WEIGHT   IN   THAT  OHDEH;    FOH  EXAMi^LE^    IN  TnE  COi'i^'OJND  $02, 
THE  DATA  WOULD  dE  ENTEHED  AS  FOLLOWS:      16^3ii^5u  FOit 
SULFUrt  ANU  tt^l6^5U  FOH  OXYGEN. 

rtOW  MANY  ELEMENTS  DOES  YOUu  UNKNOWN  COI'ir'OUND  CONTAIN?  2 
ENTEit  THE  ATOMIC  NUMBEiO    THE  ATOWIC   WEIGnT^  AND  THE 
PC'i'  UU^^P0S1T10N  FOH  EACH  OF  THE  ELEMENTS   IN  YOUH  UOMr'OUND. 
t3E  SUHE  TO  ENTEh  ONE  SET  OF  NUMdEnS  FOh  EACH  UUESTION  MAhK» 

1    .      7   26,bb*':^j69  •96 

AfOftlC  r>CT.  INITIAL  nATIO*ii  HAT10*3 

NUMbEH  COMr'»  HATIO 


TO  FIND  THE  EMt'lHlCAL  FOHMULA  LOCATE   I'nE  FlitST  liATIO 
COLUMN  IN   WHICH  ALL  OF  THE  NUMBEnS  MOST  CLOSELY  Ar't^aJAlMATE 
A  WHOLE  NUMBEH. 
IF  YOU   WOULD  LIKE  TO  THY  AGAIN   i'iPE   Ij    IF  NOT  TYt^E  U.7  i 

HOW  MANY  ELEMENTS  DOES  YOLIK  UNKNOWN  COMr>OUND  CONTAIN?  3 
ENTEH  THE  ATOMIC  NUMBEH^    THE  ATOMIC   WEIGHT^.  AND  THE 
r'CT  COMi^OSITION  FOH  EACH  OF  THE  ELEMENTS  IN  YOUH  CO^i*^OUND. 
BE  SUHE  TO  ENTEH  ONE  SET  OF  NUMBEHS  FOH  EACH  UUESTION  MAhK. 


1  •      7  i,i,2 

2  •      7  16^32^32.7 

3  .      7  b^l6^65.3 


ATOMIC 
NUMBEH 
1 

16 
b 


i^CT. 
COMP. 

2 

32.7 
65.3 


INITIAL 
HATI J 

2 

I 

4 


HATlO*cd 
3.9 

b 


i^rio*3 

5.9 

3 

12 


IF  YOU  WOULD  LIKE  TO  ThY  AGAIN  TYPE   1^    IF  NOT  TYPE  0.7  I 

HOW  MANY  ELEMENTS  DOES  tOOki  UNKNOWN  COMPOUND  CONTAIN?  I 
THE  EMPIHICAL  FORMULA  FOH  A  COMPOUND  THAT  CONfAINS  ONLY 
A  SINGLE  ELEMENT   IS   STUAl GHTFOhWAuD. 

IF  YOU   WOULD  LIKE  TO  TitY  AGAIN  TYPE    U    IF  NOT  TYPE  U.7  U 


HEADY 


19      '  ^  3 


105  ittK     xulVIScD  riY  C.LOSirt.  7-J1-7U 

1U6  ivti*.  AC  I  )=ATOi^;IC  NOj*    BCD -AT    WTo  AiNJU   rnciiVj  CCD/bCi)*    CCl  5=^^01  COf'ir^ 
130  HKIWT       TnlS  x^rtOGrtAM   WILL  FIND    THE  EWi^InlCAL  FOiiMULA  FOrt  '* 
li^O  r'rtINT   "ANY   COWl^UUNU  COMrAIiNJING         TO  FIVE  DlFFEUECv^i'  liLEMENTb*' 

150  r^iiiwr 

160   i^rtlNf  WHEN   iNFOiiMATION    IS  xiEUUESTEO*    Vir^E   XN    fnE  ATOWIC" 

170  PlilNT       NUMBER*    TrtE  ATOMIC   WEIGHi'^  ANU   I'rtE  h>CT  COiXiPOSl  flON  BY*' 
loO   r»rtlNl        WEXGnT    1  iNJ    IrtAT   Oi-tOcit;    FOft  EAAi*l^*LE>  VnE  OOl'ir^OOwU  :3Utfi#" 

IVO  f^rtlNT        THE  DATA   WOJLD  3E  ENXErtEU  Aii  FOLLOW:?:      16#J2#50  KOi^'* 
200  h»iiIt\iT        SOLFOil  AND  ti#16#50   FOit  Oa^GE^.*' 
IdlO  r^nlNi* 

hi^O   UiM  A(5)#t5(5)#CCb) 
^JO   LEi'  W=0 

2^0  r»itXNT        MOW  ^AiNJt   ELEX'ENTS  DOES    lOOrt  ONKiViOWN  CO/ir-OOwU  OONi'AIlM"; 

iittO    Iwi-'Ji"  ^ 

iJo5   IF  ^=1    i'n£:>i  V3u 

tlVO   FOii   I  =      i'O  5 

a^5   IF    1=^:   TrtEN  JiiO 

JOu   WEaT  I 

30  5  r'itlNr   "Ei^rExi  AN    I;\irEGEiw  FivOi'i    1    lO  5.** 
3iO   GO    rO  2^0 

 3l:o ill T-.„*-- -E isi  r El v  inE  rt  iO /li  e  NJt^  AND    i  nE** 

330   x^itlNr       fCi    00i*.r'0:>l  riON  FOii  EACn  OF    fnE  ELEMENTS   IN  YOJil  COi^i^OOND . " 

3^0  i^itlNT        BE   S'JivE   TO  EN  TErt  ONE  bET  OF   NJKi^EnS  FO*i  EACn  uOESTION  MAkK." 

350   LEI'  S^O 

355  LET  F=lE£Jb 

357  r'nlNr 

360   KOrt  1  =  1    TO  C 

370  PrtltMX  TABC  5)  "; 

3bO    lNr»Ur  A(l)#    iiCI)#  CCD 

3ti3  LET  bCl)=CCl)/bCI) 

3b5   IF  BCI)>F   THEN  390 

3b7  LET  F=3CI ) 

3ti9   HEM     MAKE  SOiiE   SOM  OF  i^Cl'  COMi^S  =  100 
390   LET  S=3+CCI) 
^0   NEXT  I 

^iO    IF  ABSCS-lOOX.l    THEN  760 

/420  PHINT  "THE  x^Ci'  COMi^OSlTION  DOES  NOT  TOTAL   100  i^EHCENr." 

A30  PHINT  "ADJUST  DATA  AND  iiEENTEH." 

A^O   GO  TO  320 

700   HEM     PHINT  HATIOS 

760  PHINT 

770  PHINT  "  ATOMIC"*"  PCT-   "*"INITIAL"#"HAf I0*2"*"HATI0*3" 
160  PHINT  "NUMBEH"#"C0MP."#"HAT10" 
bOO  FOH  ial    TO  ^1 

tilO   PHXNT  ACD^CC  i)*iNTC10*BCl)/F+.5)/lu* 
620  PHINT  iNTC20*bCI)/F+.5)/lO# 
b30  PhINT   lNrC30*BC I)/F+.5)/10 
bi^lO   NEXT  I 
6^5  PHINT 

bSO    IF   W  =    1    THEN  950 

b70  PHINT  "   TO  FIND   THE  EMPIiUCAL  FOHMULA  LOCATE  TnE  FInST  hATIO" 
bbOPaiNT"   COLUMN   IN    WriiCH  ALL  OF  TnE  NUMBEHS  MOST  CLOSELY  APPHOAIMATE" 
890  PHINT  "  A   WHOLE  NUMBEh." 
900    GO  TO  9  50 

930  Phi  NT  "   THE  EMPIHICAL  FOJtiMULA  FOH  A  COMPOUND  THAT  CONTAINS  OiMLY" 
9i:i0  PiiINT  "  A   SINGLE  ELEMENT   IS  STliAl  GHTFOhWAhD  • "  , 
9^5  PHINT 

950  PHINT  "IF  YOU   WOULD  LIKE  TO   THY  AGAIN    TYPE   1>    IF  NOT  Tx^PE  O."; 
9bO    INPUT  W 
9b 5  PHINT 

990  IF  W  =  1  THEN  2i^0 
1000  IF  Woo  THEN  9  50 
10  70   END  /    •  , 
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DISCIPLINE 


CHEMISTKY 


SUB  J  EC  T  EQUILIBRIUM  

PROGRAM  NAME    EQUILl  and  EQUIL2 


DESCRIPTION: 

This  program  calculates   the  effects  of  concentration  changes 
in  the  equilibrium  systems    ZHI^i        +       and  PCl^?^  ^^^3  +  ^^2* 

OBJECTIVES: 

A.  To  show  that  an  equilibrium  system  is  a  dynamic  one. 

B.  To  illustrate  and  reinforce  Le  Chateliers  principle. 

C.  An  exercise  in  the  interpretation  of  experimental  data. 

D.  The  significance   of  the  Equilibrium  constants. 


PRELIMINARY  PREPARATION: 

Student  -  The  student  should  have  been  made  aware  of  ^  reversible" 
reiictions,  equilibrium  systems  and  Le  Chateliers  principle. 

B.      Materials  -  none 


DISCUSSION: 

These   two  programs  can  be  used  as  classroom  demonstrations  to 
illustrate  the  effect  of  varying  the  concentration  of  one  of  the  products  of 
a  system  at  Equilibrium.    The  results  are  given  not  only  as  a  table,  but 
also  graphically,  since  it  was  found  that  students  have  less  trouble 
recognizing  trends  when  they  can  be  illustrated. 

The  equilibrium  constant  can  also  be  changed  to  show  its 
effect  on  the  equilibrium  system. 

As  always,  the  teacher  should  have  run  the  program  he  wishes  to 
use  prior  to  its  classroom  presentation  since  the  choice  of  constants 
v/ill  determine  the  slope  of  the  curves. 

NOTE: 

The  vertical  axis  (horizontal  on  the  output)  is  labeled  in  percent 
of  maximum  y  value. 


'  ^  i) 

EKLC 


WIS  PAOaRAN  VILL  INVISTIMTB  THE  BQUILIBRIUM  SYSTCH 


8HI  •  Ha  ♦  18 

WAT  IS  THB  BQUILIBaiUH  CONSTANT?  »5 

WAT  IS  TUS  INITIAL  CONCKHTRATIOil  OF  HI?  8 

WUU>  YOU  LIKB  THE  RESULTS  PLOTTED  TABULATED  <8> 

OR  BOTH  (3>  (TYPE  THE  APPROPRIATE  NUMBER) 7  3 


INIT.  IB 

EQUIL.  H8 

EQUIL.  18 

EQUIL*  HI 

INIT.  HI 

INIT.  Al 

INIT.  HI 

INIT.  HI 

0 

.89869^^ 

•8988938 

.4148136 

1 

.177iB^e3 

2  177184 

•6457513 

B 

»«^89171 

.7416574 

3 

3oi0B0S4 

.7958316 

4 

<^  •084584 

.8309519 

 5  ^ 

5.0.7BL73 

.8556546  

6 

4.068996 

.8740078 

7 

.o«F.&9oa7d 

7.055903 

.8881944 

6 

.0^8385 

8»050858 

.899495 

9 

.0A564393 

9.045644 

.9087181 

10 

«0^181836 

10.04181 

.9163753 

U 

«039S760l 

11.03858 

.988848 

IB 

«03S80S08 

18.03581 

.9883884 

13 

.03340775 

13.03341 

.9331845 

lA 

.03131 1B7 

14.03131 

•9373775 

IS 

.089<^tf)87 

15.08946 

.9410746 

At  (EQUlLe  H8>/(SNIT*  HI) 
Bt  (EBUIL^  I8>/(IN:t.  HI) 
CI  (EBUIL^  RD/dNlT^  HI) 


MAXIMUN  IS  •8988938 
MAXIMUM  IS  15^08946 
MAXIMUM  IS  ^9410746 


INIT.  28 


0 

HI 

0 

III 

1 

I 

B 

ft 

1 

B 

3 

1 

4 

I 

S 

I 

• 

I 

7 

t 

• 

1 

t 

9 

I 

A 

10 

I 

A 

11 

I 

A 

18 

I 

A 

S3 

I 

A 

14 

I 

A 

15 

1 

A 

85 


.  B  *  C 
50 


75 
-I- 


100 
—  I 
A 


%  or  MAXIMUM 


B  A 
BA 
A  B 
A  B 

A 


B 


B 


B 


B 


C 
C 


C 

c 
c 
c 


B 


B 


C 

c 

B 


WULO  YOU  LIKE  ANOTHER  RUN  (1-YES«  0*N0)7  0 
READY 


Chemistry 
EQUIU 


100  mW  EQUILIBRIUM  SYSTEH^   JOHN  HAACHISOTTO 

101  REM  REVISED  8/80/70  CD*  PESSEL) 

105  DIM  D(80)#E€20)#rC80)>V(3) 

106  LET  D1«0 
10  7  LET  E1>0 
106  LET  P1«0 

180  PRINT  "THIS  PROGRAM  VILL  INVESTIGATE  THE  EQUILIBRIUM  SYSTEM" 

181  PRINT 

188  PRINT  **  8HI  »  H8  12^ 

130  PRINT 

140  PRINT  "WHAT  IS  THE  EQUILIBRIUM  CONSTANT"! 

141  INPUT  K 

148  19^  K>«0  THEN  150 

143  PRINT  **THS  EQUILIBRIUM  CONSTANT  MUST  BE  NON -NEGATIVE*** 

144  GO  TO  140 

150  PRINT  "WHAT  IS  THE  INITIAL  CONCENTRATION  OF  HI**i 

151  INPUT  C 

158  IP  C>«0  THEN  159 

153  PRINT  **THE  INITIAL  CONCENTRATION  OF  HI  MUST  BE  NON-NEGATIVE* 
.  1 54  „G0  TO  150  :  _   -     -  -       

159  PRINT  T 

160  PRINT  **VOULD  YOU  LIKE  THE  RESULTS  PLOTTED  TABULATED  <8) 

161  PRINT  **0R  BOTH  C3>   CTYPE  iHE  APPROPRIATE  NUMBEH)"i 
168  INPUT  Ql 

160  IF  QK8  THEN  195 
163  PRINT 
184  PRINT 

165  PRINT  "INIT*  I8"#**  EQUIL*  H2**>"  EQUIL*   I8">"  EQUIL*  HI** 

166  PRINT  •*  *****  

167  PRINT  "INIT*  MI**#**  INIT*  HI**#"  INIT*  HI**#**  INIT*  HI- 
166  PRINT 

195  LET  A«4*K 

196  LET  B-l-A 

800  FOR  X»l   TO  16 

801  LET  X1«X-1 

810  LET  D(X>»<-(A>Xl>>SQR((A>Xl)t8>A«B))/(a4iB) 

880  LET  E(X>»Xl-t>D(X> 

830  LET  F<X>«l-84iD(X) 

840   IF  QK8  THEN  860 

850  PRINT  X1>D(X>#ECX>>F(X> 

860   IF  DCXXDE  THEN  870 

865  LET  D1«DCX> 

870  IF  ECXXEl   THEN  860 

875  LET  E1«ECX) 

880  IF  FCXXFl  THEN  890 

885  LET  Fl-FCX) 

890  NEXT  X  ^ 
895  IF  Ql<>8  THEN  395 
300  PRINT 

330  PRINT 

331  PRINT 

340  PRINT  **VOULD  YOU  LIKE  ANOTHER  RUN  C1-YES#  0-NO)**i 

350  INPUT  08 

360  IF  Q8>0  THEN  140 

370  STOP 

390  REM  PLOTTING  ROUTINE  FOR  THREE  CURVES 
395  PRINT 

MAXIMUM  IS  **D1 
MAXIMUM  IS  **E1 
MAXIMUM  IS  **F1 

c- 

50  75  100**J 


'  i  7     .  ■ 


400  PRINT  **At   (EQUIL*  H8)/CINIT*  HI) 

401  PRINT  **Bi  (EQUIL*  I8)/(INIT*  HI) 
408  PRINT  **Ct   (EQUIL*  HI)/(INIT*  HI) 

403  PRINT 

404  PRINT  **INIT*  I8**iTAB(86)i**A  -  B  ' 

405  PRINT  -~   0  85 
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406  PHIHX  **       S  OF  NAXIMUH** 

40B  PRINT  -miT.  HI     I—  — — .  —  i ....  -I- 

410  FOB  X-1  TO  16 

480  PRINT  TAB<5>IX-1ITAB<I0>I**I**I 

430  LET  V<l>-INT<40*D<X>/01-t>«9> 

431  LET  V<a>«INT<40i»E<X>/El-t>«5> 
438  LET  VC3>-INT<40«r<X>/ri-t>«9> 

560  REM    riND  WICH  IS  SMALLEST^  THEN  PRINT  IT  AND  HAXIMI2E  IT 

600  FOR  Q-1  TO  3 

605  LET  K1-1E80 

610  FOR  I-l   TO  3 

680  IF  V<I>>K1   THEN  640 

630  LET  X1«V<I> 

640  NEXT  I 

650  PRINT  TABCXl^lOll 
660  FOR  I-l  TO  3 

670  IF  ABS<V<I>-K1><«00G1  THEN  700 
660  NEXT  I 

690  STOP 

700„ir  .I?<»il  THEN  730 

710  PRINT  **A**I 

780  QO  TO  760 

730  IF  I<>8  THEN  760 

740  PRINT  *«B**I 

750  60  TO  760 

760  IF  I<>3  THEN  690 

770  PRINT  ••C-l 

780  LET  V<I>-1E85 

790  NEXT  Q 

795  PRINT  -  - 

600  NEXT  X 

610  PRINT 

615  PRINT 

680  60  TO  330 

999  END 
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THIS  PROGRAM  VIIX  INVESTI QA-'Z  THE  EQUILIBRIUM  SYSTEM 

PCL5  m  PCL3  CLtf 

WAT  IS  THE  EQUILIBRIUM  CONSTANT?  .75 

WAT  IS  THE  INITIAL  CONCENTRATION  OF  PCL57  10 

VOULD  YOU  LIKE  THE  RESULTS  PLOTTED  (1>#  TABULATED  (8> 
OR  BOTH  (3>   (TYPE  THE  APPROPRIATE  NUMBER) 7  3 


INIT.  CLS 

EQUIL*  PCL3 

EQUIL*  CL8 

EQUIL^  PCL5 

INIT*  PCL5 

INIT*  PCL5 

INIT^  PCL5 

INIT^  PCL5 

0 

•8389166 

•8369166 

•7610638 

1 

•06574643 

U065746 

•9348536 

2 

•03553601 

8^035536 

•964464 

3 

•0241996 

3^0848 

•9758008 

4 

•01838859 

4*018383 

•9616774 

5 

•01473555 

5*014736 

•9658645 

6 

•018380  7 

6^018381 

•9676793 

7 

•01056486 

7^010565 

•9694151 

6 

9^87740 3E-3 

6^009877 

•990 7886 

9 

8 •8569 78E-3 

9^006857 

•991743 

10 

7*4366e0E-3 

10^00744 

•9985613 

11 

6*767669E*3 

11  ^00677 

•9938381 

18 

6*808003E-3 

18^00681 

•993798 

13 

5*733609E-3 

13^00573 

•9948664 

14 

5*386569E-3 

14*00533 

•9946734 

15 

4*973471E-3 

15^00497 

•9950865 

At   (EQUIL^  PCL3>/(INIT^  PCL5> 
Bt   (EQUIL^  CL8>/(INIT^  PCL5> 
CI   CEQUtL^  PCL5>/(INIT^  PCL5> 


MAXIMUM  IS  •8369168 
MAXIMUM  IS  15^00497 
MAXIMUM  IS  ^9950865 


CL8 

A 

-  B  - 

C 

PCL5 

0  85 

50 

75 

100 

0 

IB 

C 

A 

1 

IB  A 

C 

8 

I  BA 

C 

3 

I       A  B 

C 

4 

I     A  B 

C 

5 

I  A  B 

C 

6 

I  A 

B 

C 

7 

I  A 

B 

C 

8 

I  A 

B 

c 

9 

lA 

B 

c 

10 

lA 

B 

c 

11 

lA 

B 

c 

18 

lA 

B 

c 

13 

lA 

B  C 

14 

lA 

B  C 

15 

lA 

0 

X  or  MAXIMUM 


WOULD  YOU  LIKE  ANOTHER  RUN  (1-YES#  0-N0>7  0 


READY 
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100  R»  IQUIUBBIUN  SYSTIIf#  JOHN  NMCHISCTTO 

101  ASM  akviSKD  6/80/10  (D»  PB5SBI.> 

105  DIM  D(a0>#X<80>#F(80>#VO> 

106  Lrr  01-0 

107  LST  S1«0 
106  LST  ri«o 

180  PRINT  "*THIS  PaOeSAN  VILL  INVBSTIMTX  THI  KQUXUaaiUN  SYSTKN** 

181  PRINT 

laa  PRINT  PCL5  «  PCL3  ♦  ChQT 

130  PRINT 

140  PRINT  **WAT  IS  THg  XQUILIBRIUN  CONSTANT**! 

141  INPUT  JC 

148  IP  X>«0  THEN  150 

143  PRINT  **THX  MUI LIBRIUM  CONSTANT  MUST  BX  NON-NXQATIVX*** 

144  80  TO  140 

150  PRINT  **IMAT  IS  TUX  INITIAL  CONCXNTRATION  OP  PCLS**! 

151  INPUT  A 

158  IP  A>«0  THXN  159 

153  PRINT  **THt  INITIAL  CONCXNTRATION  OP  PCL5  MUST  BX  N0N-NX6AtIVX«** 

154  80  TO  ISO 

159  PRINT 

160  PRINT  **VOUU)  YOU  LIKX  TUX  RXSULTS  PLOTTXD  Cl>«  TABULATXD  <8)** 

161  PRINT  **0R  BOTU  C3>  CTYPX  TUX  APPROPRIATX  NUMBXR>**J 
168  INPUT  Ql 

180  IP  Ql^B  THXN  195 

163  PRINT 

164  PRINT 

185  PRINT  **INIT*  CL8**#**  KQUIL.  PCLS*****  XQUIL*  CLB*****  XQUIL*  POLS'* 

166  PRINT  •*---  *****  ---r  *****  —  ** 

167  PRINT  **INIT.  PCL5*****  INIT*  PCL5*****  INlt#  PCL5*****  INIT.  PCLS** 
166  PRINT 

195  LXT  B«l€/A 

800  FOR  X-1  TO  16 

801  LXT  Xl-X-1 

810  LXT  0CX»C-CB^Xl>^S8R(€B^Xl>*<B^Xl>^4«B>>/8 

880  LXT  XCX»X1^DCX>' 

830  LXT  PCX»1-DCX> 

840  IP  ai«8  THXN  BiO 

850  PRINT  X1*DCX>*XCX>*PCX> 

860  IP  DCX><01  THXN  810 

865  LXT  D1«DCX> 

870  IP  XCXXXl  THXN  860 

875  LXT  X1>XCX> 

880  IP  PCXXPl'THXN  890 

886  LXT  P1«PCX> 

890  NXXT  X 

895  IP  81<»8  THXN  395 
300  PRINT 

330  PRINT  ••mmmm^ 

331  PRINT 

340  PRINT  **WULO  YOU  LIKX  ANOTHXR  RUN  (l-YXS*  0-NO)**J 

350  INPUT  88 

360  IP  88»0  THXN  140 

310  STOP 

390  RXN  PL0TTIN8  ROUTINX  FOR  THRXX  CURVXS 
398  PRINT 
396  PRINT 

4M  PRINT  **AI  CXQUIL*  PCL3>/<INIT*  PCLS>  MAXIMUM  IS  **D1 

401  PRINT  **Bi  (XBUIL*  CL8»CIIIIt*  PCLS>'  MAXIMUM  IS  **X1 

498  PRINT  **Ci  (X8UIL*  PCL6>/<IilT*  PCLS>  MAXIMUM  IS  **P1 

493  PRINT 

494  PRINT  *"INIT*  CL8**JTAB<89> J**A  -  B  -  C** 

405  PRINT  — -      0  85  iSC  75  100**J 

406  PRINT  *•      t  or  MAXIMUM** 
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406  PRINT  -XMXT.  PCL5      1-  -X  —  X  X 

410  FOR  X-l  TO  16 

420  PRINT  TAB<5)iX-liTAB<i3)l*'X**l 

430  LET  V<l)"XNT<40O<X)/Dl^«5) 

431  UST  V<2)«XNT<40«K<X)/E1^«5) 
438  LET  V<3)"XNT<40^r<X)/ri^»5) 

580  REM    FIND  WHICH  IS  SMALLS5T#  THEN  PRINT  IT  AND  MAXIMI2E  IT 

600  FOR  a»l  TO  3 

605  LET  KI-IE20 

610  FOR  I-l  TO  3 

6a0  IF  V<I)>XI  THEN  640 

630  LET  Kl-VCI) 

640  NEXT  I 

650  PRINT  TAB<X1^13)I 

660  FOR  i^i  xcT  a 

670  IF  ABS<  V<I)-K1)<«0001  THEN  700 
660  NEXT  I 
690  STOP 

TOO  IF  lol  THEN  730 

710  PRINT  -A- 1 

7&0  00  TO  780 

730  IF  I<>a  THEN  760 

740  PRINT  ••B'»l 

750  00  TO  780 

760  IF  I<>3  THEN  690 

770  PRINT  "C-l 

780  LET  V<I)-IE25 

790  NEXT  0 

795  PRINT  ••  •• 

800  NEXT  X 

810  PRINT 

815  PRINT 

8a0  aO  TO  330 

999  END 
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DISCIPLINE  CHEMISTRY 
SUB  J  EC  T      KINETIC  S 


PROGRAM  NAME  KINET 


DESCRIPTION: 

A  class  room  presentation  designed  to  calculate  equilibrium 
concentrations  and  graph  the  progress  (concentration  vs.  time)  from 
initiation  to  equilibrium  for  the  general  reaction  A  ^ —  P. 

OBJECTIVES: 

A)  An  understanding  of  Equilibrium 

B)  The  significance  of  the  magnitude  of  the  Equilibrum  constant. 

C)  The  relationship  of  the  rate  constant  to  the  point  of 
equilibrium. 

PRELIMINARY  PREPARATION; 

A.  Student(iyThe  distinction  between  initial  and  equilibrium  concentration 
should  be  rr.ide  very  clear. 

(2)  The  meaning  of  the  terms  "  Rate  constant"  and  "  Equilibrium 
constant.  " 

B.  Materials   -  None 
DISCUSSION: 

To  insure  the  success  of  this  program  in  a  teaching  situation, 
the  teacher  should  run  the  program  prior  to  its  use  in  the  classroom. 
This  is  necessary  to  insure  that  the  choice  of  constants  illustrates  the 
point  to  be  made  and  the  amount  of  classroom  time  be  kept  to  a  minimum. 

By  varying  the  equilibrium  constant  it  is  possible  to  move  the 
point  of  equilibrium  on  the  concentration  axis,  and  show  the  relative  con- 
centrations of  product  and  reactant  as  a  function  of  the  value  of  the 
equilibrium  constant. 

The  effect  of  different  rate  constants  on  the  time  it  takes  to  attain 
equilibrium  can  also  be  shown.    The  point  si  which  the  two  curves  approach 
a  straight  line  is  the  point  of  equilibrium  (if  the  two  curves  intersect  a  dot  is 
used  as  the  point). 

In  this  program,  time  is  plotted  in  ten  equal  steps  from  initiation 
of  the  reaction  to  equilibrium.    The  time  to  attain  equilibrium  is  different 
depending  on  the  constant  used.    It  should  be  pointed  out  that  while  the  point 
of  equilibrium  on  the  graph  may  appear  to  be  at  the  same  spot,  the  units  of 
time  are  changing,  thus  the  point  on  the  graph  is  different. 
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FOH  THE  EQUILIBRIUM  PROBLEMS  YOU  ARE  ABOUT  VO  DO*  THE 
DATA  MAY  BE  PHESENTED  IN  THE  FOLLOWING  MANNErtX 
(INDICATE  YOUR  CHOICE  BY  NUMBER) 

CHOICE   I    «  TABLE  OF  DATA 

CHOICE  2  a  GRAPH  OF  DATA 

CHOICE  3  «  TABLE  AND  GRAPH  OF  DATA 

CHOICE  Zl  »  END  PHOGKAM 


WHAT  IS  YOUR  CHOICE?  3 


LET  F  ■  THE  FORWARD  RATE  CONSTANT 

LET  K  =s  THE  EQUILIBRIUM  CONSTANT  FOR  THE  REACTION  A  =P 
TYPE  IN  THE  CONSTANTS  F  AND  K  IN  THAT  ORDER, 
?  5sl 


LET  Al   «  ORIGINAL  CONCENTRATION  OF  A 

LET  A  a  PERCENT  CONCENTRATION  OF  A  CA/A1*10U) 

LET  P  «  PERCENT  CONCENTRATION  OF  P  CP/Al*iaO> 


TIME 

A 

P 

0 

100 

0 

•  U69 

75^0  7bb 

24^9212 

•  13& 

62^57&93 

37^42107 

•  207 

56*30929 

43^69071 

•  276 

53*16459 

46f83541 

•  3A5 

5U58728 

48^41272 

•  414 

50^79614 

49^20386 

•  483 

50^39933 

49^6006  7 

•  552 

50^20029 

49^79971 

•  621 

50^10046 

49^89954 

•  69 

50^05039 

49^94961 

TIME 

0 

•  069 

•  138 

•  20  7 

•  276 

•  345 

•  414 

•  483 

•  552 

•  621 
.69 


PERCENT  CONCENTRATION  OF  AC*)   AND  PC+) 
0  25  50  75  100 


+  * 
+  * 
+  * 
+  * 
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WHAT  IS  YOUa  CHOICE?  2 

LET  F  •  THE  FOKWAHD  RATE  CONSTANT 

LET  K  =  THE  EQUILIBRIUM  CONSTANT  FOR  THE  REACTION  A  •*» 
TYPE  IN  THE  CONSTANTS  F  AND  K  IN  THAT  ORDER. 
?  5#0«1 


«  4( «  «  «  4( «  4(  4(  4(  4(  4(  4(  4(  4(  4(  4(  4(  4(  4(  4(  4(  4(  4(  4(  4(  4(  4(  4(  4t 


PERCENT  CONCENTRATION  OF  AC*>  AND  PC+> 


0  25                 50  75  100 

TIME  I  1  1  1  1 

0  *  * 

.01254545  I  +  * 

•  02509091  I  ^ 

.03763636  I  >  * 

.05018182  I  ^  * 

.06272727  I  +  * 

.07527273  I  +  * 

.08781818  I  +  * 

.1003636  I  +  * 

.1129091  I  +  ♦ 

.1254545  I  +  * 


WHAT  IS  YOUR  CHOICE?  a 

LET  F  «  THE  FORWARD  RATE  CONSTANT 

LET  K  »  THE  EQUILIBRIUM  CONSTANT  FOR  THE  REACTION  A  «P 
TYPE  IN  THE  CONSTANTS  F  AND  K  IN  THAT  ORDER. 
7  10^0.1 


«  4t  4t  4t  4t  4t  4t  4t  4c  4c  4c  4c  4t  4c  4t  4t  4t  4c  4t  4c  4c «  «  4(  4( «  «  «  «  4( 


PERCENT  CONCENTRATION  OF  AC*>  AND  PC+> 


0  25  50  75  100 

TIME  I  1  1  1  1 

0  *  * 

6.272727E-3  -  I   +  * 

.01254545  I     +  * 

.01881818  I      +  * 

.02509091  I      +  * 

.03136364  T  * 
.03763b j6  '  * 

.04390Vuy  I        +  * 

•05018182  I       ^  ^ 

.05645455  I        +  * 

.06272727  I       +  * 
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LET  F  =  THE  FORWARD  RATE  CONSTANT 

LET  K  a  THE  EQUILIBRIUM  CONSTANT  FOR  THE  REACTION  A  »P 
TYPE   IN  THE  CONSTANTS  F  AND  K  IN  THAT  ORDER, 
7  5j.5 


PERCENT  CONCENTRATION  OF  A<*)  AND  P(+) 


TIME 

0 

•  046 

•  092 

•  136 

•  lb4 

•  23 

•  276 

•  322 

•  366 

•  414 

•  46 


0 
I- 


25 
--I- 


50 
--I- 


75 
-I- 


100 
—  I 


+ 
+ 


+ 
+ 
+ 
+ 
+ 
+ 


4t 


WHAT  IS  YOUR  CHOICE?  2 


LET  F  «   THE  FORWARD  RATE  CONSTANT 

LET  K  =   THE  EQUILIBRIUM  CONSTANT  FOR  THE  REACTION  A  «P 

TYPE  IN  THE  CONSTANTS  F  AND  K  IN  THAT  ORDER^ 
?  5,*2 


4(  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦  ♦ 


PERCENT  CONCENTRATION  OF  AC*)  AND  P<  +  > 

0  25  5U  75  100 

0  *  * 

•  023  1     +  * 

•046  I  +  .  * 

•069  I  +  * 

.092  I  +  * 

•115  I  +  * 

•138  1  +  * 

•161  I  +  * 

•164  I  +  * 

•207  I  +  * 

•23  I  +  * 


WHAT  IS  YOUR  CHOICE?  4 


READY 
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100  HEM     KINET     HOVAKD  SHANNON     HARBORFIELDS  HS  d/15/6b 
110  HEM  REVISED   7/2b/69     PIB  J.  MAKCHISOTTO 

115  REM     REVISED  BY  C-LOSIK  7-26-70 

116  REM     F^K  ARE  DEFINED  BELOV;   L  IS  THE  TIME  INCREMENT; 

117  REM     G  IS  THE  DECAY  CONSTANTi   D  IS  THE  FRACTION  OF  • 

120  REM  THIS  PROGRAM  STUDIES  THE  KINETICS  OF  A  SINGLE  SPECIES 

130  REM  (A)    GOING  TO  A  SINGLE  SPECIES  (P)#AND  APPROACHES  EQUILIBRIUM 
UU  REM  WITH  (P>. 

150  REM  IE.    ISOMER  EUUILIBRIUM 

160  REM  IF  THE  EQUILIBRIUM  CONSTANT  IS  VERY  LARGE  (K>10#UUU># 

170  REM  IT  CAN  BE  ASSUMED  THAT  ALL  OF  THE  HEACTANT  GOES  TO  PRODUCT • 

ItiO   REM  THIS  PROGRAM  CAN  THEN  BE  USED  FOR  RADIOACTIVE  DECAY. 

190   REM  AN  INPUT  OF  THE  FORWARD  RATE  CONSTANT  AND  THE  EQUILIBRIUM 

200  REM  CONSTANT  WILL  GIVE  A  PRINTOUT  OF  THE  CONCENTRATION  OF  CA) 

210  REM  Ai^b'  CP)   COMPARED  TO  THE  INITIAL  CONCENTRATION  OF  CA)  AT  10 

220  REM  EQUAL  TIME  INTERVALS  AS  IT  APPROACHES  99«9PERCENT  TO  EQUILIBRIUM 

230  PRINT         FOR  THE  EQUILIBRIUM  PROBLEMS  YOU  ARE  ABOUT  TO  DO,  THE  " 

QUO  PRINT  "     DATA  MAY  BE  PRESENTED  IN  THE  FOLLOWING  MANNERl  " 

250  PRINT  (INDICATE  YOUR  CHOICE  BY  NUMBER)" 

260  PRINT 

270  PRINT  "  CHOICE   1    »  TABLE  OF  DATA" 

2b0  PRINT  "  CHOICE  2  «  GRAPH  OF  DATA" 

290  PRINT  "  CHOICE  3  »  TABLE  AND  GRAPH  OF  DATA" 

300  PRINT  "  CHOICE  4  «  END  PROGRAM" 

310  PRINT 

320  PRINT  "    WHAT  IS  YOUR  CHOICE"; 

330   INPUT  Q 

340   IF  Q>  4  THEN  1120 

350   IF  Q<1   THEN  1120 

360   IF  Q  -  4  THEN  1140 

370  PRINT 

380  PRINT  "  LET  F  =  THE  FORWARD  RATE  CONSTANT" 

390  PRINT  "  LET  K  »  THE  EQUILIBRIUM  CONSTANT  FOR  THE  REACTION  A  eP" 
400  PRINT  "  TYPE  IN  THE  CONSTANTS  F  AND  K  IN  THAT  ORDER." 
410   INPUT  F#K 
420  'PRINT 
460  PRINT 

470  PRINT  "  ♦♦♦♦♦♦♦♦♦♦♦♦j*t«««««j#t***********" 

480^PRINT 

500  LET  H  «  K/CK+1) 
520  LET  G  «  F/H 
530  LET  L-.69/G 
550  LET  T  »  -L 
552  IF  Q"2  THEN  690 

560  PRINT  "  LET  Al   «  ORIGINAL  CONCENTRATION  OF  A" 
570  PRINT  "  LET  A  »  PERCENT  CONCENTRATION  OF  A  CA/A1*100)" 
5450  PRINT  "  LET  P  «  PERCENT  CONCENTRATION  OF  P  CP/A1*100)" 
590  PRINT 
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eOO  PHINT  "  TIME  A  P  " 

610  PHINT  "  " 

620  FOR  I   «  0  TO  10 

630  LET  T  =  T  +L 

640  LET  D  »  H*  ( I -EXP ( -G*T) ) 

650  PHINT  T>( 1-D)*100>D*100 

660  NEXT  I 

670  LET  T  =-L 

680   IF  Q  a   I  THEN  310 

690  PRINT 

700  PHINT"  PEHCENT  CONCENTRATION  OF  AC*)  AND  P<  +  )" 

710  PHINT 

720  PHINT  "  "0  25  50  75  100" 

730  PRINT  "     TIME">"I  1  1  1  1" 

740  FOR  I  a  0  TO  10 

750  LET  T  »  T+L 

760  LET  D  =  H*(l-EXP(-G*T)) 

770  LET  X  »  l-D 

775  PRINT  I*L*"I"; 

780   IF  INTC40*D+.5)   »   INTC40*X+.5)   THEN  930 
790IF  INT(40*D+.5)>   INTC40*X+.5)   THEN  1000 
800  PRINT  TAB(40*D+M»5);"+"iTABC<i0*X+M.5)i"*" 
&50   GO  TO  1100 

930  PRINT  TAB(40*D+M»5);"»" 
950  GO  TO  1 100 

1000  PRINT  TAB(40*X+14.5);"*";TAB(4U*D+14»5);"+" 
1100  NE^T  I 
1110  GO  TO  310 

1120  PRINT  "  YOUR  CHOICE  MUST  BE  A  NUMBER  BETWEEN  1  AND  4>   THY  AGAIN." 
1130   GO  TO  310 
1140  END 


33 


•DISCIPLINE  CHEMISTRY 
SUP J  EC  T  MASS  DEFECT 

PROGRAM  NAME  MASSD 


DESCRIPTION: 

A  classroom  presentation  that  could  be  used  to  calculate  mass 
defect,  and   give  the  answer  in  terms  of  usable  energy  (k\v-hr.  of 
electricity). 

OBJECTIVES: 

A.  To  calculate  and  explain  mass  defect. 

B.  To  introduce  the  concept  of  binding  energy. 

C.  Conversion     of  mass  to  energy,  (atomic  power) 

PRELIMINARY  PREPARATION: 

A.  .Sftirlonf  -  The  Student  should  have  an  understanding  of  nuclear 
particles,  and  the  law  of  conservation  of  mass  and  energy. 

B.  Ivlaterials  -  The  teacher  should  make  available  a  table  of  i??otopes 
that  lists  the  actual  mass.    (Handbook  of  Chemistry  and  Physics, 
Chemical  Rubber  Company) 

DISCUSSION: 

It  should  be  noted  that  the  masses  used  here  inchide  the  electrons. 
The  very  small  diTfercncc  which  would  be  obtained  if  the  bare  nuclear 
mass  were  Iciiown  is  negligible  for  the  purpose  of  this  calculation. 

Time  permitting,  it  v/ould  be  beneficial  to  have  the  student 
investigate  the  conversion  of  atomic  mass  units(AMU)  to  calories  and 
kilowatt-hours  in  order  to  recognize  the  significance  of  the  units  and  the 
magnitude    of  the  numbers  involved. 
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THIS  PHOGHAM  IS  DESIGNED  TO  INVESTIGATE  MASS  DEFECT 

WHICH  OF  THE  ELEMENTS  WOULD  YOU  LIKE  TO  CONSIDEH?' 
HEMEMBEK  WE  AKE  DEALING  WITH  A  SINGLE  ATOM*  THEKEFOHE 
IN  ADDITION  TO  THE  ATOMIC  NUMBEH  WE  AHE  GOING  TO  NEED  THE 
ACTUAL  MASS   CIN  AMU)   AND  THE  MASS  NUMBEH  OF  THE  ISOTOPE 
you  WANT  TO   WORK  WITH. 

WHEN  THE  MACHINE  TYi'ES  A  QUESTION  MAKK  (7)    TYh'E  IN 
. YOUH  ANSWER  THEN  HIT  HETUHN  KEY.   USE  NUMBEHS  OF  UP  TO 

SIX  SIGNIFICANT  FIGURES.   HOUND   IF  NECESSARY  TO  6  DIGITS. 
IN  THE  VALUES  FOrt  MASS  DEFECT. 


THE  ATOMIC  NUMBER  IS   7  ti 
THE  ACTUAL  MASS   IS   7  15.9949 
THE  MASS  NUMBEn  IS  7  16 

THE  SUM  OF  THE  MASS  OF  THE  b  PHOTONS  AND  THE  b  NEUTRONS 
PLUS  THE  WEIGHT  OF    f^E  ti  ELECTiiONS   IS  THE  CALCULATED 
MASS. 

-CALCULATED  MASS     -     ACTUAL  MASS     =     MASS  DEFECT 
16.13199         -        15.9949  =  .1371 

THE  MASS  DEFECT   IN  TERMS  OF  ENERGY   IS  THE  EQUIVALENT  OF 
ii936  A   10r9  CAL-  PER  MOLE  OF  IRIS  SUBSTANCE^ 
Oii  lti4  X   10  t9   CAL.  PER  GRAM* 

IF   WE  DIVIDE  THIS  BINDING  ENERGY  BY   THE  NUMBER  OF 
PARTICLES   IN  THE  NUCLEUS^    WE  GET  A  RATIO  KNOWN  AS  THE 
BINDING  ENERGY  PER  NUCLEONj    WHICH  IS  A  MEASURE  OF  THE 
STABILITY   OF   THE  NUCLEUS •     THE  MORE  'BINDING' 
PER  NUCLEONj    the  MOHE  STABLE  IS  THE  NUCLEUS. 

THE  BINDING  ENERGY  PER  NUCLEON  IS  :  1.27674/4E-5  ERGS.  PErt  NUCLEON>  On 
3.047iaiE-13  CAL.  PER  NUC.j 

WHICH  IS  MORE  COMMONLY  EXPHESSED  AS   tiOU  MEV. 

THE  AMOUNT  OF  ENERGY   (BINDING  ENEHGY )   CONTAINED   IN  ONE 
GRAM  OF  THIS  SUBSTANCE  WOULD  BE  SUFFICIENT  TO  SUPPLY  ALL 
THE  ELECTRICAL  NEEDS   IN  AN  AVERAGE  ONE  FAMILY  ROUSE  USING 
15  KW-rtHS.  PER  DAY  FOR  A  PEitlOD  OF   14245  DAYS  OR 
39  YEARS. 

IF  YOU  WOULD  LIKE  TO  HUN  ANOTHER  PROBLEM  TYPE   IN  1^ 
IF  NOT  TYPE  IN  U . 
7  0 


HEADY 
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lUu  ii£W  uOniM  MAilCni  iiOi  fO     t^lS  SUMMEii  6^  BASIC 

1U5  rtEM     uEVIiiED         CLOiilK  7-22-7U 

1U6  iiEM     AT  NO=A^   rtAlii^B^   MASi)  NO=C 

1U7  iiEt'i     MAbS  DEFECT   1 5  F 

13U  r»iiliMT"        THli>  r>riOGrtAiyi   lb  DESIGNED   VO   I  tSjVEi>  1 1  GATE  NAi>5  DEFEU  i*" 

15U  ^rtlWf        WnlCrt  OF    TrtE  ELEMENTi)   WOULD   tOU  LIKE  TO  COiVSiDEh?  " 
160  i^rtlNT"  rtEMEMWErt  WE  ArtE  DEALING   Wl  frt  A  SINGLE  ATOM>  THErtEFOriE'^ 
17U  i^rtlNT*'   ItSj  ADulllON   VO    TnE  ATOMIC  iNJU^BErt  WE  ArtE  GOlWG  i'O  iNiEED  TrtE** 
loO  i^iiliMf  ACi'UAL  i*iA5:3   (  li\  AMU)   AND  TnE  MAbb  NUC^idEit  OF  l^i  ISOi'UPE?' 
IVU  PrtlNT"   you   WANT  TO   wOuK  WlTn." 
aUU  *^jilNT 

21U  PjilNT        WHEN  THE  MACrtlNE  TVr»Ei)  A  uUEiiTlON  MArtK  (?)   Tir>E  iN" 
22U  pjilNT       YOUrt  ANaWErt  TrtEN  rtlT  UETUiiN  KEY.    UbE  NUMtlEKii  OF  TO" 
230  PKINT       SIX  SIGNIFICANT  FIGUHES-   kOUND   IF  NECESSAuY   TO  6  DiQli::^*'' 
237  PKINT  "IN   TrtE  VALUES  FOrt  MASS  DEFECT . 
23b  ^•rtlNT 
240  t^rtlNT 

iiSO  t^KlNT       THE  ATO^ilC  NUM3EU  IS 
260    INPUT  A 

270  PKINT        TrtE  ACTUAL  MASS  IS 
2ttO   INt^UT  C 

290  PKINT       TrtE  MASS  NUMbEit  IS 
300    INPUT  d 
310  PKINT 

320   KEM     G   IS  A\;OGADKO'S  NUMBEK 
330   LET  G=6.023E23 
340   LET  D  =»  B  -  A 

350   LET  E»( 1 •0072b*A)+< 1 .00b67*D)+<5.4b5y7E-4*A) 
360  LET  F»INT( lE4*(E-C)  +  .5)/lE4  . 

370  PKINT       THE  SUM  OF  THE  MASS  OF  TriE"A*VrtOTONS  AND  THE"t"\>)EUTrtONS" 
3tiO  PKINT       PLUS  THE  WEIGHT  OF  THE"A"ELECTkONS  IS   THE  CALCULATED" 
3V0  PKINT  MASS." 
400  PKINT 

410  PKINT"     CALCULATED  MASS     -     ACTUAL  MASS     =     MASS  DEFECT" 
420  PKINT"  "E>"  -     "C;"  =  "F 

430  PKINT 

440   KEM       CONVEKSION  FACTOKS: 

450   KEM  1.4y  A   10-3  EKGS  PEK  AMU 

460   KEN  4.1V  A    10    7  EKGS  PEK  CAL. 

470  REM  3.6     A  lo    13  EKGS  PEK  KW^n 

475  HEM  V31.0  MEV  PEK  AMU 

4tt0   LET  H»( 1 .49E-3*F*G)/4.19E7 

490  PKINT  "  THE  MASS  DEFECT   IN  TEKMS  OF  ENEKGY   IS  THE  EQUIVALENT  OF" 
500  PKINT   INT(H/1E9+.5)"A   10 ty  CAL.  PEK  MOLE  OF  THIS  SUBSTANCE^" 
510  PRINT  "OH"INT( (H/C)/1E9+.5)"A   10T9  CAL.  PErt  GKAM." 
51!  PRINT 

512  PRINT  "   IF   WE  DIVIDE  THIS  BINDING  ENEkGY  BY  THE  NUMB^^rt  OF" 
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f'xtlMr  "  f^AxtfiCLE:?  IN   i'hE  NUULKUij    U'E  OtLi'  A  ivAriO  KMO^viVj  H:?  inc." 
TiiA  r'rtlM*       blNUiNG  ENKiiG^  r'Ert  NUCLKONj    WnlCn   IS  A  MEASUitE  OF  TnE*' 

515  *-ulNT       :jrAblLirY  OF    frtE  MUCLEiJb.      XnE  CiOxtE  'BiiNiUIMG'" 

516  1^411^1'  "  r'Eh  iMUCLEONj   THE  MOuE  STABLE  IS   i'rtE  NUCLEuS.'' 
bl7  r'nlNi        fnE  dliXiUXNG  ENExtG^  i^Eu  NUCLEOM   1  :> 

516  i^iilNT  1  ./IVE- J*F/b''EuGS.  x-En  NUULEOivij  On''; 

51V  r'HlNT  1  . /IV E- J*F/ C B*^  •  1 9E 7 ) •'CAL.  r^Eu  NUCj" 

biiOr'UlNr"  WhlCn         MOuE  COMMONLY   EAeriESSEO  AS"  lOU  *  liS)  f  C  V  J  i  *F/b+ .  5  )  "I'^iEv/ • 

522  LET  J  =  ((H/C)*^.19E7/3.6E13)/15 
r'rtINT 

530  HHINT       TrtE  AMOUNT  OF  ENErtGi    CBlMUiNG  ENErtGY )   COiNiiAlNEU  iiM  Oi\h" 
b^O  r'KiNT        GiiAM  OF   THIS  :>abSrANCE  WOULD  BE  bJFFlClEiVjr    I'O  SUi^i^Lt  ALL" 

550  r'xvlM  "   TnE  ELECTiviCAL  NEEDS    IN  AN  Av/EnAGE  ONE  FAi^XLY  nOOSE  UbiNG" 

560   i^uINT  "    lb  Kiv-huS.  PEti  DAV  FOxt  A  i^huiOD  OK"  1 N  f  C  J+ .  5 )  "DAV  b  On" 

565  r'uINT  INT (  (  J/365  )  +  •  5  )  "VEAuS . " 
5  70  i^iilNf 

5bO  i^itlNT  "    IF   tOU  WOULD  LIKE  TO  riUN  ANOTnEu  i^nOBLE^i    i'it'E  li\i  1#" 

5yu  r'nlNT  "   IF  NOT  TYr^E   IN  U." 

600   INi^UT  M 
610  HuINf 

620  r'HINT  "  j"***************" 
630    IF  M=l    TnEN  2^0 
6^0    IF  M<>U   THEN  5oU 
650  END 

liEADY 
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DISCIPLINE  CHEMISTRY  

SUBJECT  ACID  -  BASE  TITRATION 


PROGRAM  NAME  MOLAR 


DESCRIPTION! 

This  program  will  calculate  molarity  by  using  data  obtained 
from  an  acid-»base  titration. 


OBJECTIVES: 

To   provide  the  teacher  and  the  student  with  a  molarity  calculator 
to  be  used  where  either  finds  it  applicable. 

PRELIMINARY  PREPARATION: 

A.      Student  -  This  program  can  be  used  with  students  who  have  had 
no  preliminary  preparation  or  those  with  extensive  preparation. 

B«      Materials  -  none 


DISCUSSION: 

It  should  be  noted  that  normality  is  no  longer  in  the  New  York 
State  syllabus.    It  thus  becomes  necessary  to  teach  titration  calculations 
in  the  molarity  systems  by  way  of  moles  of  H    reacted  vs.  moles  of  OH 
reacted,  a  much  preferred  method.    This  program  does  just  that. 

This  program  may  be  used  in  lab,  as  check  on  homework  problems, 
and  for  tutorial  work. 

The  teacher  may  also  wish  to  show  the  logic  of  programs  in 
general  by  using  this  very  elementary  program.    The  teacher  need  only 
take  the  list  and  explain  it  line  by  line  to  enhance  the  students'  under- 
standing.   The  equation   used  to  solve  the  problems  is: 

Moles   H"*"    =    Moles  OH" 
<^a)<^a'<^'       =  (M)(V3)(n) 
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This  PuOGrtAM  IS  DKSIONED  TO  CALCULATE  THE  UNKNOWN  MOLALITY 
IN  AN  ACIU-UASE  TITRATION. 


WHAT  IS  THE  SUBSCHIPT  OF  THE  H+  IN  THE  ACIU  FOKMULA* 
AND  THE  SUBSCHIPT  OF  THE  OH-  IN  THE  BASE  FOrtMULA?  2,1 

HOW  MANV  ML  OF  ACIU^  AND  HOW  MANV  ML  OF  BASE 
WklivE  USED?   19*7^  10  .0 

IS  THE  KNOWN  MOLAKlTlT  FOU  THE  ACIU  On  TnE  BASE? 
ANSW£n  1   FOit  ACiU  OH  ^  FOH  BASE?  1 

WnAT  IS   itiK  rtOLAitlTY  OF  THE  ACID?  5-5 


AiNjSWKit:    i'n£  BASk:   IS     ^1*67  C^i* 


DO  YOU  WANT  TO  WOiiK  AiMOTrtiCii  r'HOBLEM?  ANSWEit  1  FOU  YES 
Oh  O  FOn  NO?  1 


WHAT  IS   TrtE  SUBSCHli^'T  OF  THE  H+  IN  THE  ACID  FOrtMULA* 
AND  THE  SUBSCrtlr'T  OF  TrtE  OH-   IN   THE  BASE  FOiiMULA?   J*  1 

HOW  MANY  ML  OF  ACID*   AND  nOW  MANx   ML  OF  BASE 
WEUE  USED?  L»*i^v.3 

IS  THE  KCs)Ov^/i\»  MOLUitliY   FOrt  fhE  ACID  Ort  TrtE  BASE? 
AiNjowErt  1   FOii  ACIU  0«i  •^  FOrt  BASE?  1 

WnAr  !:>   I'rtE  MOLAitiTY  OF  TrtE  ACID?  a-U 


ANSWEiC:    The  base   IS     U  M. 


DO  rOU  WANT  ro  WOxiK  ANOTHEit  f'rtOBLE^i?  HwS»»/EU  i  KOrt  rt:j 
OiC  U   FOrt  NO?  1 


WHAT  li  TrtE  oUBSCrtIf»T  OK    inE  rt+   Ii>l   TnE  ACID  FOrtMULA* 
ANu   inE  ijUiiSOitlt-r  OF    THE  Ort-   IN   Int.  £lA:iE  FOiiMULA?  i 

rtOW  WrtMt  rtL  OF  ACID*  aNU  nOW  MANY  ML  OF  BA:jE 
WEuE  U:3hO?  lS.0*a^l.7 

IS   i'HE  KNOWN  MOLrtrtIT/  FO*^  TrtE  ACID  On   fnE  BASE? 
ANbwErt   1   FOrt  ACIU  Ort  2  FOit  BASE?  ^ 

WHAT  IS   THE  MOLAitir^r  OF   i'rtE  BASE?  l.b 


ANSWErtS    THE  ACID   IS     1*^3  M* 


DO  YOU  WANT  TO  WOrtK  ANOTHErt  *^rtOBLEM?  ANSWErt  i  FOii  ^ES 
Urt  U  FOrt  NO?  U 
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100  rtEM  nAuuY  UOiiFMAN  7/i6/6b  JOHN  GLENN  H.S«   C  rtEV-    7/10/6-:^  ) 
105  HEM     itEVISED  BY  C.LOSIK  7-23-70 

liU  i^iilNT  "THIS  i^HOGHAM  IS  DESIGNED  TO  CALCULATE  TrtE  UNKNOWN  MOLArtl  f 
120  i^rtlNT  "IN  AN  ACID-UASE  TITHATION*" 
130  PiilNT 
UO  ^'UlNT 

150  PKINT  "   WHAT  IS  THE  SUBSCHIPT  OF  THE  h+  IN  THE  ACID  FOrtMULA*" 
160  i^HINT  "  AND  THE  SUBSCHIPT  OF  THE  OH-   IN  THE  BASE  FOilMULA"i 
165  HEM     D*C»  #  OF  H+*      #  OF  OH- 
170   INi^UT  D^C 
IbO  ^iilNT 

190  ^HINT  "  HOW  MANV  ML  OF  ACID^  AND  HOW  MANY  ML  OF  BASE" 

2U0  PUINT  "   WEHE  USED"; 

205  HEM     E^F>  ML  ACID^  ML  BASE 

210   INr'UT  E^F 

220  PHINT 

aaO  PHINT  "   IS  THE  KNOWN  MOLAHITY  FOH  THE  ACID  OH  THE  BASE?" 
24U  J^HINT  "  ANSWEH   I  FOH  ACID  OR  2  FOH  BASE"; 
250   INPUT  L 
^60  PHI NT 

270   IF  id  »  2  THEN  360 
2b0   IF  C<>\   THEN  240 

290  PHINT  "   WHAT  IS  THE  MOLAHITY  OF  THE  ACID"; 
300   INPUT  A 

310  LETBa  (E«A«D)/CC«F) 
320  PHINT 
330  PHINT 

340  PHINT  "  ANSWEHl   THE  BASE  IS  "I NTC  100*B+ •  5) /  100"M 
350  GO  TO  420 

360  PHINT  "   WHAT  IS  THE  MOLAHITY  OF  THE  BASE"; 
370   INPUT  B 

3bO  LET  A«(C*F*B)/(D«E) 
390  PHINT 
400  PRINT 

410  PAIN*"  ANSWERl   THE  ACID  IS  "I  NTC  100«A+ .  5  ) /100"M 
420  PRINT 
430  PRINT 

44Q  PRINT  "  DO  YOU  WAWT  TO  WORK  ANOTHER  PROBLEM?     ANSWEH  1   FOR  YES" 

450  PRINT  "  OH  0  FOR  NO"; 

460   INPUT  X 

462  PRINT 

464  PRINT  " 

470   IF  X«l   THEN  130 

460   IF  XoO   THEN  430 

490  END 
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D  ISC  IP  LINE  CHEMISTRY  

SUBJECT    pH,  pOH,  PCX.  DISSOCIATION 


PROGRAM  NAME  pHPOH 


DESCRIPTION: 

A  class  presentation  designed  to  calculate  pH,  pOH,  and  percent 
dissociation  of  veak  monoprotic  acids,  using  the  quadratic  equations  for 
ricjorous  solutions. 


OBJECTIVES: 

A.  To  illustrate  the  relationships  between  the  magnitude  of  the  value, 
and  the  strength  of  the  acid. 

B,  To  show  the  relationship  between  pOH  and  pH. 
PRELIMINARY  PREPARATION; 

Student         -  The  distinction  betveen  weak  and  strong  acids  should  have  been 
covered.    The  student  should  also  be  aware  of  the  role  hydrogen  ion 
concentration  plays  in  acid -base  calculations,  and  the  effect  it  has  on 
hydroxide  ion  concentration. 


DISCUSSION: 

This  program  can  be  used  in  different  ways,  depending  upon  the  ability 
level  of  the  group. 

L.      With  groups  of  average  abilities,  it  is  used  primarily  as  a 

calculator,  to  solve  large  numbers  of  problems  in  a  minimum 
amount  of  time. 

2.    In  above  average  groups,  the  program  listing  was  used  as  a 
device  to  illustrate  theory.    The  entire  lesson  consists  of  an 
extensive  step-wise  explanation  of  the  program  list.    In  these 
classes  all  students  were  familiar  with  the  Basic  programming 
language.    Some  calculations  built  into  the  program  (lines  41-43) 
are  not  part  of  the  normal  curriculum,  but  are  necessary  to  solve 
the  problem  as  the  product  of  the         value  and  the  concentration 
approaches   1  >■  10"^^. 
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inlj  x^nOGnMi-'j   vjLLL  K1.\u    iniL  r^n*   rut**   i-aW  rCi'  i-)i:>jOL;iHi  iO»\j 

Or    AClu  =? 
I'.  JL.U'.  CUiSlCiLiM  iiU-i  I  1  JiN,   Or    /\Oiu   =?  1 

t'n=   ii  .  b  x^On=    11  O  r'Oi  *    Ul ->jUC  in  i  1  U.\=    •Jl5  7cio<:l 

juVi    i-'.UuJL  r'iiOULL*'.:^    C1  =  Xilj*   o^iVJO)?  1 

/V\  Or   aOlu  =?  liL-J 
4'iOLrtiw  OUi>JL;i:.i.'g  iikH  i' 1  u»NJ  Or   aOlu  =  ?  2 

x^n=    I.J5  i-'Ons   1^.66         r'CF.   Ul  :>SOC  i  A  i'i  Ol\i=  ii.WlliiO& 

,it\iX    I'iOiiiL  r'ii0uLiLi''»:3    Cl  =  r£jj   0=iMd)?  1 

aA  of  AClu  =?  li:.-10 
i^'.OLAiv  UOiNJCbiNJi'rtAl  10i\:   Or    AC  It)  =?  1 

*  « 

*^'^=   ^  *-Ons:   V  r^Or.   Ul:>:>00lAriOi\=  y  .yvovSOi:.-^ 

At>Ji   MOith  r'jiOBLbi'j**   (Is'tEii*   O^iNjO)?  1 

aA  of  acid  =?  lh:-lb 
MOLAxi  COiNiCiLiNj  fiiAf  lOiNJ   OF  AC  iU  =? 

r'hs   e.S-^S  r'Oric    7.U^  *>C'r.   Dl  b:iOC  I A  FI  Ot\i=  V.liib7uvh-7 

ANt   MOxiE  /^ftOBLhi^i   Cl  =  t'fc:b*   Os=i\iO)?  0 


jtEAby 


42 

e    Copyright  1971,  Polytechnic  Institute  of  Brooklyn 


Chemistry 
PHPOH 


loo  ivEiV,  i^HiJOn*     JOnN  MAHChlSOTTO  7/lU/6y     CriEMlSftii  BASIC 

lUl  ^KM     liEVlSED  BY   C.LOSIK     7-22- 7U 

lU3  UEM  A  IS  TrtK  KA^   B  1 S  THE  MOLAH  CONG. 

110  xiEM     r'HOGHAM  DOES  ONE  CALCULATION  AT.  A  TIME..! 

Uu  r^rtliNJT  "TnlS  r'rtOGHAM  WILL  FIND  THE  r»H^  ^On^   AND  r'Cr  DISSOCIATION" 

15U  i>iilNT  "FOH  ANY    WEAK  MONOPHOflC  ACID." 

170  r'HINT 

IbO  r»HlNT  VKA  OF  ACID 

lyj  IMPUT  A 

auu  IF  A<=0.5    THKN  210 

202  PHINT  "ANSWEU  INVALID  FOH  WEAK  ACID.      THY  AGAIN." 
204  GO  TO  190 

210  *^HINT  "  MOLAH  CONCENTHATI  ON  OF  ACID 

220  iiwur  b 

230  r^iilNT 

24U  LET  6  =  A*B 

250  IF  S>=IE-12   THEN  2tiU 

260  LET  H  =  SaHCb+lE-14) 

270  GO    rO  2':>U 

2tt0  LET  H  a-A/2+<SUH(At2+(4*A*B>) )/2 

iiiyu  LET   r  =  lE-M/n 

JUU  LET  H  =  H-  r 

31U  LET  C  =   -LOG  (n)/2.303 

32U  LET  U  =    14  -  C 

330  IF  a<lE-5   THEN  360 

340  LET  E  «  ti/B*iOO 

350  GO  TO  37U 

360  LET  E  =  lUO 

37U  PHINT  "PH="INT(  lOO*C+.5>/lOO*"r'On=s"lNTC100*D+.5)/100# 

3b0  PHINT  'VCT.  DISSOCIATION="E 

390  r^itlNT 

4lO  PHINT       ANY  MOHE  l^HOBLEMb   (l=YES*  U=NO)"; 

430  INPUT  N 

440  IF  Nal   THEN  170 

445  IF  N<>0    THEN  410 

450  END 
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DI  SCI  P  LINE  CHEMISTRY 

SUBJECT      PERCENT  COMPOSITION 


PROGRAM  NAME  PRC  NT 


DESCRIPTION: 

This  program  is  designed  to  calculate  the  percent  composition 
(by  weight)  of  a  compound  that  may  contain  up  to  5  elements.  The 
program  also  contains  a  detailed  sample  calculation  which   is  optional. 

OBJECTIVES; 

A.  For  the  students  who  are  familiar  with  percentage,  this  program 
may  be  used  as  a  self -teaching  device  to  show  how  this  concept 
applies  to  a  chemical  situation. 

B.  The  program  may  be  used  as  a  calculator  to: 

1)  Illustrate  the  Law  of  Multiple  Proportions 

2)  Illustrate  the  Law  of  Definite  Proportions 

3)  Work  out  percent  water  of  hydration,  percent  sulfate, 
nitrate,  etc.    (see  discussion) 

4)  Check  homework  problems,  class  problems,  lab  problems,  etc. 

C.  The  program  may  be  used  as  a  tutorial  device  for  students  having 
difficulty. 

PRELIMINARY  PREPARATION: 

A-  Student  -  The  student  should  at  least  have  an  understanding  of  the 
concept  of  percentage.  The  teacher  may  also  wish  to  discuss  how 
this  concept  applies  to  chemical  compounds. 

B.      Materials  -  none 


DISCUSSION: 

This  program  makes  it  possible  for  the  teacher  to  spend  very 
little  time  in  class  on  percent  composition  and  still  have  the  student 
receive  ample  instruction  and  drill  on  the  topic.    This  is  possible  since 
the  program  may  be  used  in  a  number  of  situations  such  as  teaching,  self- 
teaching,  and  tutorial. 

It  should  be  brought  to  the  students'  attention  that  %  water  of 
hydration,  %  sulfate,  %  nitrate,  etc.  ,  may  be  calculated  by  treating  the 
groups  of  atoms  as  a  single  element  when  entering  data. 
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COi-^Oil  iiUiN)  WLIGnl'  OF  A  COi^r-OUNO  TnHi"   MAt  COM'AIN 

UO    i  O'J   >A:\ii   TO   :ji:.b  A  5Ai-:r*Lr.  CALCULAT I  OJv? 
HiN»:3wh;i    I    FOiv   I'Eb   Ou  u    C^.tivO)    rOn  WO?  1 


int  ^-iLnCEWi'  COMi^ObiriON   OF   iiULFJiviO  HoiD 


Lrir   wl    =  AiOi^lC    v.tIOni    OK  nxunOGEN 

LLl  Hi  =  THE  i\0.  OF  niUiiOGe^  Ai'DK:?  li\  inh  FOiU^^ULH 
Lfc.  I    wii  =    fniL  AVOC'ilC    WhIGnr  UK  :3uLFJrt 

LEl    Hii  =    intL  iMO.    Or    :^OLrOK  Hi'Oi'o  Trtt:  KUxu*iULa 

L£.i  =    inc:  ATOC^ilC    WElGni  UK 

LET  A  J  =   THE  NO.   OF   OaxGEw  aT0i*.6  i      I'nE  FOrt^:ULA 

1=  rOiu\JLH    IvElGni    Or'   bOLFJ*UC  AC  lb 

:=  (wl^Ai)    +    (Wii^A^)    +  (WJ*AJ) 

x=  (l.OUt*^)    +   (J;^.u64^1)    +  C16.vvv*4) 

Y=  9b.u76 


i^Eiie;Ei>JT 

n 

(  Wl  *H  1  /  i  )  =1^  I^jO 

f^EiiCEWr 

n 

C  1  .00tt*^i/^b  .0  76  )  *  100 

r^E^-.C  E^jT 

n 

ii  .Ouei 

fhnOEiNj  r 

(  Wii+Hii/t  )^1'JU 

r^ErLCEiMT 

S 

C  32.0  6^* 1 /yb .0  76) * lOU 

t^ErtCEN  f 

r'EnCENT 

0 

( W3*A3/Y)*l0U 

HErtCEisjf 

0 

(15.yy^*^/yb.0  76)=^lUO 

r^EHCENT 

0 

eS.iiSl^ 

uO   'fOu    WAivT   TO   DO  A  r'rtOiiLE^:  ? 
AiNiiWEU   1    FOu  YES  OK  O    (ilEuO)    FUu  iMO?  1 

WHAT   15   THE  NUMBEK  OF  ELEMENTS   IN   ThE  FOrtMULA?  3 

TYPE    CTHE  ATOMIC    WElGnT^WO.    OF  ATOMS)    FOri  EACH  ELErfENT^ 

ONE  ELEMENT  TO  A  LINE. 

?    12.0  1  U  lii 

?  1.00O>22 

?  15.^9y>U 

+  ********** 


FOHMULA   WEIGHT  =  3^2.t2y7 

ATOMIC    WEIGHT  iS-O.    OF  ATOMS 

12.011  12 

1  .006  j^ci 


PERCENT  COMPOSITION 
i\\L.  1072^ 
6«^7»iSo^ 
51.^1^12 

*********** 


DO  YOU   WANT   TO  DO  ANOTHER  PitOBuEM? 
ANSWEU   1    FOH  YES  OH  0    (^IEhO)    FOH  NO?  0 


HEADY 
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100  HEM  rt.   bnANNON^  HAHBOHFIELDb  7/23/6ti      (riEV  7/lb/69) 

105  KEM    'itEVISED  BY  C.LOSIK  7-23-70 

lu6  KEM     THE  SAMPLE  CALCULATION  EAh>LAINS  HOW  THIS  t*tiOGtiA(!'i  W0HK6 
110  rtEM  CALCULATES  PExlGENTAGE  COMr'OSlTlON  BY   WEIGHT  OF  A  COMPOUND 
120  PHI  NT  "  THIS  *^H0GHAM   IS  DESIGNED  TO  CALCULATE  THE  i^EKGENi'" 

130  r'KiNT  "COMPOSITION  BY   WEIGHT  OF  A  COMPOUND  THAT  MAY  CONTAIN" 
14U  PHI  NT  "FHOM  2  TO  5  ELEMENT;?." 
150  PHI NT 

160  PHINT  "  DO  YOU   WANT  TO  SEE  A  :5AMPLE  CALCULATION?" 

170  PHINT  "ANSWEH   1   FOH  YES  OH  0    (ZEHO)   FOrt  NO"J 

160    INPUT  A 

WO    IF  X  =  0   THEN  460 

193   IF  A<>1   THEN  170 

199  PHINT 

aOO  PHINT     "EXAMPLE   J        THE  PEHCENT  COMPOSITION  OF  SULFUnIC  ACID  " 
210  PHINT 

22u  PHINT   "LET  Wl   »  ATOMIC   WEIGHT  OF  HYDHOGEN" 

230  PRINT  "  LET  Al   =   THE  NO.   OF  HYDHOGEN  ATOMS   IN  THE  FOHMULA" 

240  PHINT  "LET  W2  =   THE  ATOMIC   WEIGHT  OF  SULFUrt" 

250  PHINT   "  LET  A2  =   THE  NO.   OF  SULFUH  ATOMS   IN  THE  FOHMULA" 

260  PHINT   "LET   W3  «   THE  ATOMIC   WEIGHT  OF  OXYGEN" 

270  PHINT  "  LET  A3  »  THE  WO.    OF  OXYGEN  ATOMS   IN  THE  FOHMULA  " 

2ti0  PrtINT 

290  PHINT  "  Y=  FOHMULA  WEIGHT  OF  SULFUHIC  ACID" 

300  PHINT  "   Y=    (Wl*An    -i-   (W2*A2)    +  (W3*A3)" 

310  PHINT  "  (1.00ti*2)    +   (32.064*1)   +  (15.999*4)" 

320  PHINT  "  Y=  9ti.0  76" 

330  PrtINT 

340  PHINT  "PEHCENT  H  =   ( Wl *A1 /Y) *  100" 

350  PHINT  "PEHCENT  H  =   (  1 .00b*2/9b .0 76 ) *  100 " 

360  PHINT  "PEHCENT  H  =  2.005" 

370  PHINT 

3ttO  PRINT  "PEHCENT   S  »   ( W2*A2/Y)*100" 

390  PHINT  "PEHCENT  S  »  ( 32 .064* 1 /9b .0 76) *  100" 

400  PHINT  "PEHCENT  S  »  32.693" 

410  PRINT 

420  PHINT   "PERCENT  0  «   ( W3*A3/Y ) * lOO" 

430  PRINT  "PEHCENT  O  -  ( 15.999*4/9b.0 76)*100" 

440  PRINT  "PERCENT  0  ■  65.2514" 

450  PRINT 

460  PRINT  "  DO  YOU  WANT  TO  DO  A  PROBLEM  7" 

470  PRINT  "ANSWER  1   FOR  YES  OR  0   (ZERO)   FOR  NO"; 

4eO    INPUT  X 

490 , IF  X  -  0  THEN  770 

493  IF  Xol   THEN  470 

500     DIM  V(5)#  A(5) 

505  PRINT 

510  PRINT  "  WHAT  IS  THE  NUMBER  OF  ELEMENTS  IN  THE  FORMULA-J 
520  REM  J  -  NO.  OF  ELEMENTS  IN  THE  FOHMULA 

530  itiPirr  J 

533  REM  THIS  LOOP  CHECKS  FOR  VALID  ANSWEH 
535  FOR  1-2  TO  5 
540   IF  1-J  THEN  560 
545  NEXT  I 

550  PRINT  "THIS  PROGRAM  CONSIDERS  COMPOUNDS  WITH  2  TO  5  ELEMENTS." 
552   GO  TO  510 

560   LET  Y  -  0  - 

570  PRINT  "  TYPE   (THE  ATOMIC  WEIQHT^NO.   OF  ATOMS)   FOR  EACH  ELEMENT^" 
580  PHINT  "  ONE  ELEMENT  TO  A  LINE." 
590  FOR  I   -  0   TO  J- 1 
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600 


ligr-Oi'    vK  i  ;  iiv(.  1  ) 


64d  r'ltligr 

67u  i^ivlivf   "AiOi'ilC    wnlGni*     NO.    OF  Ai*Oi»o       x-EiiCEiMf  COt'.r'Oji 

6g  J  u   =   >jO»    of   c:Lr,i*j£w  i';?    1  iv*    rn£  FO.ii'iJLA 

^r^O  FO;t   1    =   U    i*0   u-  I 

7'jo  e'liicii   wCl )  >H(  1)  J  ■*(  i  ) -t^aC  X  )/r  *  100 

71 U  i\irj/-i'  1 

750  r';.!.';!*"    UU    xOj  lO   OO  HiMOirttxv  x-iiOULlin? " 

7^ J  GO    fO  ^170 

770  vi^l^iiu 
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DISCIPLINE  CHEMISTRY 


SUBJECT  STOICHIOMETRY 
PROGRAM  NAME  STOICH 


DESCRIPTION: 

This  program  solves  rri'ass-mass,  mass-volume,  and  volume -volume 
problems.    The  input  may  be  in  grams  and/ or  moles  and  the  output  will  be 
in  grams,  moles  and/ or  liters 

OBJECTIVES; 

To  provide  the  teacher  and  the  student  with  a  stoichiometry  calculator 
to  be  used  where  either  finds  it  applicable. 

PRELIMINARY  PREPARATION: 

A.  Student  -  The  student  must  have  an  introduction  to  stoichiometry. 

B.  Materials  -  none 

DISCUSSION: 

Some  of  the  situations  where  this  program  is  useful: 

A.  In  Class 

1.     Enables  teacher  to  cover  a  large  number  of  problems  without  using 

time  to  do  calculations. 
'  2.    Can  be  used  in  conjunction  with  a  problem  exercise  in  class  so  teacher 
can  go  around  and  give  individual  help. 

B,  Outside  of  Class 
1.     Tutorial  Work 

'  2.    Students  can  check  homework  problems  during  study  periods  or  after 
school. 
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00  YOu   Wlon   ru  lilt:  INiiTriaCTlOtNiD?    1  rOu  x  iib  jU  KUu  iVjU?  u 

iniJ  r'iiOGxtAi'i  ii  DiL:ilGiMEU  TO  'SOL\JKX 

JJMrJ  GEi>ii:./iHL   1  iNi:^  i'itUC  i  i  UivlD  FOil  JiliSfG   i'ntL  r'HOt^tuWi  WILL 
ij£  n^Ll-'rUL  A  i'  ini^ 

i.    IF    rWU  r'IclCiLb  UK  DATA  A.-it  ilhuUii J'l ilDj    lJil  ^JrvE  fO 
GIV/Il    i'n£i'i  I'rtt:  OxiOEil  rlEuUii^i  i'EU  AwD  ii:^rt4\Hrn: 

inE/:    Wl  in   H  CO/u^IA* 
2  •    I'nt  uhLj E>4i  Ja  i'l  (J^M   1  o    inE  Kii^i  i    i  nliviG 

ivLEUEU    wi  in   hHCn    i'Xr'E   OF  r'xiOuLEi'i  nHv/E   11"  i^UEiJAivED. 

j«    i'nE   FOiU^.JLil    wElGhi'D  H*iE  iVjEEuEU  i\Ey^i  nav/E  inEi'i 

r'iiEr^AilED* 


r'iCA   ini:,    IxVE   Ur    umLC  JLA  i*  1  UN    rOJ  UEolAtE  Hi\^  jiWEiil  i\iG  inE 

rULLOviiiViG   uJEiiVlUiVi   v;!  i'n  H   Ijkij    0:v  J  J 

1    FOit  t^iHCji-i^iAD^  CHLCUL*i'riOi\ij 

•d  rUiV  .•iADD-V/ULUi\E   CALC  JLi-ii"  1  Uivi> 

3  FO:w  \/ULJi^E-VOLJME  CALCULA i  1  Oi\;j 

ViiAi    lo    rnE  NU>:i3Eii  Or    xOUix  CmUICE?  1 

i^KOv/lDE  TriE  FOLLOWING  DATA  FOH  THIS  WAS:i-MA:i6  t^rtOBLEW: 

HOW  hAivJ^  ■■t^OLES'  OF"*KiVOt/N  'COMPOUND"  A^ 
AiiE  SHOWiN)   IN  THE  BALANCED  CnEMlCAL  Ev^lUATION?  XjX 
16   fnE  FOiu^jJLi-i  WElGnT  OF  THE  KNOUN  COf^iX^OUND 
AiMD  THE  UiNjKivOWiV  COi'ii-'OUiViD  ?  lUUjb6 

WHAT  MASS^    IN  GxtAi^i)^   OF  TnE  KNOWN  CO^lPOJNU   1'6  INV/OLv/EU 

IN   fnE  CrtEi'ilCAL  rtEACflON?     iK    i*nl:3  INFOiUnailON  16  A^^aiLAbLE 

IN  MOLEi>  ANbWEii  ^EiiO   C0>  AND   WAIT  FOn  TnE  NEaT  uUEbTlON?  SO.O 

ANSWEfti;   5     MOLE;>  OF  UNKN-  Ch'U. 

  iio      GxiAMS  OF  UNKN.  CPD. 

*************** 

DO   /OU   WloH  TO  SOLl^E  ANOTHEii  r^HOBLEK?     ANiiWEu   1    FOii  ^i-KJ 
2  FOt\  M-v/j    J  FOil  V-Vj   AND  ^EnO   CO)    i'O  END    TnE  r'iiOGxiHW.?  fc! 

*************** 

r^i\0\;iDE  TnE  FOLLOWING  DATA  FOit   rHI:^  WASS- VOLUi^iiL  i^itOBLELVi : 

HOW  MAN^   MOLE;^  OF  Ki\iOWw  COiIjHOOND  AND  UNrU\}OWN  COl'^i^^OOND 
AitE  ianOViN   IN  THE  BALANCED  EQUATION? 
l^&iAf   IS  TnE  FOruMULA  WEIGHT  OF  THE  KNOWN  COt^ir^OUND  AND  THE 
UNKNOWN  COi^iPOUND?  ibs'd 

WHAf  WASSj    in  GuAMSj   OF  THE  ^O^t^  COWh>OUND   IS  INv/OLVEU 
IN  THE  CnEMICAL  rtEACTlON?    IF  ONL'r   V/OLO^E  IS  KNOWN 
ANSWErt  ZEt\0   CO)  AND   WAIT  FOrt  TnE  NEaT  QUESTION?  20.0 

ANSWErtSl    l.nUll  MOLES  OF   UNKN.  GAS 

  a^.ttbtttiy     LlTErtS  OF  UNKN.  GAS 

*************** 

DO  YOU   WISH  TO  SOLVE  ANOTnEii  r^xiOBLEM?     ANSWEii   1   FOrt  M-Mj 
^d  FOn  M-V^    3  FOrt  V-Vj   and  z:EitO    CO)    TO  END  TnE  r^iiOGxtAM.?  J 

*************** 
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r'xiOVlDfc:  Tn£  FOLLOWING  DATA  FOn  XnlS  v/OLJWE- VOL J>ik:  ftiObLEl'n 

HOW  MANt  MOLEb  KiMOWN  GAS  AiNiU  UNKNOWN  GA;^  Hitt)  :>tiOWN 
IN   fhE  bALANCKD  kiuJAflON?  l.J^J 

WHAT   IS  THE  VOLUME  IN  LITEii^  OF   TrtE  KNOWw  GAo  INVOLVED 
IN  ThE  CHEMICAL  rtEACTION?    (VOLUME  MUSi'  dE  HT   SlV.)?  1^6 
ANiWKni    JJ6.ykiJl   LI  i'Eitb  OF  UNKN .  GAi 

DO   iOO   WlJh    fO   SOLVE  ANOTHEn  i^rlOBLEi'i?     AN:>WEn   1   FO*i  I'l-rt^ 
i>  KUii  rt-V^   J  FUn  V-V^   AND  ^EuO   (u)    Tu  Ewu    fnE  h'nOGrtAW.?  1 

i^rtOVlDE  TrtE  FOLLOUING  DATA  FOii  TnIS  MASb-MASS  ^'rtOBLE^5^ 

HUw  «AN;f  /lOLES   OF  KNOWN  COMi^QUND  AND  UNiuNOWN  COMr'OUND 
AriE  SHOWN   IN  TttE  BALANCED  CHEMICAL  EuUAl'ION?  1^1 
WHAT   IS   THE  FOilMULA   WEIGHT  OF  TnE  KNOWN  COMr'OUND 
AND    fHE  UiNiKNOWN  CO^u^OUND   ?  56^7^ 

WHAT  MASS^    IN   GitAMS^    OF  THE  KNOWN  COMi^OUND  IS  INVOLVED 

IN  TrtE  CrtEMICAL  rtKACTlON?      IF  THIS   INFOitMATION  IS  AVAILABLE 

IN  MOLES  ANSWErt  ZiEuO   (U)   AND  WAIT  FOrt  TnE  NEaT  WUESTION?  0 

HOW  MANY  MOLES  OF  KNOWN  COiVii^OUND  WErtE   INVOLVED  IN 

TrtE  CHEMICAL  itEACTION?  2.9 

ANSWEitSx   2.9     MOLES  OF  UNKN.  Ch'D. 

 GnmS  OF  UNKN.  Ci^D. 

DO  YOU   WISH  TO  SOLVE  ANOTHErt  l^HOBLEM?     ANSWEH   1   FOH  M-M* 
2  FOH  M-V^    3  FOH  V-V^   AND  iiEHO   (U)    TO  END   THE  ^»H0GitAM.7  2 

t^rtOVIDE  THE  FOLLOWING  DATA  FOR  THIS  MASS-VOLUME  h»HOBLEM: 

HOW  MANY  MOLES  OF  KNOWN  COMPOUND  AND  UNKNOWN  COMi^OUND 
AH£  SHOWN  IN  THE  BALANCED  EUUATI0N7  U2 
WHAT  IS  THE  FOHMULA  WEIGHT  OF  THE  KNOWN  COMi^OUND  AND  THE 
UNKNOWN  C0MP0UND7  2^23 

WHAT  MASS^    IN  GHAMS^   OF  THE  KNOWN  COMi^OUND   IS  INVOLVED 
IN  THE  CHEMICAL  HEACTI0N7   IF  ONLY  VOLUME  IS  KNOWN 
ANSWER  iERO   (0)  AND  WAIT  FOH  THE  NEAT  UUESTI0N7  0 
WHAT   IS  THE  VOLUME^    IN  LITEHS^    OF  THE  KNOWN  GAS 
INVOLVED  IN   THE  CHEMICAL  REACT!  0N7    (VOLUME  MUST  BE  AT  STi^)7  212 

ANSWEHSX   lb. 92^57     MOLES  OF  UNKN.   CPD . 

 ^35.3571      GnAMS  OF  UNKN.  CPD. 

DO  YOU   WISH  TO  SOLVE  ANOTHER  PH0BLEM7     ANSWER   1   FOH  M-M^ 
2  FOH  M-V^    3  FOR  V-V^   AND  ZERO   (U)   TO  END  THE  PROGRAM. 7  0 
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lUU  rtEivi  fiAauy  DOitFi'iAN^    JOmM  liLENiM  n . .  7/ii3/6o      <   rtfc:V.7/y/6y  ) 
IU5  ^tKW     n'£\Jli>KD  3t  CLOSIK  7-22-70 

IU6   *iEH     DIFFEHhiNJT  VArtlABLES  AitE  U:dED   IN  EAUri  i^uODLEr^: 

IU7  itEiO      i'nEIrt  MEANIMG  MAY  dE  DE f EiiMI JsiED  BV  LOOKING  AT  EACn  :>ECriOiV 
lUO  4iEi-i     OK    rriE  r'UUGiiAM   C  v/ani .    CUiUiEbi^OivD   WI  in   IWr'UTb  AND  jPnlWrS) 
IIU   iiEt*'.   Trili  r'nOGiiAi-i   IS  DE^jIGNED  TO  :>OLVE  MASS-habS^  hAb:>- VULUi^iE^ 
i'dO   rtEM  AND   VOLUME- VOLUME  r'iiOBLEMS. 
I  id  a  nEM 

las  ilEi^     EAofi  I;\.*^Jl'  fiAii  A  DIKFEuENT  LEi'i'Ei*  COnxiE^ph'UNDiiNjG  TO 
126  .tEM      i'fiE   It\jFUiu\ATIUN   IiM    TfiE  r'lUwTEjj  uUEbTlON. 

l^U  rniiVi        uu   rOU   WI:iri  TO  SKI,^   TnE  I  i\i:> i'nUUTi Oi\;:>?    I   FOit  rE:.   ,U  FUu  i\iU- 

1 50    1  iNir^  U 1  ^ 

16U   IF  ^=1    TfiEiVi  aiiu 

I6ci   IF  ^<>u   TfiEi\  lau 

17U  i^nXNT  ••THIii  PnOGiifii>'i  la  DEaiUiVEb   TO  bOLVE:" 
loU   i^itliViT  I.   MA:>i-MASS  HrtOHLErib" 

lyu   PiiXiVjT  a.   MASS-VOLUME  h'iiObLEMS" 

aJU  i^nliNJV  J.    VULUuiE- VOLUME  rr*0i3LEM5" 

aiO  i^nliNJT 

ii2J  i^uiiNiT  ••i>OME   GEiNJEfiiiL  i MS litUCTi OiNiS  FOn  USING  TnE  h-iiOGxlAM  WILL" 
^JU  r'ftiNT  "BE  fiELr^FUL  AT  TnlS  TIME." 

2^0  PiilMT  1.    IF  TWO  h'lECES  OF  DATA  AhE  UEUUEsTED^   BE  SUUE  TO" 

kJSU  HKlvNJT  GIVE  TfiEM   IN   TfiE  OuDEH  HEUUES  TED  ACJD  SEi^AKATE" 

^60  PiilNT  TrtEM  Wll'ri  A  COMMA." 

ti7U  i^iilNT  2.    THE  BALANCED  EuUATION   IS   inE  FinSl'  TnlNG" 

ttn   ^oJ^y"..  ^Ni^El^ED   WITn  EACH  Tl't^E  OF  PiiOBLEM  SO  1.AVE   IT  PaEPAKEU 

r'HINi  3.    TrtE  FOiiMULH   WEIGHTS  AUE  NEEDED'  iMEAT  SO  HAVE  THEM- 

300  i^itljgr  r»HE*^Au£D." 
3lU  i^itiiMT 
3iilU  r»iiii\jr 

33J  PiilNT  'VICK   THE   TYPE  OF  CALUULATIOW   YOJ  DESIxiE  B^  A.NiSWErtliMG  InE" 

^U  ^'uliNil-F OLLOWlv\]G  uUESTXOiNJ   WITH  A    ij'^.    On  3:" 

35U  r'rtINT"  I   FOU  MASS-MASS  CALCULATIONS" 

360  PrtINT"  2  FOrt  MASS-VOLUME  CALCULA 1 1 OiMS" 

370  PHINT"  3  FOH  VOLUME-VOLUME  CALCULATION^" 

3bU  PHI  NT 

390  PHI  NT  "WHAT   IS  THE  NUMBEH  OF  YOUH  CHOICE"; 
-^U    INPUT  A 

^10    PkINT    "  ••♦♦♦♦♦♦♦)«e3«e3«e***3<e3<e»» 

^20  PHI  NT 

^30  IF  A=l  THEN  /|7U 
4^0  IF  A=2  THEN  o3U 
/|50    IF  A=3  THEN  I  150 

455  PrtINT  "USE         2^    OH  3.      THY  AGAIN." 
460   GO   TO  3V0 

470  PRINT"  PHOVIDE  THE  FOLLOWING  DATA  FOrt   I'HIS  MASS-MASS  PHOBLEM:" 
4b0  PHINT 

4^>U  PHINT"HOW  miMt  MOLES  OF  KNOWN  COMPOUND  AND  UNKNOWN  COMPOUND" 
500  PRINT  "AHE  5H0WN  IN    TnE  BALANCED  CHEMICAL  EQUATION"; 
510    INPUT  B^C 

520  PHXNT"WHAT   IS  THE  FOiiMULA  WEIGHT  OF  THE  KNOWN  COi>iPOUND" 
53U  PttINT  "  AND   THE  UNKNOWN  COMPOUND  "; 
540  '.INPUT  D^E 

550  PRINT"   WHAT  MASS^    IN   GRAMS^    OF  THE  KNOWN  COMPOUND   IS  INVOLVED" 

560PrtINT"   IN   THE  CHEMICAL  REACTION?      IF  THlS   INFORMATION   IS  AVAILABLE" 

570  PRINT  "    IN  MOLES  ANSWER  ^;ER0   C0>  AND   WAIT  FOR  THE  NEAT  UUESTION"; 

5b0    INPUT  F 

590    IF  F»0  THEN62U 

600   LET  G-F/D 

610   GO   TO  650 

620  PRINT"  HOW  MANY  MOLES  OF  KNOWN  COMPOUND   WERE   INVOLVED  IN" 
630  PRINT  "  THE  CHEMICAL  REACTION"; 
640   INPUT  G 
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65U 
CiCiO 
67u 
6o0 
6V0 
7UU 
710 
720 
730 
740 
745 
750 
760 
770 
7bO 
790 
boo 
bos 
blO 
b20 
b3U 
640 
650 
060 
670 
660 
OVO 
*AJ0 

yio 

*^liO 

930 

940 

950 

960 

970 

960 

990 

1030 

1040 

1050 

1060 

10  70 

1060 

1090 

UOO 

1140 

U50 

1160 

U70 

U60 

1190 

1200 

1210 

1220 

1230 

1240 

1260 

1300 


LET  H=(C/3)«G 

f'UlMr"  AN5V;£iiS:   "h 

LEI  Jan^E 

r'iiINT  *'   

r>ftINT"D0   1 00  w/Iih   TO  bOLVt;  Ai\)01*nEn  *^uOULECi? 
"       hOH  wV^   3  FOii  V-v;^  rtWD  ^EuO  (u) 
^ 


OLEd  of  OWKiM.  Ct-U." 


b  OF  UiNiflN.  C^^U.' 


IF  ^«1 
IF  y=»2 
IF  Y=3 

IF  iroo 

bro*^ 

GO  TO 
x'iiINT 
*^rtIi\jT 
*^ttlN  r 

IiM*^UT 
t^HINT 
*^itINT 
INPUT 
f>iiIMT" 


AiV:^WE;i  1 
10  END  TtiE 


FOrt  W-M^" 
r'liOGiiAM."; 


rtiEN  470 
TnEN  6  30 
TnEiVj   1  1  50 
TriEiM  610 

YOU  i<UbT  USE  0*\*'d*   On  3. 
720 

"  *^iiOVIOE  THE  FOLLOWING  DATA  FOn   fnlb  WAii:>-VOLUWE  f>riOriLEM:" 


Isii  HGAXN. 


MANY  MOLES  OF  KNOWN  COi^i^^OOND  AND  UNKNOWN  COMi^OUND" 
SHOWN   IN   THE  BALANCED  EQUATION"; 


"  AfiE 
K^L 

"WHAT   IS  THE  FOHMULA  WEIGHT  OF    InE  KNOWN  COMPOUND  AND  THE" 
UNKNOWN  COMPOUND"; 

WHAT  ^iASS^    IN  GHAMS^    OF  TnE  KNOWN 


IiNi  IHE  CHEMICAL  HEACTI0N7  IF  ONLY 
ANSWEri  iSEHO   (0)  AND  WAIT  FOH  I'HE 


PHINT 
PHI  NT 
INPUT  P 

IF  Ps»0   THEN  1040 
LET  ita<L/K)«(P/M) 
PnINT"ANSWEHS:    . . 
LET  S«H«22.4 
PHINT" 
GO  TO  690 
PHINT"   WHAT  IS 
PHINT"INV0LVED 
INPUT  U 

LET  T«(bi/22.4)«<L/K) 

PRINT"  ANSWERS t  

LET  U«T«N 


COMPOUND  IS  INVOLVED" 
VOLUME  IS  KNOWN" 
NEAT  QUESTION"; 


'•MOLES  0/  UiMKN.  GAS" 


LITEHS  OF  UNKN.  GAS 


THE  VOLUME*    IN  LITEHS*   OF  THE  KNOWN  GAS" 
IN  THE  CHEMICAL  HEACTI0N7    (VOLUME  MUST  BE  AT  STP)" 


PftINT" 
GO  TO  690 
PHI  NT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT" 


MOLES  OF  UNKN.  CPD. 


GRAMS  OF  UNKN.  CPD- 


"PROVIDE  THE  FOLLOWING  DATA  FOn  THIS  VOLUME-VOLUME  PHOBLH^i?' 


"HOW 
"  IN 
U*  V 
WHAT 


MANY  MOLES  KNOWN  GAS  AND  UNKNOWN  GAS  ARE  SHOWN" 
THE  BALANCED  EUUATION"; 


IS 


PRINT  " 
INPUT  W 
LET  A=(V/U)*W 
PhiNT"ANSWEH: 
GO  TO  690 
END 


THE  VOLUME  IN  LITERS  OF  THE  KNOWN  GAS 
IN  THE  CHEMICAL  REACTION?    (VOLUME  MUST  BE  AT 


INVOLVED' 
STP. 5"; 


•LITERS  OF  UNKN-  GAS' 
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Developed  by  the  Huntington  Computer  Project  during  the  period 
May,  1968  and  September,  1970.    This  effort  was  supported   by  the 
National  Science  Foundation  under  Grant  No.  J000079. 


Th5!  •i.ncloi-'ed  material  is  a  compilation  of  computer  programs 
developed  during  the  period  May,    1968  to  September,    1970.  These 
programs  were  developed  by  teachers  and  students  in  the  high  schools 
which  participated  with  us,  and  by  the  Project  staff. 

All  of  the  enclosed  programs  have  been  tested  on  a  Digital 
Equipment  Corporation  TSS-8  time-shared  computer  during  the  summer 
of  1970.      To  the  best  of  our  ability,  we  have  assured  ourselves 
that  the  programs  actually  run.     It  should  be  pointed  out,  however, 
that  we  were  not  able  to  make  an  exhaustive  exploration  of  the  pro- 
grams.    There  may  be  undiscovered  bugs   (if  there  aren't,   it  may  be 
the  first  time  in  the  history  of  computing) .       We  would  appreciate 
hearing  of  any  which  emerge  in  the  future. 

These  programs  run  in  the  version  of  BASIC  which  existed  on 
the  TSS-8  in  August,    1970,   and  should  run  on  most  other  versions  of 
BASIC.     The  major  potential  problem  on  other  machines  is  the  output 
format   (DEC  uses  14  columns  per  print  zone,  while  some  other  manu- 
facturers use  15;  we  used  the  TAB  function,   which  doesn't  exist  in 
all  BASIC  compiles) .     It  may  be  necessary  to  make  some  minor 
changes  in  programs  to  adjust  this  format.     Another  possible 
problem  is  in  the  use  of  the  RANDOMIZE  command  in  some  programs 
to  start  the  random-number  generator  at  a  random  point.     If  this 
command  is  not  available,   some  other  means  should  be  devised  for 
randomizing  the  start. 

It  is  our  sincere  hope  that  these  programs  and  their  sup- 
porting documentation  will  be  helpful  to  educators  who  are  explor- 
ing the  uses  of  computers  in  education. 

We  are  anxious  to  hear  of  any  bugs,  errors,  or  improvements 
in  these  programs,  and  are  especially  anxious  to  hear  of  any  novel 
ways  of  using  them. 

Ludwig  Braun 
Marian  Visich,  Jr. 
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LENSES 

Solves  lens  problems.     (Light  and  Waves) 
MASSD 

Calculates  mass  defect. 
NEWTN2 

A  problematic  situation  requiring  repeated  application 
of  Newton's  second  law.  (Mechanics) 

PHOTEL 

Critical  wavelength  for  photoelectric  emission  is  to  be 
determined  in  a  simulated  experiment.     (Atomic  and 
Nuclear) 


PHYSICS  (con»t) 

PHOTON  57 
How  energy  levels  are  determined  from  the  emissions  of 
excited  atoms.     (Atomic  and  Nuclear) 

PLANK  61 
A  photoelectric  simulation.     Students  adjust  the  retarding 
potential  to  determine  the  wavelength  of  randomly 
selected  electron  emitting  X-rays.     (Atomic  and  Nucle^xO 

PRJTL  68 
Coordinates  and  speeds  are  printed  for  a  projectile 
fired  at  selected  speeds  and  angles  (frictionless). 
(Mechanics) 

REFLCT  72 
Least  time  principle  of  light  is  presented  as  a  challenge 
involving  a  game  analogy.     (Light  and  Waves) 

SLITS  76 
A  plot  routine  permitting  further  exploration  of  Young's 
Double-Slit  experiment.     (Light  and  Waves) 

SNELL  92 
A  plot  routine  to  aid  in  visualizing  Snell's  law. 
(Light  and  Waves) 

SPACE  100 
Demonstrates  the  effects  of  changing  velocity  on  orbital 
motion .     (Mechani  cs ) 

VFIELD  105 
Plots  a  picture  of  the  relative  potential  strength  in  the 
region  surrounding  two  charges.     (Electricity  and  Magnetism) 

VLOCTY  110 
Demonstrates  that  average  velocity  (^D/AT)  approaches 
a  limiting  value  as  ^T-^0.    A  graph  of  D  vs.  T  is 
plotted  for  an  acceleration  of  1  meter/sec  .  (Mechanics) 

WAVES  115 
Plots  a  graph  of  a  fixed  and  a  variable  wave,  and  the 
superposition  of  the  waves.     (Light  and  Waves) 


o 

ERIC 


Volume  V 

SOCIAL  STUDIES 
BALANC 

Simulates  the  effects  of  the  relationship  between  costs 
of  production  and  revenues. 

BANK 

Solves  financial  problems  concerning  installment  buying , 
long  term  loans ,  and  savings  accounts. 

CIRFLW 

Simulates  the  effect  of  a  change  in  consumption  of  the 
"Circular  flow  model  of  goods,  services  and  money." 

CONSMP 

A  simulation  of  economic  depression  and  equilibrium  as 
effects  of  consumption. 

STOCK 

Simulates  the  stock  market. 


Volume  VI 

TEACHER  ASSISTANCE 
AVERGl 

Averages  grades,  lists  value  of  curve,  and  adjusts 
grades. 

AVERG2 

Sorts  and  averages  grades. 
FREQ 

Prints:,  a  frequency  distribution  (bar  graph)  of  grades. 
GRADE 

Prints  a  table  of  grades  (in  percentages),  number  of 
questions  missed,  and  number  of  questions  answered 
correctly . 

ITEMl 

Counts  ard  prints  number  of  times  questions  are  missed. 

ITEM2 

Sums  item  analysis. 

STAT 

A  statistical  analysis  of  laboratory  data.  (For  teache 
use) 

STATAL 

Calculates  the  arithmetic  mean  (average)  of  a  set  of 
aumberfi. 


DISCIPLINE  MATHEMATICS  9th  YEAR 
SUBJECT     MULTIPLICATION  INVOLVING 

 ONE  AND  TWO  DIGIT  MULTIPLIERS 

PROGRAM  NAME  ARITH 


DESCRIPTION; 

This  program  calls  upon  students,  in  a  random  fashion,  to  perform 
multiplication  problems.    Each  student  calculates  five  separate  problems,  and  is 
allotted  three  chances  to  respond  with  the  correct  answer.    At  the  conclusion  of 
three  incorrect  responses,  the  computer  will  report  to  the  student  the  correct 
answer.    At  the  conclusion  of  five  problems,  the  student  will  be  given  a  score,  and 
a  new  student  will  be  called-    Each  factor  will  not  exceed  100. 


OBJECTIVES: 

To  review  and  reinforce  students*  ability  to  multiply  by  one  and  two 
digit  multipliers. 

PRELIMINARY  PREPARATION; 

None 


DISCUSSION; 

A       Operational  Suggestions    -    This  particular  program  is  designed  for  group  study, 
and  may  be  used  for  an  entire  period.    A  portable  TV  was  originally  used  to 
display  computer  output. 

B.       Follow-up  -   By  modifying  line  nun^bers  5Z0  and   560  to 

520    LET  X  =  A  +  B 
560  PRINT  A  B 

this  program  becomes  practice  in  addition.  Modifications  may  also  be  made  for 
division,  subtraction  and   individual  remedial  work. 


C.  MODIFICATION- If  yoiur  computer  has  string  capability,  student  names  may  be  used 
rather  than  student  numbers,  by  making  a  few  minor  programming  changes.  This 
change  (having  the  computer  type  out  the  student's  name)  increases  the  student 
interest. 


Math 
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HELLO  CLASS  TODAY  I    WANT  TO  HEVIEW  MULTIPLICATION 

WITH  YOU.        WHEN  I   CALL  ON  YOU  PLEASE  COME  UP  AND  TYPE  IN 
YOUa  ANSVEHS.      IF  YOU  AHE  VHONG  YOU  GET  TWO  MOKE  CHANCES* 
HOW  MANY  STUDENTS  ARE  THERE  IN  THE  CLASS  TODAY?  30 
TEACHEHl  •  •  .GIV/E  E^/EHYONE  A  NUMBER  FROM  1   TO  30 

0K#   STUDENT  NO.     27     IT'S  YOUH  TUHNI 


GIVE  ME  YOUR  LUCKY  NUMBER 
?  5 


bl     X     54     -   ?  437<l 
YOU'RE  RIGHT  STUDENT  NO.   2  7 


63     X     97     »  ?  6Ul 
YOU'RE  RIGHT  STUDENT  NO.   2  7 


62     X     17     »   ?  1054 
YOU'RE  RIGHT  STUDENT  NO.   2  7 


50     X     78     «  ?  3900 
YOU'RE  RIGHT  STUDENT  NO.   2  7 


93     X     81     -  ?  7533 
YOU'RE  RIGHT  STUDENT  NO.   2  7 
YOU  GOT     5     RIGHT  OUT  OF  5  PROBLEMS. 
GOODBYE.. .STUDENT  NO.  27 


OKj   STUDENT  NO.     25     IT'S  YOUR  TURN  I 


GIVE  ME  YOUR  LUCKY  NUMBER 
? 

tC 

READY 


'OS 
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lOO  HEM  V.   TEPPEH^   WYANDANCH  HS#  4/21/69 

105  HEM     REVISED  BY  C«LOSIK  b-5-70 

106  HEM     WE  DO  A  RANDOM  PROBLEM  FOR  EACH  STUDENT^     A  -OP-  B 

llO  HEM  THIS  PROGRAM  CALLS  STUDENTS  IN  A  RANDOM  FASHION  TO  DO  INDIVIDUAL 
120  REM  PROBLEMS.     BY  MODIFYING  A  FEW  STATEMENTS  I  CAN  CHANGE  THE 
130  REM  TYPE  OF  PROBLEMS* 
UO  HEM  REVISED  5/7/69 

150  PRINT  "HELLO  CLASS  TODAY   I   WANT  TO  REVIEW 

151  HEM     CHANGE  BELOV  FOR  YOUR  OPERATION 
15^  PRINT  MULTIPLICATION" 

160  PRINT 

170  PRINT  "WITH  YOU.        WHEN  I   CALL  ON  YOU  PLEASE  COME  UP  AND  TYPE  IN" 
180  PRINT 

190  PRINT  "YOUR  ANSWERS.      IF  YOU  ARE  WRONG  YOU   GET  TWO  MORE  CHANCES." 
200  PRINT 

2lO  PRINT  "HOW  MANY  STUDENTS  ARE  THERE  IN  THE  CLASS  TODAY"; 
220   INPUT  S 
230  PRINT 

240  PRINT  "TEACHER! .. .GIVE  EVERYONE  A  NUMBER  FROM   1  TO"S 
250  PRINT 
260  PRINT 
270  PRINT 

272  HEM     YOU  MUST  RANDOMISE  THE  PROCESS  FOR  BEST  RESULTS 

27S  RANDOMIZE 

260  LET  Q»'^xNTCRNDC-2)4<S> 

290  PRINT  "0K#   STUDENT  NO.  "Q"   IT»S  YOUR  TURN!" 
30O  LET  J«0 
310  LET  L  -0 
320  PRINT 
330  PRINT 

340  PRINT  "GIVE  ME  YOUR  LUCKY  NUMBER" 

350   INPUT  Z 

360  FOR  T-l   TO  Z 

37O  LET  A-INTCRND<-2)«100) 

360  LET  B-INTCRNDC-5)*100) 

390  NEXT  T 

400  LET  N-0 

aiO  LET  J»J-t>l 

<Al5  REM     X  IS  THE  ANSWER  TO  A  -OP-  B 
420  LET  X-A«B 
<l30  PRINT 
440  PRINT 
450  PRINT 

HEM     PRINT  A  -OP-  B  ■  ? 
460  PRINT  A-  X  "B"  -  "i 
470   INPUT  K 

46(>   IF  ABSCK-XX.OO5  THEN  590 
49a  LET  N-N-t-1 
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500  IF  N-3  THEN  530 

510  PRINT  "YOU»HE  WHONG-.-THY  AGAIN" 
520   GO  TO  460 

530  PRINT  "YOUR  WRONG  AGAIN" 
540  PRINT  "THE  ANSWER  IS  "X 
550   IF  J<5  THEN 360 

560  PRINT  "YOU  GOT  "L"     RIGHT  OUT  OF  20  PROBLEMS" 
570  PRINT  "GOOD  BYE   ••••   STUDENT  NO."Q 
5&0  GO  TO  250 

590  PRINT  "YOU'RE  RIGHT  STUDENT  NO."U 
600  LET  L  -  L+l 
610   IF  J<5  rHKN360 

620  PRINT  "YOU  GOT  "L"  RIGHT  OUT  OF  5  PROBLEMS." 
630  PRINT  "GOODBYE. STUDENT  NO."U 
640   GO  TO  260 
650  END 
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DISCIPLINE  MATHEMATICS-SOCIAL  SCIENCE 
SUBJECT       FINANCIAL  PROBLEMS 


PROGRAM  NAME  BANK 


DESCRIPTION: 

This  program  solves  financial  problems  concerning  installment  buying, 
long-term  loans,  and  savings  accounts.    The  program  gives  you  a  choice  of  these 
three  types  of  problems,  and  asks  for  the  information  needed  to  do  said  problem. 

OBJECTIVES; 

A.  This  program  aids  students  in  learning  the  terms  used  in  certain  financial 
problems. 

B.  Student  will  hopefully  be  motivated  to  learn  the  mathematical  logic  behind 
the  solution  of  these  problems. 


PRELIMINARY  PREPARATION  ; 

A.  Student    -  A  review  of  decimals  and  fractions  would  be  helpful. 

B.  Materials    -  A  terminal,  and  a  means  by  which  to  display  the  output  to  an 
entire  class  (e.g.  overhead  projector,  cloeed circuit  TV,  etc.) 


DISCUSSION; 

A  type  of  problem  may  be  demonstrated  through  the  use  of  the  computer, 
then  the  mathematical  logic  behind  the  solution  of  the  problem  may  be  developed 
through  the  use  of  a  flow  chart  similar  to  the  one  that  follows. 

Terminology  may  be  taught  when  the  computer  asks  for  input  (see  sample 

run). 

Since  the  execution  time  of  one  run  is  extremely  short,  many  more 
problems    may  be  demonstrated.    Depending  upon  the  ability  of  the  class  or  student, 
a  variety  of  relationships  may  be  discovered. 
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FINANCIAL  PROBLEMS 

THIS  PROOHAM  SOLVES  THREE  TYPES  OF  PROBLEMS  I 

<1>  INTEREST  ON  INSTALLMENT  BUYING 
<2>  PAYMENTS  ON  LONQ  TERM  LOAN  ' 
(3)  BALANCE  OF  A  SAVINGS  ACCOUNT 

VHICH  PROBLEM  WOULD  YOU  LIKE  TO  VORK  WITH  (TYPE  1;   8  OR  3)7  1 


THIS  SECTION  WILL  DETERMINE  THE  ACTUAL  INTEREST  YOU  PAY 
WEN  YOU  PURCHASE  SOMETHING  ON  CREDIT* 

WAT  IS  THE  CASH  PRICE  OF  THE  ARTICLE  CS)7  66*99 
DOWN  PAYMENT  ($)7   10  * 

NUIlBCa  OF  PAYMENTS  EXCLUDING  THE  DOWN  PAYMENT?  16 
NUMBER  OF  PAYMENTS  PER  MONTH?  1 
AMOUNT  PER  PAYMENT  (S>?  4*65 


THE  RATE  OF  INTEREST  CHARGED  WAS  5*69  PERCENT. 


WOULD  YOU  LIKE  TO  RUN  THE  PROGRAM  AGAIN  (1-YES#  O-NO)?  1 
WICH  PROBLEM  WOULD  YOU  LIKE  TO  WORK  WITH  (TYPE  1#   2'OR  3)7  8 

THIS  SECTION  WILL  Dl^^tr  PAYMENTS  FOR  A  LONG  TERM  LOAN. 

IKAT  IS  THE  AMOUNT  BORROWED  CS>?  3000 
INTEREST  CHARGED  (1>?  6 
INTERVAL  BETWEEN  PAYMENTS   (MONTHS)?  1 
TERM  OF  THE  LOAN  (YEARS)?  8 

DO  YOU  WISH  TO  SEE  THE  TOTALS  ONLY  *  INSTEAD  OF  THE  ENTIRE 
TABLE  -  (1-YES#  0-N0>?  0  -         .  .  - 

OUTSTANDING 

PRINCIPAL  AT  PRINCIPAL 


BEdlNNING 

INTEREST  DUE  AT 

REPAID  i 

PERIOD 

OF  PERIOD 

END  OF  PEHIOD 

END  OF  1 

1 

3000 

20 

115.66 

2 

8664.38 

19*23 

116*45 

3 

8767.67 

16.45 

117*83 

4 

2650.64 

17*67 

116.01 

S 

2532.63 

16*66 

116*8' 

6 

8413.63 

16*09 

119*59 

7 

2894.84 

15*89 

120*39 

6 

8173.85 

14*49 

121*19 

9 

2058.66 

13*66 

188 

10 

1930.66 

18*67 

182*61 

11 

1607*85 

12*05 

183*63 

18 

1664.88 

1 1*23 

124*45 

13 

1559.77 

10*4 

125*26 

14 

1434*49 

9.56 

126*18 

15 

1306.37 

6.78 

126.96 

16 

1161.41 

7*86 

127.6 

17 

1053.61 

7*08 

126.66 

16 

934.95 

6*17 

129.51 

19 

795.44 

5*3 

130.38 

80 

665.06 

4.43 

131.25 

81 

533*61 

3.56 

132.18 

88 

401*6^ 

8.66 

133 

83 

266*69 

1.79 

133.69 

84 

134*6 

.9 

134.76 

TOTALS 

856.34 

3000 

YOUR  MONTHLY  PAYMENT  IS  S   135.66    AND  TOTALS  S  3856.34 
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IIOULD  YOU  LIKE  TO  RUN  THE  PROGRAM  AGAIN  <1-Y£S#  0-N0>7  t 
WICH  PROBLEM  WOULD  YOU  LIKE  TO  VORK  WITH  (TYPE  1#  a'Oa  3)7 


THIS  SECTION  CALCULATES  THE  BALANCE  OK  A  SAVINGS  ACCOUNT 
IN  WHICH  DEPOSITS  AR5  MADE  REGULARLY. 

WAT  IS  THE  AMOUNT  DEPOSITED  PER  INTEREST  PERIOD  <$>?  10000 

HOW  OFTEN' IS  T^IE  INTEREST  COMPOUNDED  <M0NTHS#7  3 

WHAT  IS  THE  RATE  OF  INTEREST  PAID  <X>?  5 

FOR  HOV  LONG  WILL  YOU  DEPOSIT  MONEY  (YEARS) 7  5 


THE  BAtiVNCE  OF  YOUR  ACCOUNT  AFTER    5  YEARS  WILL  BE  $  208500 


WOULD  YOU  LIKE  TO  RUN  THE  PROGRAM  AGAIN  <1*YSS>  0-N0>7  0 


READY 
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100  RCH  riNANCIAU  PROBLEMS      A.  VEBB  13/67 
tOl  A£M  REVISED  6/25/70   (D*  PESSCL) 
no  PHINT  TAB(£0>i**riNANCIAL  PRODLEMS** 

115  REM  R£((ISED  BY  V*  TEPP£R#     VYANDANCH  H.S*  7/10/69 
ICO  PRINT 

130  PRINT**TMIS  PROORAH  SOLVES  THREE  TYPES  OF  PROBLEMSt*' 
138  PRINT 

134  PRINT**  (1>  INTEREST  ON  INSTALLMENT  BUYING" 

136  PRINT**  (S>  PAYMENTS  ON  LONQ  TERM  LOAiN*'* 

138  PRINT**  (3>  BALANCE  OF  A  SAVINGS  ACCOUNT** 

140  PRINT 

143  PHINT'*WHICH  PROBLEM  WOULD  YOU  LIKE  TO  VORK  WITH  (TYPE   1*  2  OR  3)"J 

144  INPUT  Ql'  ,         .  i#  «  wn  J/  # 

146  PRINT 

147  PRINT'******** 

148  PRINT 

150  IF  Ql>2  THEN  820 
155  IF  Ql>I  THEN  260 
160  GO  TO  590 

|60PRINT^**THIS  SECTION  VILL  DETERMINE  PAYMENTS  FOR  A  LONG  TERM  LOAN.'* 

280  PRINT'*«HAT  IS  THE  AMOUNT  BORROWED  <$)**J 
201    IN^UT  A 

235  PRINT**  INTEREST  CHARGED  <X)"J 

886  ItiPVT  I 

290  PRINT'*"  INTERVAL  BETWEEN  PAYMENTS  (MONTHS)"! 

291  INPUT  P  -    .  . 

295  PRINT"  TERM  OF  THE  LOAN  (YEARS)"! 

296  INPUT  Y 

300  Print 

360  PRINT'*DO  YOU  WISH  TO  SEE  THE  TOTALS  ONLY  -  INSTEAD  OF  THE  ENTIRE*' 

361  PRlNT"TAflLE  -  <1-YES#  0-NO>"J  ... 

362  INPUT  P5 

375  IF'P5>0  THEN  430 

380  PRINT"  OUTSTANDING" 

390  PRINT"  PRINCIPAL  AT  PRINCIPAL" 

4O0  PRINT"  BEGINNING  INTEREST  DUE  AT  REPAID  AT" 

410  PRINT"PERI0D  OF  PERIOD  END  OF  PERIOD  END  OF  PERIOD" 

420  PRINT 

430  LEt  Z-(Y*12)/P 

440  LET  K-( I*(P^12))/I0O 

445  LET  £-A«K/Cl-l/(l^K)tZ) 

446  LET  E«INT(E«IOO>*5);^100 
450  LET  C-A 

460  LET  F-0 

461  LET  DI«K) 
470  LET  Tl-0 
460  LET  TI-TI^I 

490  IF  T1>Z  THEN  554 

SCO  Let  a-Ti 

510  LET  C-C-F 
520  LET  D"C*X 
522  LET  F-E-D 

525  LET  C«INT(C«100>*5)/I00 
530  LET  D-INT<D«100>.5}/I00 
535  LET  F-INT(F«100>.5)/100 
541  LET  Dl^Dl^D   •  - • 

548  IF  P5>0  THEN  480 

550  PRINT  BITAa(lI)JCJTAa(29)JDJTAB(48)JF 
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SSa  00  TO  480 

554  IF  PS<1   THEN  561 

555  PRINT 

556  LET  D1-INT(D|«I00>.5>/|00 

558  PRINT-TOTAL  INTERESTPAID  -  S-Dl 

559  PRl  NT-TOTAOL  PRI  NCI  a'>AL  REPAI D  *  -  *  S^A 

560  GO  TO  565 

561  PRINT"  •   — 

564  PRlNT*T0TALS'*iTAB(S9>iDliTAB(48>iA 

565  LET  E5-INT((Dl^A>«100^*5)/100 

566  PRINT 

567  LET  E6«E5/(<Y*I2>/P> 

568  LET  E6-INT(  lOO^ES'^.S^/lOO 

569  PRINT'^YOUR  MONTHLY  -  AYMENT  IS  at"E6"  AND  TOTALS  $"E5 

570  GO  TO  1060 

590  PRINT-THIS  SECTION  WILL  DETERMINE  THE  ACTUAL  INTEREST  YOU  PAY*' 
600  PRINT"WH£N  YOU  PURCHASE  SOMETHING  ON  CREDIT."*  *  ** 

610  PRINT" 

620  PRINT"WHAT  IS  THE  CASH  PRICE  OF  THE  ARTICLE  <S>"i 

621  INPUT  C   '      "  *  •   *- " 

630  PRINT**'  DOVN  PAYMENT  <S)»*J 

631  INPUT  D  "  '  

640^PRrNT'*  NUMBER^^Ol?  P^*YMENTS  EXCLUDING  THE  DOWN  PAYMENT 

641  INPUTN 

650  PRINT"  N!JMBER  OF  PAYMENTS  PER  MONTH" i 

651  INPUT  S 

660  PRINT"  AMOUNT  PER  PAYMENT  <S)"i 

661  INPUT  R 
I  90  PRINT 

720  LET  B-R*N*r 

730  LET  I-B-C 

740  LET  M-N/(S*18> 

750  LET  T-I*X0O/CS*M> 

760  PRINT 

770  PRINT 

775  LET  T-INT(100*T>.5>/100 

780PRINT  "THE  RATE  OF  INTEREST  CHARGED  MAS"T"  PERCENT." 
790  GO  TO  10  60 

830  PRiNr'lN' WHICH  DEPOSITS  ARE  MADE  REGULARLY." 
840  PRINT  ' 

660  PRINT"WHAT  IS  THE  AMOUNT  DEPOSITED  PER  INTEREST  PERIOD  (S)"i 
861   I^JPUT  A         '        '  .... 
670  PRINT"HOW  OFTEN  IS  THE  INTEREST  COMPOUNDED  (MONTHS)"i 
871   INPUT  B  -  . 

680  PRINT"WHAT  IS  THE  RATE  OF  INTEREST  PAID  <X)"i 

681  INPUT  C'        "  ..... 

690  PRINT"F0R  HOV  LONG  WILL  YOU  DEPOSIT  MONEY  (YEARS)"i 
891  INPUT'D 

950  Let  r-0 

960  LET  E-(C/)00>/(l&/B> 
970  LET  G«<lfi/B>*0  '    *  ' 
980  LET  Tl-0   *  " 
990  LET  Tl-Tl^l 
1000   IF  Tl-G^l  THEN  1030 
1010  LET  F-(E«A>*<A>F> 
lOfiO  GO  TO "990  *  ■  . 

1030  PRINT 
1040  PRINT 

1045  LET  F-INT< 100*F>.5>/100  . 

1050  PRINT"tH3  BALANCE  OF  YOUR  ACCOUNT  AFTER  "D"YCARS  WILL  BE  S"F 

1060  PRINT'  .        .  , 

10  70  PRINT 

10  60  PRINT 

1081  PRINT"*****" 

1068  PRINT 

1084  PRINT"W0ULD  YOU  LIKE  TO  RUN  THE  PROGRAM  AGAIN  (  1-YES«  0-N0)"i 

1086  INPUT  ft4 

1090   IF  Q4>0  THEN  142 

1100  END 


DISCIPLINE  CALCULUS-GRADE  13 
SUBJECT  LENGTH  OF  ANY  CURVE 
PROGRAM  NAME  CRVLEN 


DESCRIPTION; 

This  program  approximates  the  length  of  any  curve  between  two 
fixed  points  on  the  curve,  by  taking  an  increasing  number  of  sub  intervals 
and  computing  the  sum  of  the  secants  involved. 


OBJECTIVES; 

A.  Time  saving  factor  for  computations. 

B.  By  typing  out  successive  approximations,  the  machine  displays  the 
manner  by  which  the  limit  is  approached. 

C.  The  attendant  discussion  focuses  attention  upon  the  techniques  needed 
to  build  up  the  analytic  method  for  finding  the  length  of  a  curve. 


PRELIMINARY  PREPARATION;  None 


DISCUSSION: 


The  operator  inserts  any  function ,  sets  up  his  own  limits,  and  the 
computer  proceeds  to  print  out  several  approximations  to  the  actual  length 
a  diagram  (such  as  below)  should  be  displayed,  indicating  the  geometric 
basis  for  the  computations. 


Plecewlse  linej  *  <'j^|'.;roximation  of  a  smooth  curve 
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LIMOTU  OP  A  CUaVX 

WIS  PROORAM  APPROXIMATSS  THS  LINCrTH  OT  ANY  CURVC  BETVSIN 
TW  POINTS  KAVlNa  P'AlfD  Q  AS  THEIR  RXSPKCTIVt  ABSCISSAS* 
IHB  PROgRAM  DIVIDES  THE  CURVE  tNtO  INCRBASlNR  NUNBtRS  OT 
SOBXNTBRVALS#  MOINS  TRESE  VITH'^SECABTS  AND  FINDS  THE  SUM 

or  THESE  aicANTs; 

TO  INPUT  THE  PUNCTION  WICH  YOUR  CURVE  REPRESENTS#  TYPE  AS 
rOlXOVS  AFTER  THS  PROORAfI  STOPS  t 

CTYPE  THE  'RETURN^  KEY  AFTER  EACH  LINE  INCUIDINO  ^RUN«> 
1  00  TO  800 

300  DEP  PNYCX>«###*CYOUR  FUNCTION  OF  X>«««« 
RUN 

FOR  EXAM>XJI#  TO  USE  THE  FUNCTION  8*Xf S^3*Xf 8-a*X^3 
YOU  VOOLD  TYPES 

I  60  TO  800 

300  DBF  FNY(X>«8*Xt3^3*Xf8-8«X^3 
RUN 

YOU  MIOHT  TRY  THAT  AS  YOUR  FIRST  RUN* 
RiADY 

i  BO  TO  400 

300  DBF  FHYCX>«8*Xt3^3«Xf8-8*X4*3 


liUT  ARE  THE  ABSCISSAS  OF  THE  END  POINTS  OF  THE  INTERVAL 
HROSE  LENBTH  YOU  BANT  CSMALLER  ONE  FlRSTtP#0>f  -I#6 

NONBER  OF  SUM  OF 

SI9INTXRVALS    SECANT  LENBTHS    S  CHANBE  IN  LENBTH 


1 

S85-0467 

MO  PAIVIOUS  < 

t 

-  Mf  .lMS 

.08189148 

4 

5l9.«5a8 

.•9$73f3 

f 

S3I.017I 

.897C9S7 

. 1783983 

at 

938  .OlM 

9;034848B'>3 

938.041« 

4W713789K-3 

938V0449 

1.887718B-3 

asft 

938*0901 

3.0MM7B-4 

***** 

WBULB  YOU  LIKB  TO  TRY  NSV  INS  POIMTS  <1-YBS«  0-ilO>T  0 

to  TRY  AMOTMBR  FUMCTIOII*  8XTTPB  LIMB  30O«  AMD  •BUM*. 
SBB  IMSTBUCTIOMS  rOK'NOBB  OBTAILS;     IF  YOU  MU  FIMISKBS* 
TVPB  'l*  iiaD~*BBTUBM*  BBY  ArTBft  TUB  PROORAM  STOPS*' 


RBA0Y 
1 
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100  BIN  UDiaTH  or  A  cuavB«Q.J.  o'coamoR  7«af-M 

101  BSM  8BVISB0  0-7-70  CD*  PEMEL^  CCONBIMTIOM  OF  UCCUO  A  LirU0> 

103  BIN  IWORTMIT  VARliUU^Sl     S-SCCMT  LSNOTBl  Sl-PRXVIOUS  SBCIUrt 

104  BSN  UM8THI  P-PtaCnT  CHAIiOB  I«  SBCIUIT  LfiVOTU 

110  PRxirr  Tjyi<oo>i  •nAioTH  or  a  ctmvs** 

111  PRIMT 

100  PRIWT  "THIS  PROORAN  APPROXXMATSS  THE  LSIf6'ni  0/  AMY  CURVI  RBTVESIT 

181  PRiirr  "TW  poimrs  havim  p  aisd  a  as  thixr  ^s^ectivs  abscissas*" 

188  PRINT  "TUB  PROORAM  OI^IOKS  TUB  CURVB  INTO  IISCRBASlMO  MOMBBRS  OP" 

183  PRINT  "SWINTBRVALS#  JOINS  THBSB  VITH  SBC  ARTS  AND  FINBS  TUB  SUN** 

184  PRINT  "OP  TKBSS  SBCANTS;** 
IBS  PBINT  ' 

186  PRINT  "TO  INPUT  THB  FUNCTION  WICH  YOUR  CURVB  mSKStMrS^  TYPE  AS" 

187  PRINT  "FOU.OVS  AFTER  TUB  PROORAN  STOPSt" 

188  PRINT  "CTYPE  THB  •RBTURN*  KEY  AFTER  BACR  UNE  INCUIDIN8  •RUN«>" 

189  PRINT  "  -  .   

130  PRINT  "  1  80  TO  800" 

131  PRINT  "  300  DBF  FNYCX)*. •  •  .CYOUR  FUNCTION  OF  X)...." 

138  PRINT  "  RUN"  .  .  - 

133  PRINT 

134  PRINT  "FOR  EXAMPLE^  TO  USB  THE  FUNCTION  8«Xt3^3«Xt8-8«X^3" 

135  PRINT  "YOU  WOULD  TYPBt" 

136  PRINT 

137  PRINT  "  1  80  TO  800" 

136  PRINT  "  300  DBF  FNY<X>«8«Xt3^3*Xf 8-8«X^3" 

139  PRINT  "  RUN" 

140  PRINT  ' 

141  PRINT  "YOU  HIOUT  TRY  THAT  AS  YOUR  FIRST  RUN." 
150  STOP 

800  REM  CALCULATION  AND  PRINTIMO  IF  RESULTS 

805  PRINT  "WAT  ARB  TUB  ABSCISSAS  OF  TUB  END  POINTS  OF  TUB  INTERVAL" 

806  PRINT  "INIOSB  LBN8TH  YOU  8ANT  CSNALLEB  ONE  FlRSTtP#a>*J  ' 
8D7  INPUT  P»a  ... 

808  IF  P<8  TUEN  813 

809  PBINT  "P  MUST  BE  LESS  THAN  Ql" 

810  00' TO  807 
818  IWUT  P»Q 

813  PRIMT 

814  PRINT  "  tfVtlgFH  OF"^'*        SUM  OF** 

815  PRINT  "SUBINTERVALS**#**SBCANT  LEN8TUS"#"     S  CUAN8B  IN  LEN8TU** 

816  PRINT  "—  — — .  

817  PRINT 
830  LET  Sl-0 
8S0  FOR  Nal  TO  9 

300  DBF  FNT<X>-8«Xt3^3«Xt8-8»X43 

310  LET  B»8f<N^l> 

380  LET  ll»<0*P>/B 

380  LET  S^ 

340  FOR  I^  TO  E-1 

300  LBT  D>S8A<<FMT<P^IW4H>«FMY<P^I*U>>t8^N*N> 
360  LBT  S-S^L 
810  NBXT  I 

378  IF  Sl^  THEN  375 

378  PRINT  B«8#**    NO  PREVIOUS  VAUIB" 

374  80^70  38S  -        '  " 

378  LBT  P5»<<ABS<S1-S>>/S1>*100 

388  PRINT  B#B#»  "PS 

385  LBT  Sl-S  ' 

890  NBXT  N' 

408  PRINT 

401  PRIMT  "••♦•♦" 

408  PRIMT  ' 

488  PRIMT  "88ULD  TOO  LINE  TO  TRT  MEN  BHD  POINTS  <1-YB8#  0-NO>**l 

404  II#OT  81 

405  IF  Q1»0*TKBN  810 

410  PRIMT  

449  PRIMT  "TO  TRY  AHOTUBR  Ft8ICTI0H#  RETYPE  LINE  300#  AND  •RON*  •" 
M6  PRIMT  -SEE  INSTROCTIONS  FOR  NONE  DCTAILS;     IF  TOU  ARB  FINISRBD^" 
447  PRIMT  "TYPE  M*  AMD*  *RBTUBN*  XBT  AFTER  TUB  PROORAM  STOPS."  ^ 
900  END 
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DISCIPLINE    CALCULUS  -  GRADE  13 
SUBJECT     AREA  UNDER  ANY  CURVE, 


(ANALYTICALLY  DEFINED) 


PROGRAM  NAME  CVAREA 


DESCRIPTION: 


By  numerical  methods,  this  program  evaluates  the  definite  integral 
of  f(x),  from  x  =  a  to  x  =  b,  by  four  different  methods  of  successive  approxi- 
mation: 

I     Rectangles  (starting  with  f(a)  as  height) 


II 


Rectangles  (starting  with  f(a-fh)  as  height) 


III 


Tr  ape  zoids 


IV 


Parabolas  (Simpson's  Rule) 


OBJECTIVES: 

A,  Enhances  comprehension  of  the  analytic  procedures  for  finding  the  area 
under  a  curve. 

B,  Dramatizes  the  limiting  processes  involved. 

C,  Decreases  the  time  needed  for  lengthy  computations. 

PRELIMINARY  PREPARATION; 

Prior  to  the  computer  run,  diagrams  should  appear  on  the  board, 
or  on  the  overhead  projector  screen  to  demonstrate  the  geometric  significance 
of  the  computer  output. 


y  =  f  (X) 


y 


Starting  with 
f(a)  as  height 


h 


X 


a 


13 


Inscribed  Rectangular  Approximation 


Mathematics 
CVAREA 

y  =  f  (X) 


Starting  with 
f(a  +  h)  as  height 


Circumscribed  Rectangular  Approximation 


DISCUSSION: 


This  program  may  be  run  as  an  introduction  to  the  problem  of 
finding  the  area  under  a  curve.    In  some  classes,  the  consideration  of 
Simpson's  Rule  may  be  omitted  or  briefly  hinted  at.    With  the  more 
mathematically  talented  classes,  an  explanation  of  this  parabolic 
approximation  should  precede  the  running  of  the  program. 
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Mathematics 
CVAREA 


AiiEA  UNDEH  A  CUiiVE  -  INTEGxiATION 

TnIS  PROGHAM  EVALUATES  THE  DEFINITE   INTEGHAL  OF  FCA) 
FnOM  A=:A  TO  A=B  BV  FOUrl  METHODS  OF  NUMEHICAL  APHHOXIMATI ON: 

I   RECTANGLES  (INITIAL  HEIGHT  OF  FCa)) 
II   RECTANGLES   (INITIAL  HEIGHT  OF  F(X+H) ) 
III  THAPE^-OIDS 
IV  PARABOLAS   (SIMPSON'S  RULE) 

AFTER  The  pROGRAh  STOPS^    /OU  MAY  ENTER  YOUR  FUNCTION  AS  FOLLOWS: 

I    GO  TO  2UU 

300  DEF  FNY( A)=  .  .  .  (YOUrt  FUNCTION  OF  X)  .  .  • 
RUN 

FOR  EXAMPLE^    TO  FIND  THE  AREA  UNDErt  THE  CUrtVE   y=AT3  YOU 
WOULD  TYPE: 

1   GO  TO  200 

300  DEF  FNY(A)=at3 

RUN 

YOU  MIGHT  TRY  THAT  AS  YOUR  FIRST  RUN- 

END  EACH  LINE^    INCLUDING    'RUN'^    WITH  THE    •hETURN'  KEY. 


READY 

I   GO  TO  2U0 

300   DEF  FNY(A)=Xt3' 

RUN 

WSlAT  AnE  YOUR  VALUES  FOR  A  AND  B   (SMALLER  FIrST:A^B)?  I^IU 


NUMBER  OF  I.    SUM  OF  II.    SUM  OF         III.    SUM  OF        IV.    SUM  OF 

SUBINTErtVALS     RECTANGLES         RECTANGLES         TRAPEiiOIDS  PARABOLAS 


2  753.1B75  52^^6.657  3000.937  2499.75 

41  1501.172  •  374b. 922  2625.047  2499.75 

b  1969.137  3093.012  2531.074  2499.75 

16  2226-612  27bb.55  2507. 5bl  2499-75 

32  2361.223  2642.192  2501.70b  2499.75 

64  2429.997  2570. 4bl  2500.239  2499-75 


note" THAT  SIMPSON'S  RULE   (IV)   CONVERGES  FASTEST. 

WOULD  YOU  LIKE  TO  TRY  NEW  VALUES  FOR  A  AND  B   (1~YES^   0-NO)?  0 

TO  LTSE  A  NEW  FUNCTION  YOU  NEED  ONLY  RETYPE  LINE  300 
AND    "RUN'.      SEE   INSTRUCTIONS  FOR  MORE  DETAILS. 
IF  YOU  ARE  FINISHED^    TYPE    "l*   AND  THE    'RETURN'  KEY- 
READY 
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Mathematics 
CVAREA 


100  HEM  ArlEA  UNDEri  A  CUUVE-U.J.  O'CONNOxi 

101  rtEM  REVISED  b/16/70    CD.  PEiiSEL)    (COMBINATION  OF  DEFIN  AND  ACCUQ) 

102  rtEM  IMPORTANT  VAHIABLEb:    D-#  OF  iiUBI  NTErtVALS ;   AiiEA  3/ 
1U3  HEM  HECTANGLEb   CFCA))-P^   BY  iiECTANGLEii  CFCA+n))-U^ 

1U4  HEi<  BY  THAPEz:0ID5-T>   BY  PAhABOLAS-S;    C-STOrtES  PxiEVIOUS 
105  xiEM  VALUE  OF  S. 

110  PRINT  TABC15);    "AHEA  UNDEH  A  CUHVE   -    I NTEGHAT I ON" 

111  PHINT 

112  PHINT  THIS  PHOGHAM  EVALUATES  THE  DEFINITE   INTEoHAL  OF  FCX)" 

113  r^HlNT  "FhOM  A=A    iO  A=B  BY  FOUH  MEfhODS  OF  NUMEHICAL  APPROXIMATION:'* 

114  PHINT 

115  PiiINT  TABC2U);    "I    HECTANGLES   CINITIAL  HEIGHT  OF  FCA))" 

116  PHINT  TABCl'i^);    "11    HECTANGLEi)   (INITIAL  HEIGHT  OF  FCX+ri))" 

117  PhINT  TABClb);    "III  TiiAPE^OIDS" 

lltS  PHINT  TA3C19);    "  I V  PARABOLAS   (SIMPSON'S  RULE)" 
liy  PHINT 

12U  PHINT  "AFTER  THE  PROGRAM  STOPS^    YOU  MAY  ENTEh  YOUR  FUNCTION'  AS"; 

121  PRINT   "  FOLLOWS:" 

122  PHINT 

123  PhINT   TABC13);    "I    GO   TO  200" 

124  PRINT   TABC13);    "3UU   DEF  FN Y C X ) = . . . C YOUR  FUNCTION  OF  X).»." 
1^5  PhINT   TABC13);  "rtUN" 

126  PRINT 

127  PRINT  "FOR  EXAMPLE^    TO  FIND  THE  AhEA  UNDEH  THE  CUhVE   Y=Xt3  YOU" 
12b  PHINT  "WOULD  TYPE:" 

129  PHINT 

130  PRINT   TABC13)J"1    GO   TO  'dOO" 

131  PRINT   TABC13)J"30U   DEF  FNYCX)=Xt3" 

132  PHINT   TAB< 13) J"RUN" 

133  PHINT 

134  PHINT  "YOU  MIGHT  THY   THAT  AS  YOUh  FIRST  RUN." 

135  PRINT   "END  EACH  LINE*    INCLUDING    'HUN'*    WITH  THE    'RETURN'  KEY." 
150  STOP 

200  PRINT  "WHAT  ARE   YOUR  VALUES  FOh  A  AND  B   (SMALLER  FIRST:A,B)"; 

201  INPUT  A>B 

203  IF  B>=A  THEN  2  10 

204  PHINT  "A  MUST  BE  LESS  THAN  B!" 

205  GO  TO  200 

210  PRINT 

211  PRINT   "   NUMBER  OF'S"I .    SUM   OF"*"II.    SUM  OF"*"III.    SUM  OF"* 

212  PRINT  "IV.    SUM  OF" 

213  PRINT  "SUBI NTERVALS"* "RECTANGLES"* "RECTANGLES"  J  "THAPEilOIDS"* 

214  PRINT  "PARABOLAS" 

21b  PHINT  "  "*"  ","  ","  

219  PrtINT  "  " 

250   LET  Ma-2 

260   LET  S=0 

300   DEF  FNY(X)=Xt3 

310   LET  M=>M  +  3 

320   FOh  N=M   TO  M+2 

330   LET  C=S 

340   LET  Q=0 

350   LET  P=0 

360  LET  D«2tN 
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Mathematics 
CVAREA 


365  PRINT  Ds 

370   UET  H»CB-A)/D 

380  FOB  1*0   TO  CD-I ) 

390   UET  P-P+H^FNYCA+I^H) 

400   UET  a^G+H^FNYCA+l^H+H) 

410   NEXT  I 

41S  PRINT  P«Q« 

420   UET  T=(P-i-a)/2 

425  PRINT  T* 

430   UET  U*FNY(A)+FNY(B) 

440   FOE  J«2   TO   CD-2)   STEP  2 

450   UET  U«U+2*FNY(A+.J*H) 

460   MEXT  J 

470  UET  V*0 

480   FOE  K«l    TO   (D-l)   STEP  2 
490   UET  V*V+4*FNY(A-i-K*H) 
500   MEXT  K 

510  UET  S*CU+V>*CH/3) 
520  PRINT  S 
530  NEXT  N 

535  IF  D<64  THEN  310 

540   IF  ABS((C-S>/((C-^S)/2))>*0001   THEN  310 
550  PEINT 

560  PRINT  -NOTE  THAT  SIMPSON'S  RULE   CIV)   CONVERGES  FASTEST." 
600  PRINT 

610  PRINT  "WOULD  YOU  LIKE  TO  TRY  NEW  VALUES  FOR  A  AND  B  Cl-YES*  0-NO)"; 

611  INPUT  ^5 

612  PRINT 

613  PRINT 

614  PRINT 

615  IF  Q5>0   THEN  200 

620  PRINT  "TO  USE  A  NEV  FUNCTION  YOU  NEED  ONLY  RETYPE  LINE  300" 

621  PRINT  "AND   'RUN^.     SEE  INSTRUCTIONS  FOR  MORE  DETAILS." 

62^  PRINT  "IF  YOU  ARE  FINISHED*    TYPE  AND  THE    'RETURN*  KEY." 

650  eND 
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DISCIPLINE   MATHEMATICS,  JR. HIGH 
GENERAL  MATH 


SUBJECT  GREATEST  COMMON  DIVISOR 
PROGRAM  NAME  GCD 


DESCRIPTION: 

This  program  finds  the  greatest  common  divisor  for  two  or  more 

numbers. 
OBJECTIVES; 

.,JTo  aid  the  teacher  in  demonstrating  a  method  of  finding  the 
greatest  common  divisor. 

PRELIMINARY  PREPARATION: 
See  discussion. 

DISCUSSION: 

It  is  suggested  that  the  teacher  explain  the  meaning  of  the 
greatest  common  divisor  prior  to  using  this  program,  and  show  a 
number  of  examples. 

By  using  the  flow  chart  which  follows,  the  method  and  logic 
the  computer  uses,  can  be  explained  to  students.    It  is  suggested  that  a 
supplementary  device  be  used  to  display  output  to  class-size  groups. 
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GCD 


WIS  PROOBAN  MIX  riND  THS  ORSATEST  COMMON  DIVISOR 
FOR  TWO  OR  NORt  MUM8BRS. 

HOV  MMIY  MUMMERS  DO  YOU  VXSK  TO  laVISTIMTtT  3 
TYPB  IM  TMB  aUHBSRS#  ONE  APtBR  KACH  OUtStlON  MARK. 
»  li 

?  3* 
1  96 

IHI  MUHBXRS  18    3«    9«  HAVE  THS  a«C.O«  IS 


AMOTMIR  SKT  OT  MHMRKRS  <l»yiS«  0>N0>  1  1 

NOV  MANY  HUmSRS  DO  YOU  ViSU  TO  I«VBSTI«^TIY  3 

TXPB  IN  TUB  NUMBERS #  ONE  AFTER  EACH  OUSSTXOM  IMRK. 

t  so 

T  3« 

1  96 

WE  NUMBERS  flO     36    96  HAVE  TUB  Q.CD.  4 


ANOTHER  SET  OF  NUMBERS  (1>YES«  0«NO>  T  1 

NOV  MANY  NUMBERS  DO  YOU  VI SH  TO  INVESTIOATIt  3 

TYPE  IN  TUB  NUMBERS*  ONE  AFTER  EACH  OUSSTXOM  MARK. 

t  ao 

T  36 
1  97 

IMS  MMBBBS  BO     36    97  ARB  RSLATIVBLY  PRIME. 


AaN)THER  SET  OF  NUMBERS  Cl-YES*  0"N0>  T  0 


BBABY 
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100  MDI  V.  IVPBR    VYAMBMKH  -  IMTHINATICS 

110  am  BEViisto  by  c^losik  ••io-to 

111  iODf    X(I>  ARK  TUt  HUNiBBS  (UP  TO  100) 

IBO  PBXBT  "THIS  PBOaRAN  VILL  PXMB  TUB  6BBATBST  CONHOM  DIVISOR" 
130  PRINT  '•FOB  TVO  OB  MOBS  |fUN8BBS«<* 
140  DIJk  X(IOO) 

190  PBIHT  "MOV  HANY  NUMBBBS  00  YOU  VISH  TO  INVBSTIOATB"! 
IftO  INPUT  H  ...         •       —  » 

165  IP  ABSC N- INT (N))<. 0001  THBH  IfO 
1«6  PRINT  "^RT  AOUN.- 
167  80' TO  190  ' 

110  PBXNT  "TYPB  IN  TUB  NUMBBBS*  ONE  APTBR  BACH  OUB2TI0N  MABK.- 

175  LXT  S«1B8S 

ISO  POB  JC«1  TO  N 

190  INPUT  X(K) 

193  IP  X(K>»S-THXN  810 

800  LBT  S«X(K) 

BIO  NBXT  K 

880  LBT  a«« 

830  POB  ll«8  TO  S 

8A0  POB  I-l  TO  N 

890  IP  X<|}/M<>INT(X(I)/M)  THXN  300 
860  NBXT  1  *  -  - 

890  LXT  O^H 
300  NBXT  N 

310  PBINT  "THB  NUMBBBS" J 

380  POB  T<*1  TO  N 

330  PBXNT  X(T)i 

340  NBXT  T 

350  IP  6»0  THXN  380 

360  PBINT  "ABB  BBLATIVBLY  PBlNB." 

370  80  TO  390 

380  PSam  "HAVB  THB  8.0. D.  "iO 
390  PBINT 
400  PBXNT 

410  PRINT  "ANOTHBB  SXT  OP  NUMBBBS  (1-YX5«  0-N0>  "I 

480  IlVUT  Z 

430  tP  Z-1  THBN  ISO 

MO  IP  X-0  TUBN  470 

480  PBXNT  "TYPB  1  OB  0  AS  BIRBCTBO." 
460  80  TO  4B0 
470  BND 
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DISCIPLINE    CALCULUS  ■  GRADE  13 

sin  X 

SUBJECT   LIMIT  OF 


PROGRAM  NAME 


LIMSIN 


DESCRIPTION: 


This 


sin  X 


 program  demonstrates  that  the  limit  of      x       ,  as  x  approaches 

0,  equals  1,  provided  x  is  measured  in  radians.  If  x  is  measured  in  degreest 
the  limit  equals  approximately  ,017, 


OBJECTIVES: 


sin  X 


A,  To  demonstrate  the  manner  by  which  the  limit  of      x     is  approached, 

B,  To  show  that  degree  measure  does  not  yield  the  same  solution  as 
radian  measure. 


PRELIMINARY  PREPARATION: 


A,  Student 


Knowledge  of  degree  vs.  radian  measure, 
B,  Materials 
None 


DISCUSSION: 

Following  the  computer  type-out,  the  teacher  will  use  the  analytic 
method  to  evaluate  the  limit.    Prior  to  this  discussion,  the  stucient  should 
be  reminded  of  the  area  formulas  for  a  triangle  and  for  a  sector  in  terms 
of  the  central  angle  measured  in  radians.    A  geometric  diagram  should  be 
presented  showing  the  sector  lying  between  two  triangles. 


4r2e^ 


ir^tan  G 


Here,  2^    sin  ©  ^ 
Circular  Sector  with  Circumscribed  and  Inscribed  Triangles 
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Calculus  - 
LIMSIN 


The  teacher  can  modify  the  type-out  by  inserting:  195  Go  to  300. 
This  decreases  the  nunnber  of  lines  typed  out  to  the  final  eleven  appearing 
on  the  program  "run". 
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LIMSIN 


THIS  PROGRAM  DEMONSTRATES  THAT  THE  LIMIT  OF 
PCX)   «  <SIN  X)/X#     AS  X  APPROACHES  0#   IS  EQUAL  TO  1# 
PROVIDED  X  IS  MEASURED  IN  RADIANS « 

SINCX) 

LIMIT    -  1 

X-->0  X 


IS  IN  DEGREES^ 

VHEN  X  IS  IN 

RADIANS# 

X  I  5 

F(X)  IS 

X  IS 

FCX)  IS 

90 

•01111111 

I  •  570  795 

•6366203 

65 

•01 1 71994 

1 ^483529 

•6715035 

60 

•01231009 

1 • 396262 

•  705317 

75 

•01287901 

1 ^306996 

•  73  79134 

70 

•01342416 

1 ^221 789 

•  7691492 

65 

•01394319 

1 •I  34463 

•  7988666 

60 

•01443375 

1 ^047197 

•6269936 

55 

•01469367 

•9599303 

•6533449 

50 

•01532066 

•6726639 

•8778825 

45 

•  01571347 

•7853975 

•9003165 

40 

«0  1606966 

•696131 X 

•920  7256 

35 

•01636  769 

•6106647 

•9369575 

•0  1666665 

•5835963 

•9549297 

25 

•01690472 

•4363319 

•9685698 

80 

•01710099 

•3490656 

•9796156 

15 

•0172S459 

•861 7992 

«988616 

10 

•01 73648 

•1745326 

•9949308 

5 

oO 17431 13 

•06  726639 

•9987313 

1 

•01745239 

•01745386 

•9999492 

•  9 

•01745256 

•  0  1  5  70  795 

.i5^'999589 

•  6 

•01745271 

•01396862 

•9999675 

•  7 

•01 745284 

•0128£729 

•9999751 

•  6 

•01 745296 

•01047197 

•999981 7 

•  5 

•01745306 

6^726639E«'3 

«9999873 

•  4 

•C1745314 

6^981312E*3 

•9999919 

•  3 

•01 74532 

5^835984E-3 

•9999954 

.2 

•01 745324 

3^490656E-3 

•999998 

•  1 

•01 745327 

1  •'745386E*«3 

•9999995 

•  09 

•01 745387 

1 ^570 795E-3 

•9999996 

•06 

•O; 745387 

1 •396862E-3 

•9999997 

•07 

•01745387 

1 ^881 789E-3 

•9999996 

•06 

•01 745327 

1^047197£-3 

•9999998 

.05 

•01745386 

8^786639£*4 

•9999999 

•  04 

•01 745328 

6^961311£-4 

•999S999 

•  03 

•01745388 

5^835964E*4 

1 

•  02 

•01 745388 

3^490656£-4 

1 

•  01 

•01 745328 

1 •745386E-4 

1 

READY 
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100  REM     BRUCb  BRENT       HHHH       BKLYN  POLY  7/U/69 
105  REM     REVISZD  BY  C.LOSIK  8*27-70 

110  PRINT  '*  THIS  PROGRAM  DEMONSTRATES  THAT  THE  LIMIT  OF" 

115  PRINT  **F(X)   -  (SIN  X)/X#     AS  X  APPROACHES  0,   IS  EQUAL  TO 
117  PRINT  "PROVIDED  X  IS  MEASURED  IN  RADIANS." 
120  PRINT 

125  PRINT  "  SIN(X)" 

130  PRINT  "  ">"LIMIT    ■  1" 

135  PRINT  "  "#"X— >0  X" 
140  PRINT 
150  PRINT 

160  PRINT  **VHEN  X  IS  IN  DEGREES#'*#**VHEN  X  IS  IN  RADIANS^** 

165  PRINT  "  

170  PRINT  •'X  IS"#"r<X)   IS"#"X  IS'S^FCX)  IS" 

175  PRINT  —  M,..  

180  PRINT 

aOO  FOR  Y"90  TO  5  STEP  -5 
210  LET  Z^y 

220  LET  2-3.l4159«2/180 
230  LET  X«SlN(£)/£ 
240  LET  fi"SlN<Z)/Y 
250  PRINT  Y#0#£;X 
260  NEXT  Y 
270  PRINT 

300  FOR  Y-1   TO   .1   STEP  -.1 
310  LET  2-Y 

320  LET  £-3« 141 59*2/1 80 
330  LET  X-SIN(2)/2 
340  LET  Q-SIN(2)/Y 
350  PRINT  Y#Q#2#X 
360  NEXT  Y 
370  PRINT 

400  FOR  Yo.09  TO   .01   STEP  -.01 
410  LET  2-Y 

420  LET  2-3«14:59«2/ia0 
430  LET  XjrSlUiZy/Z 
440  LET  Q«SIN(2)/Y 
450  PRINT  Y#Q#2>X 
460  NEXT  Y 
500  END 


1^0 
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SUBJECT  AREA  OF  A  CIR^ 

PROGRAM  NAME      PI2  > 


DISCIPLINE     MATHEMATICS  lO^^^^^^^ 
  GEOMETRY  ^  


DESCRIPTION: 

This  program  computes  the  area  of  a  circle  and  **pi*'  by 
using  the  areas  of  inscribed  and  circumscribed  regular  polygons. 

OBJECTIVES: 

As  an  introduction  to  the  limit  process  and  a  method  for 
approximating      pi**  . 

prelimi:jary  preparation: 

A-      Student  -  Students  must  know  how  to  calculate  the  area  of  a  circle 
and  a  triangle  using  the  formulas:    A  =  ttR^    and   A  =  ibh. 

B.      Materials  -  chalkboard,  board  compass,  and  straight  edge. 

DISCUSSION: 

Ask  students  to  find  the  area  of  a  circle  '.without  using  the  'orrtiul^^ 
The  instructor  may  suggest  to  the  class  to  inscribe  and/ or  circumscribe 
equilateral  triangle.    Have  students  compare  the  area  of  their  figures  to 
of  the  circle.     Some  students  will  suggest  to  increase  the  number  of  sides 
and  the  instructor  should  suggest  that  a  regular  hexagon  be  used  for 
convenience  of  drawing.     This  can  be  illustrated  on  the  chalkboard  for  the 
class.     Another  comparison  is  made  between  the  areas  and  then  the  stude^^ 
will  observe  that  to  obtain  any  satisfactory  results,  the  number  of  sides 
must  increase  greatly.    At  this  moment  the  instructor  should  introduce 
this  program  and  explain  to   the  class  that  the  program  will  increase  the 
number  of  sides  of  a  regular  polygon  and  compute  the  area  of  each  new 
figure.    A  table  is  printed  giving  the  areas  of  both  inscribed  and  circutn- 
scribed  regular  polygons  and  also  the  number  of  sides  for  each  area. 
The  students  can  readily  see  that  the  machine  has  eliminated  the  tedious 
calculations.     Now,  have  the  students  calculate    the  area  of  the  rircle 
using  the  formula  and  make  a  comparison  of  results;  thus,  the  students 
can  observe  that  the  areas  of  the  polygons  approach  the  are'x  of  the  circle* 
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pISC  JSSION!    (con' t) 

If  students  had  taken  a  unit  circle,  they  would  have  observed  a 
rnethod  for  approximatirxg  "  pi"  • 

Due  to  machine  operation,  the  value  of  "  pi"  was  used  to 
convert  degrees  into  radians-         avoid  any  circular  reasoning,  the 
instructor  can  use  half.^^gie  formulas  to  eliminate  "  pi"  from  this 
program. 
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OF  A  CtaCLS  USXMS  tMSKiniJmt  MD  CIBCUNf^caiBCO  BSMLAR  POLYMMS 
••••• 

WAT  IS  TMS  BAOfUS  OT  THK  GIBCLKT  110 

iMSCaiBBO  CIBCUNSCaiBBD      MUMBSB  OT      IMSCRIBBO  CiaCUHSOIIBKD 

ABSA  ABBA  SIDBS  %  BBBOR  '  8  BBROB 

1B9*9039  S19*«14«  3  "5f*65  M'A 

BS9*B07f  34«*409t  6  •lT*d  1C.87 

B99«9t 3ai«93BT  19  -A'Sl  B*39 

WV  MANY  SXCBS  DO  YOU  THtNlC  ABB  BBSOBO  TO  APPBOXINATB 
1«  ABBA  Of  THIS  CIJICLXt  100 

313«99B3  314*8«84  100  -.OT  •03 

WLD  YOU  Lint  TO  TBY  AMOTHSB  MUMBBR  OF  SIDXS  C1*YXS«  0*N0>?  1 
HOW  NAHY  SIOXS  DO  YOU  THIHB  ABB  HSBDSD  TO'APPBOXIHATB 
1HB  ABBA  Of  THIS  C:BCLBt'lB« 

THAT  HAHY  SIDES  IS' VALID*  BUT  MOT  MBSBSSAaY  fOB  A 
«O0  AprBOBINATIOM.    USB  10000  AS  TUB  HAXlnuM  MUHBBB. 
HOV  MAHY  SIDBS  DO  YOU  THIBX  ABB  HBBOSD  TO'APPBOKIHATB 
1MB  ABBA  Cf  THIS  CIRCLBt  ' MOOO 

314. 1S9  31     -v9  10000  0  0 

VOULD  YOU  LIKB  TO  TBY  AMOTHBH  HUBMB  Of  MfiCS  C1*YBS«  0-»0>t  0 
WWLD  Y0«  UBB  TO  THY  AMertMl  nS9SffS  «l<^Yt««  0-MO>T  1 

«•«•• 

WAT  IS  THS  HADIU8  OT  THB  ClBCLCf  1000000 

mt  HADXOS  VIIX  VOBK*  DOT  OSS  A  HUMfeBA  LIS*  THAM  1000  c 

MIAT  IS'TMB  BAOIUS  OT  THE  CIHCLEt  999 

WSe«li^:30          CIBCUMSCRXBED      MUHBBB  Of      IHSCBIBED  CSSSUH8CBIBED 

SIDES  s  BBaOB  '  S 


l.B904«3E*«      9.1S07S4B««           3                •9S*«B  *S*4 

••S9BS«IB««      3*4971 T3E*«           9                -IT'S  10*87 

fl.994001E«9      3.808940B«9           18              -A^Sl  8«S9 

mn  MAHY  SIDES  DO  YOU  THIBK  ABE  HEEDED  TO  AffHOXIHAn 
WE  AHEA  or  THIS  CiaOLEf  10000 


3*13B3I0E««      3el39310E«0  10000 


nObE  YW  UBE  TO  THY  AH8THEH  HUMES  Of  SlBES  CS*YES«  0-HO>T  0 
YOU  UBB  TO  THY  AHOTHBH  BADIUS  (l*YEs«  0-E8)t  0 


^83 


Math 
PI2 


100  BKN  IIXUSTaATIOM  OT  UNITS  USIM  ClBCLSS  Mm  F01.YMM 

101  UM  asvisiD  t/s/io  co;  p%ssml> 

kO%  BW  tWMlTAIlT'VARIAiUKSt  Al«IISCaiB»  AUAI  M-CIWIMSaiIUr> 

104  m  AASAi  m-actOM.  msai  Pi«t  tiumi  tr  ah  pt«s  naoA  o»*  At 

no  FAINT  "ANSA  OT  A  CIN6I.B  (ISINt  INSGJUBBD  AND  CIBCINUCMBKD  ""I 

lU  FUNT  "ASWUUI  FOLtMVS"  '  ... 

lit  FAINT 

Hi  FAINT  ''•mmmm^ 

lU  FAINT 

liO  FAINT  "IMAT  IS  TNB  AAOIUS  OF  TAB  CIACUTI 

IAS  Iltf'VT  A  ' 

IST  IF  A^IOOO  THAN  131 

IAS  FAINT  "ANY  AAOIUS  VI U.  VOAX#  MIT  USB  A  NUNNSA  LXSS  THAN  1000 #** 
1S9  SO  TO  ISO  ' 

130  INPUT  A 

131  IF  A>««1  TMBN  ISA 

13A  FAINT  "AAOIUS  SAOUU)  AB  AT  UAST  #111" 

133  M  TO  ISO  ^ 

134  LBT  A3«i3#lAU«A«A 
13$  FAINT 

135  FAINT 

140  FAINT  "lNSCB»Bir#"CIBCUNSGAIABXr#*'    NUHIBA  0F«# 

141  FatNT  "lNSCBtABir#"CtACUHSCAlABir 

ISO  FBINT  "'  AASA-#-  AABA"#*        SIOBS"#"  %  BBAOB"^*'      %  BAAOA" 

ISS  FAJ»T 

ISO  FOA  IM  TO  A 

170  LBT  N-3«CStA> 

m  SOSUN  liO 

177  NBXT  X 

17S  SO  TO  A40 

ITS  ABM  OOirUTATlON  SUNAOUTINB  iUmtB  ISO-AAOI 

ISO  LBT  L«A«A«SIAf;i«141S9/N} 

190  LBT  Al-AMOS<3«Ul8f/N>*N«L/S 

AOO  LBT  AA«N#CBfB>«TANC3*141S9/N> 

AOS  LBT  F1bCCA1«A3>/A3J0100       '  * 
AOS  LBT  FA^CCAA«-A3>/A3>«100 

SIO  FAINT  A1#AA#"      "IN#INTCF^«100^«S>/100#  INT(FA»AOd^«r ;  '^cfa'^ 
StO  ASTUAN 
AAO  FAINT 
SSO  FAINT 

AiO  FAINT  "NOV  MANT  SIABS  DO  TOU  THINK  AAB  VSMDltD  TO  ^Pl^-^^^mrST 

ASl  FAINT  "TVS  AABA  m  THIS  CIACLB"! 

ASA  lAFUT  m  ' 

SS3  IF  N»1BS  TK8M 

ASA  IF  N^S  TN8N  SS4 

ASS  to  TO  A7S 

ASS  FAINT  "TW  NOMSA  OT  SIDBS  SMOULA  AS  AT  LBAST  THABBI 1" 

iS7  M'TO  ISO  ... 

ASS  FAINT  "THAT  MANT  SIABS  IS  «ALID#  NUT  NOT  NAC8S9ARY  FAA  A" 

ASS  FAINT  "SO«A  AFFBSAINATIM*     U$B  ISOPO  AS  THA  NAAtHUN  NUHABA.'' 

SIS  AS  TS  ASS 

ATS  FAINT 

ATA  LBt  NBlNr^^«S> 
ATS  NS8IO  ISO 
SAO  FAINT 

ASS  FlUNT  "VOIA^  TOU  LIXB  TO  TAY  ANOTABA  NUHNSB  OF  SIVUT^ 

ASS  FAINT  "  i  1-YBS#  0-M>"l 

SAT  INPUT  01 

ASS  IF  AIKI  TNSN  ASO 

AiO  FAINT  "VOOLA  YOU  LIBB  TO  TAY  ANOTMBA  AADIU»  C1-TBS#  0-NO>"l 
ASl  INPUT  OA 
B93  FAINT 
A94  FAINT 
AOS  FAINT 

S9S  IF^QAH)  TUBN  lAO 

^^1 


DISCIPLINE     ^fATHEMATICS  9,  10,11,12,13 

SUBJECT     PLOTTING  A  GRAPH  

PROGRAM  NAME  PLOTTR 


DESCRIPTION; 

This  program  plots  the  graph  of  any  function  (analytically 
defined)  which  the  operator  inputs  into  the  program. 


OBJECTIVES: 

A.      To  check  a  student*  s  plotting  procedures. 

B-       To  obtain  a  quick  plot  of  an  involved  function. 

PRELIMINARY  PREPARATION; 

A.       Student  -  Knowledge  of  coordinates,  and  plotting  procedures. 
B-       Materials  -     graph  paper  for  plotting 

DISCUSSION; 

The  operator  inputs  any  analytic  function,  along  with  the  lower 
and  the  upper  limits  for  x  and  the  interval  to  appear  on  the  x-axis. 

The  type-out  positions  x-values  on  the  vertical  axis,  and 
y-values  on  the  horizontal  axis. 

The  points  typed  out  may  be  connected  by  a  smooth  curve,  and 
the  graph  may  be  rotated  90"^  to  give  the  usual  positioning  of  a  function 
of  X. 

It  should  be  noted  that  because  the  carriage  spacing  is  discrete, 
many  smooth  curves  may  appear  slightly  jagged. 


29 


Mathematics 
PLOTTR 


In  the  third  sample  run,  a  plot  is  made  of  a  rather  complex 
transcendental  function.     It  is  worth  mentioning  that  this  plot  is 
obtained  as  easily,  using  this  program  as  is  that  of  the  function 

The  teacher  should  notice  also,  that,  in  this  third  sample 
run,  we  have  founii  two  of  tlie  roots  of  the  function 
Y^X+L0G(2*(SIN(X))  2  )-l . 5xC0S(X) 

(at  X-1  and  X^2.9y).  This  program  may  be  used  foi  f'inding  the  roots 
o*'  such  difl'icult  funcioris. 
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THIS  PaOSBAN  VILL  OBAPH  A  FUMCTION  OF  X  BETVKBM  AMY  LIMITS 
(A  AM'B)  YOU  CU00SB#  VITU  AN  ZNTBB^AL  OP  YOUR  CHOICE  (I> 
BKTVBBM  SUCCBSSIVS  WALUBS  OP  X;  IP  YOU  TYPE  TUB  pOiXOWlOOs 
1  00  TO  800 

OBO  OBP  PMY<X>-..*(YOUB  PUMCTIOM  OP  X>... 
B30  UIT  A«...<TOUB  HWAI.LBB  LINIT  OP  X)... 
840  LET  B«...CYOUB  LARgBB  LIMIT  OP  X>;.. 
BSO  LET  I«...<YOaR  X>IMCBBMSVT>*** 
RUM 


BBAOY 

1  00  TO  880 

890  OBP  PNY<X>«SIN(X> 

830  LET  AfO  ' 

840  LET  B«7 

890  LET  I—S 

RUM 

X 

V 


L 
U 
B 

S  -  -  -  -  Y-VALUBS  -  -  -  - 

-3                        -1.5  0  i.S 

I  1  ■«•  1  1  1  .♦— 

0  .                 .  -  ^  - 

•5  I  * 

1  X  • 
1*9  X  • 
8  X  * 
8*9  I  * 

3  I* 
3.5  *  I 

4  *  t 
4*9  *  X 

5  *  X 
B«9  *  X 

0  ♦  1 
••8  I  * 

1  I  ♦ 


•IBl  THE  SIX  l'»  OM.TMB  MOBIBOMTAL  Y-AXIS  BBPBBSBMTt 

#-B  #-i  #  o;  I  #  8" 


BBAOY 


880  DSP  PMY(X>aX 
830  LST  A«-l  ' 
MB.  LIT  B-9 
BSO  LST  I«l 

mm 
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1  GO  TO  220 

220   DEF  FNY(X)=X+L0G(2*(S1N(X) > t2)-l .5*C0S<X/2) 

230  LET  A»0 .5 

240  LET  B»3. X 

250 LET  1=0.1 

RUN 

X 


V 
A 
L 

U 
£ 

S  -   -   -   -  Y-VALUES  -   -  -  - 

-3  -1.5  0  1.5 

1-  1  -  +  1  1-  1  +  1 

.5  ♦  I 

•  6  ^  I 

•  7  ♦  1 
.6  .  ♦  1 
.9                                                                                ♦  1 

1  # 

1.1  1  ♦ 

1.2  I  ♦ 

1.3  I  ♦ 
1.4i  I  ♦ 

1.5  1  ♦ 

1.6  I 

1.7  1  ♦ 

1.8  1  ♦ 

1.9  1  '  ♦ 

2  I  ♦ 

2.1  I  ♦ 

2.2  I  * 

2.3  1  * 

2.4  1  ♦ 

2.5  1  ♦ 

2.6  I  ^ 

2.7  1  ♦ 

2.8  1  ♦ 

2.9  1  * 

3  ♦  1 
3.1                                ♦  I 


fWTES   THE  SIX   l*S  ON  THE  HORlilONTAL  Y-AXIS  REPRESENT! 
*-2*-l*0*l*2 
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iiSUiDY 

I  GO  TO  220 

220  UEF  FNy(A)«LOG<<SlNCX)) f2) 

230  LET  A«l 

240  LET  Ba3 

250   LE  :    1=0.  i 

hUN 


V 
A 
L 
U 
E 

S  -    -   -   -   y-VALUES  -   -   -  - 

-5  -3.5  -2  -.5 

1  1  +  1  1  +  1 

1  ♦  I 

1.1  ♦  I 

1  .2 

1  .3  ♦! 
1  .4  # 
1  .5  « 
1  .6  ft 
1.7  ft 
1  .b 

1  .9 

2  ^  I 
2.r  4>  I 
2*»2^                                                                                                                         ^  1 

2.3  %  I 

2.4  %  I 

2.5  ^  I 

2.6  %  I 

2.7  '  ^  1 
2.6                                                                                                  :4c  J 

2.9  I 

3  ♦  1 


note:  the  six  I'S  THE  HOHliiONTAL  y-AAlS  HEPRESENT; 
-5  ^-3   >-2   ^-1    ^  0 


HEADy 
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110  BM  OUXirriM  «l*  0*C0HN0IU  COMMCK  K#f«llO«TH#  BKVISBD  UULy#1969 
118  ABM    HSVISCO  BY  C*LOSIX  6«7-10 

116  RBM   a#b;i  abb  SBLT-BXPLAIMTORY 

117  BBM  AUTOMATIC  SCALINB  AMD  A  FLOATIMB  AXIS  ABB  USBP* 

ItOFBINr*        THIS  PBOiBAM  VILL  ttAPH  A  rtUMCTlOM  OT  X  BBTVBBN  ANY  LIMITS' 
ISOPBINT'CA  AMD'B>  YOU  CMOOSB#  VITH  AN  INTBBVAL  OF  YOUB  CHOICB  (I)** 
140PBXNmiBTtfBBN  SUCCBSSIVB  VAUIBS  OF  x;  IF  YOU  TYPB  THX  FOlXOVmat** 
150  FAINT"  1  00  TO  BBO'' 

ISO  PMMT^  800  DBF  FNY(X>«««  •(YOUB  FUNCTION  OF  X)«««** 

ITO  PRimV  830  LBT  A««««<TOUA  aNAlLFB  LIMIT  OF  Xl«««" 

160  PRIMT*  840  LBT  B««**<YOUB  LAIIOBR  LIMIT  OF  X);**** 

S90  FBINT*  890  LBT  I-**«(YOUR  X-INCRSMBNT)***'* 

MO  FAINT"  Wtr 
810  STOP 

880  DBF  FNY(X)iOC 
830  LBT  A«-l  * 
840  LBT  Bm9 
848  IF  A«B  THBN  890 

844  PAINT  "YOUR  *A»  NUST  BB  LXSS  THAN  YOUR  *B**" 

844  STOP 

890  LBT  1*1 

840  LBT  L*FNYCA> 

870  LBT  U*FNY(A> 

8S0  FOR  X»A  TO  B  STBP  I 

890  LMt  Y«FNY(X> 

300  IF  Y-L<0  THIN  380 

31000T0  330 

380  MSUB3S0 

330  IF  Y-UM)  THIN  390 

340  80  TO  340 

390  80SUB  400 

340  NIXT  X 

370  80  TO  480 

380  LBT  L«Y 

390  BBTUBN 

400  LBT  U«T 

410  BBTUBN 

4i0  IF  IMTCU>-U-0  THBN  490 

430  LBT  U1-IMT(U>^1 

440  00  TO  440 

490  LBT  Ul-U 

440  LBT  LI^INTCL) 

470  LBT  D^l-LI 

4S0  IF  INTCD/9I-O/9U0  THBN  970 
490  FOR  K«l  TOO 
800  LBT  Ll-Ll-1 
910  LBT  p-Ol-Ll 

580  IF  INT(0/S>-D/9-O  THBN  970 
930  LBT'Ul-Ul^l 
940  LBT  Di^l-Ll 

990  IF  INTC0/8>-D/9«0  THBN  970 

940  NBXT  K  ' 

910  LBT  B«D/9 

980  PRINT  "X" 

990  PRINT 

400  PRINT  "V" 

610  PRINT  "A" 

600  PRINT  "L" 

630  PRINT  "ir 

640  PRINT  "I" 

690  PRINT  "S                                       .  -  •  -  Y-VALUBS  -  -  -  -" 
440PftlMT^                          "LIj^  "iLl^I«U9j"    "ILI^IO#"  "IL1^IM*B 
670PR1NT"  I  •i— i-*  I  -i-I  •  I-l 
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671  PftlMT  

MO  iW  UlPO  Wtt  lOM 

MO    tn  a«Illt<<-Ll>«<10/B>^»9> 

100  Mr  nrCY>«IllT<<Y-Ll>#<10/t>^»5> 

710F08  X^A  TO  O  STKP  {  -  - 

100  FMim# 

700  ust  Y«rirr<x> 
MO  ly  Y>»o  TMni  oso 

700  FAINT  TA0<19^nP<Y>>l~***ITAB<0^1S>l~I** 
040  00  TO  1000  •  • 

OSO  ir  T>0  TMIM  OAO 
OM  PaiHT  TAOCO^IS)!**^ 
•00  00  TO  1000 

OIC  POIHT  TA0<15«a>|»I»ITA0<lS^PMP<Y))l~«~ 
1000  VtXT  X 
1010  00  TO  1100 

logo  rOR  XmA  TO  0  STV  I  « 

1030  PBIIiTX# 

1000  LIT  Y*  rilY<X> 

lOSO  POINT  TABCIVT<CY-L1>«<10/I>^«9>^14>I«'«~ 
1090  HOST  X 

1100  PRiirr 

1110  PAIHT  **N0TSI  TAX  SIX  I ON  TAI  AOAIXONTAL  Y-AXIS  AIPAXSXNTl~ 

1100  PAINT  Lll~#"ltUSI^#~Ji;i^K«fll<*#»lLI^XOI<^«»lU^tMI"#~ILl^X«$ 

1000  AND 
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DISCIPLINE  MATHEMATICS,  GEN>    9th  YR 

SUB  J  EC  T  PRIME  FACTOR  

PROGRAM  NAME  PRIFA  


DESCRIPTION: 

This  program  finds  the  prime  factors  of  any  given  integer,  or 
prints  "  is  prime"   if  the  integer  has  no  proper  divisors. 


OBJECTIVES: 

A.  To  display  to  the  studait  the  prime  factors  of  a  large  number  of 
integers,  giving  the  students  a  chance  to  discover  relationships. 

B.  To  use  the  motivation  of  the  computer  to  teach  the  method  that  the 
program  uses  to  find  the  prime  factors. 


PRELIMINARY  PREPARATION: 

A.  Student  -  Should  understand  the  meaning  of  composite,  prime, 
factor,  and  prime  factor. 

B.  Materials  -  If  you  desire  to  use  this  program  with  a  group,  a  means 
Fy  which  the  output  can  be  displayed  is  necessary. 


DISCUSSION: 

The  speed  with  which  the  computer  operates  in  this  program 
gives  the  student  an  opportunity  to  make  generalizations  based  upon  many 
more  observations  then  heretofore  was  possible.    The  question  can  be 
asked:    "  By  what  method  does  the  computer  find  the  prime  factor?"  A 
flow  chart  would  be  highly  useful  at  this  point,  not  only  in  developing  the 
method  for  finding  a    prime  factor,  but  also  in  understanding  the  mathematical 
logic  behind  this  method. 
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PRIFA 


THIS  PROGRAM  WILL  GIVE  YOU  THE  PRIME  FACTORS  OF  ANY 
VHOLE  NUMBER.      IF  YOU  WISH  TO  STOP  THE  PROGRAM^   ENTER  A 
^ERO  FOR  THE  NUMBER. 

VHAT  IS  THE  NUMBER  ?    10  5 

105  3     5  7 

WHAT  IS  THE  NUMBER  ?  72 

72  2     2     2     3  3 

WHAT  IS  THE  NUMBER  ?  69 

89  IS  PRIMK 

WHAT  IS  THE  NUMBER  ?  47 
47  IS  PRIME 

VHAT  IS  THE  NUMBER  ?  155 

155  5  31 

WHAT  IS  THE  NUMBER  ?  362 

362  2  Ibl 

WHAT  IS  THE  NUMBER  ?  0 

READY 
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Mathematics 
PRIFA 


100  HEM  V.   TEh'h'EH  WVANDANCH  H.5« 

105  HEM     KEVISED  BY  C.LOSIK  b-lO-70 

106  HEM     M  IS  Iril!;  NUMBEK^   AC  I  >  AKE  ITS  FACTOHS 
110  REM  ADAPTATION  OF  TWO  PROGHAMS 

120   HEM  THIS  PHOGRAM  FINDS  THE  PRIME  FACTOHS  OF  ANV  GIVEN  INTEGER 
130   REh  AND  PRINTS  PRIME   IF  IT  HAS  NO  PROPER  DIVISORS 
140   DIM  AClOO) 
150  LET  C=0 

160  PRINT  "THIS  PROGRAM  WILL  GIVE  YOU  THE  PRIME  FACTORS  OF  ANY" 
170  PRINT  "WHOLE  NUMBER.      IF  YOU   WISH  TO  STOh»   THE  PROGRAM*   ENTER  A" 
172  PRINT  FOR  THE  NUMBER." 

17/i  PRINT 

IttO  PRINT  "WHAT   IS  THE  NUMBER  "i 
190   LET  X=0 
200   INPUT  M 

205  IF  ABS<M-INT<M+.5>)<.0001   THEN  210 

206  PRINT  "WHOLE  NUMBERS  ONLY^  PLEASE." 
20  7   GO  TO   I  bO 

210  PRINT 

215   IF  M<=0    THEN  4  70 

220  PRINT  M# 

230   LET  1=1 

240  LET  1=1+1 

245   IF   I>M  THEN  310 

250   IF  M/I<>INT(M/I)    THEN  240 

260   LET  A^X+l 

270  LET  ACX)=I 

iTbO  LET  M«M/I 

300   GO  TO  250 

310   IF  Xal   THEN  360 

320  FOR  L=l   TO  X 

330  PRINT  ACDJ 

340  NEXT  L 

350   GO  TO  370 

360  PRINT  "IS  PRIME" 

370  PRINT 

380  PRINT 

385   GO  TO  IbO 

"H)   INPUT  B 

^iO   IF  Bal   THEN  :bO 

420    IF  B=0   THEN  4  70 

430  PRINT  "   TYPE   1    OR  0  AS  INSTRUCTED" 
440   LET  C=C+1 
460   GO  TO  4C0 
470  END 
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DISCIPLINE  MATHEMATICS  12,  13 
S UB JE CT  ANALYTIC  GEOMETRY 


PROGRAM  QUADRT 


DESCRIPTION; 

This  program  determines  the  nature  of  the  graph  of  Ax^  +  Bxy  + 
Cy2  T  Dx  t  Ey  +  F  =0,  after  the  operator  inputs  the  six  constants  (A, 
B,  C,  D,  E,  F).    Limiting  cases,  such  as  a  point  or  a  line,  are  separ- 
ated from  the  general  cases  so  that  the  computer  type-out  gives  the 
exact  nature  of  the  graph. 

OBJECTIVE; 

To  permit  exploration  of  the  properties  of  the  second-degree 
equation. 

PRELIMINARY  PREPARATION; 

A.  Student  -  should  have  a  reasonable  knowledge  of  conic  sections, 
second  -  degree  equations  in  two  unknowns,  invariant  functions 
of  the  coefficients  under  transformations,  etc. 

B.  Materials  -  An  overhead  projector  along  with  a  transparency  of  the 
flow  chart  would  be  desirable, 

DISCUSSION: 

Before  running  the  program,  the  teacher  should  discuss  the 
general  form  of  a  second-degree  equation  in  two  variables,  the  functions 
of  the  coefficients  used  in  the  program,  and  the  implications  of  the 
flow  chart. 

The  discussion  of  the  flow  chart  for  this  program  enhances  the 
understanding  of  the  problem. 

The  type-out  serves  as  a  check  on  students'  efforts  in  ident- 
ifying second-degree  equations. 
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THIS  PROORMl  DETEiMIIilS  TUB  MATURB  OP  THK  ORAPH  OTt 
EMTBR  YOUR  CONSTANTS  IN  THE  ORDBR  LISTBD  ABOVE* 
7  5#6#5#0#0#0 

WE  ORAPH  OP  YOUR  EQUATION  IS  A  SINGLE  POINT* 
IWOTHER  RUN  ( i-YES#  0-N0>   t  ?  1 

ENTER  YOUR  CONSTANTS  IN  THE  ORDER  LISTED  ABOVE* 
t  5#8#5#0#0#36 

THERE  IS  NO  REAL  LOCUS  POR  YOUR  EQUATION* 
ANOTHER  RUN  Ci»YES#  0«N0>   I  ?  1 

ENTER  YOUR  CONSTANTS  INTTHE  ORDER  LISTED  ABOVE* 
7  0#5#0#0#0#9 

1HB  GRAPH  /P  YOUR  EQUATION  IS  A  HYPERBOLA* 
ANOTHER  RUN  C1«YES#  0«N0>  t  7  0 


READY 
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100  BtM  aUMTIN  J.O*C0MIIO«»  COMHACK  U*8*IIOaTU«  JULY  !•«  19*9 
103  RIM    nVISU  BY  C.LOSIK  ••T*10 
105  fUM    A«B;C«D«B«r  An  AS  IM  BQUATtOH 

110  PRINT  "        THIS  PROIRAH  0BTBBMIMB8  THB  HATURB  OP  THB  ORAPH  OP  I** 

ISO  PRIMT  **  A«XtR4B*X*Y4C*TtB«0*B«B*T«P-0" 

ISO  PRIMT  "        BMTBR  YOUR  COMSTAMTS  IN  THB  ORDBR  CI9TBD  ABOVB*** 

140  PRIMT  "  " 

190  IMPUT  A«S«C«D«B«P 

1<0  IP  A«A4B*B«C*C«0*D«S*B«P*P»0  TUBM  810 

170  PRIMT*        VITR  ALL  YOUR  COMSTAMTS  BOUAL  TO  £BRO«  ANY  VALUBS  OP  X- 
180  PBXNr*ANI>  Y'VILL  SATISFY  YOUR  BQUATION*  IN  OTHBR  HOBOS*  YOUR" 
190  PRlNr*«RAPH  IS  A  COMPLBTB  PLANB."     -         -  ' 

mo  ao'TO  S90 

810  IP  A«A<»B«B4C*C«0*I>^B*B^  THBN  900 

880  IP  A^«B*B«C*C>0  THBN  840 

830  00  TO  400 

840  LBT  I«A«C 

880  LBT  Bl«4«A*C-B*B 

860  LBT  •l«4*A*C«4«C*P«4*A«P-B*B-D*D-B*B 
870  LBT  P«4*A*C*P«B*D*B*A*B*B''C*D*D-P*B*B 


YOUR  BOUATION  IS  AN  BLLIPSB**^ 


YOUR  BOUATION  IS  A  SIN8LB  STBAI8HT  LINB**^ 

YOUR  BOUATION  CONSISTS  OP  8  PA8ALLBL  LINBS*** 

YOUR  BOUATION  CONSISTS  OP  8  INTBRSBCTINS  LINBS*** 

YOUR  BOUATION  IS  A  SINBLB  POINT*" 

YOUR  BOUATION  IS  A  CIRCLB*" 
490  80  TO  880 

900  PRINT  "THBRB  IS  NO  8BAL  LOCUS  POR  YOUR  BOUATION*" 
810  80  TO  880  ' 

880  PRINT  "THB  IRAPH  OP  YOUR  BOUATION  IS  A  HYPBRBOLA." 
830  80' TO  880 

840  PRINT  "THB  8RAPM  OP  YOUR  BOUATION  IS  A  PARABOLA*" 
890  PRINT 

880  PRINT  "ANOTHBR  RUN  <1«YBS«  0«HO>  I  "I 
870  INPUT  A 
878  PRINT 

880  IP'A«1  THBN  130 
890  IP  A<»0  THBN  880 
400  BNB 
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880  IP  P-0  THBN  380 
890  IP         THBN  840 
300  IP  M<0  THBN  880 
310  IP  I4P>0  THBN  800 
380  IP  A<»C  THBN  340 

330  IP  nmo  nam  480 

340  PRIMT  "THB  ORAPH  OP 
380  80  TO  880 
380  IP  K»0  THBN  480 
370  IP  X<0  THBN  440 
380  IP  «H0  THBN  480 
390  IP  «l>0  THBN800 
480  PRINT  "THB  ORAPH  OP 
410  80'TO  880 
480  PRINT  "1MB  IRAPH  OP 
430  80'TO  880 
440  PRINT  "THB  ORAPH  OP 
480  OO'TO  880 
480  PRINT  "THB  ORAPH  OP 
470  00' TO  880 
480  PRINT  "THB  ORAPH  OP 


DISCIPLINE     MATHEMATICS  9th  YEAR 

SUB  J  EC  T  PROPORTIONS  

PROGRAM  NAME  RATIO 


DESCRIPTION; 

This  program  solves  a  proportion  of  the  type  A/  B  =  C/  D.    A,  B, 
C,  or  D  can  be  unknown. 

OBJECTIVES; 

A.  To  teach  the  student{s)  the  relationships  in  a  proportion. 

B.  To  aid  in  teaching  the  solution  of  p -oportions. 

PRELIMINARY  PREPARATION; 

A.  Student  -  no  particular  preparation  necessary 

B.  Materials  -  see  discussion 


DISCUSSION; 

The  student  is  given  the  opportunity  to  see  any  number  of  solutions 
to  proportions.    The  program  then  asks  a  series  of  questions  designed 
to  allow  the  student  to  discover  that  in  a  proportion,  the  product  of  the  means 
equals  the  product  of  the  extremes.    The  program  can  be  used  either  with 
individual  students  or  with  an  entirie^  class  depending  upon  the  availability  of 
equipment  to  display  the  output,    Th«  running  time  varies,  defending  upon 
the  number  of  proportions  you  wish  to  solve.    In  10  to  15  minutes,  the  program 
can  be    run  with  about  100  proportion  problems.    Included  in  this  time  is  a 
built-in   variable       pauje  for  observation  of  the  tabulated  results. 
Another  value  of  using  this  program  is  that  the  teacher  can  easily  handle 
numbers  in  proportions  that  heretofore  were  too  difficult. 
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WIS  paooMM  SOLVES  roa  tmb  umioiowi  m  tux  pbopobtion 

A/B  AS  C/D.  USS  A  ZKRO  AS  A  DUMMY  VALUI  fOR  THB  UHHNOIM* 

WV  MANY  PMPORTlOifS  DO  YOU  VISil  TC  SOLVSt  4 
MAT  AM  THB  VALOtS  POA  A#A#C;Df  3#l^#e#9 
YOV  POMOT  TO  XMPUT  A  ZMM  HUL  YOUA 
UNMOlif*     TRY  A«AIM*T  3#4#«#0 

3  /  4    AS    S  /  0 
MAT  ARB  TUB  VAUIBS  POR  A#R#C#DT  1#10#0#S0 

1  /  to    AS   .5  /  SO 
WAT  ARB  TUB  VALUBS  TOR  A#B#C#DT  36#0#l#i 

34/78    AS    1  /  a 
WHAT  ABB  TUB  VAUIBS  POR  A#R#C#D7  0#48#3#5 

•  7  /  45    AS    3  /  5 


TABS  A  MOD  LOOK  AT  THB  PROPORTIONS*    TUB  TVO  MIDDLE 
POSITION  MMBBRS  ARB  CALLED  THB'*NBANS«;  TUB  TVO 
MB  POSITION  MUMDERS  ARB  CALLED  THE  •BBTRBNBS'* 

LOOK  AT  THB  •MBAMS*  AND  THB  •EBTRBNES*  SBE  IP 

YOU  CAM  PIM)  SOME  BIND  OP  RELATIOHSHIP  RBTVBBH  THiM. 

WBN  TOU  IHIHK  YOU  RAVE  POUND  A  RELATIONSHIP  BBTVEEN 

1HB  •MEANS*  Am  TUB  •EXTREHES%  TYPE  I  AMD  HIT  THE  RETURN  BEY. 

t  I   '  • 


DID  YOU  SEE  THAT  IP  YOU  MULTIPLY  TUB  •MEANS* 

sm  MULTIPLY  THE  *EXTRBMBS«#~TKB  PRODUCTS  ARB  E0UAL7 

IN  TMB  LAST  PROPORTION    4S  X  3  EQUALS  07  B  i 

OHBCR  THE  OTHBBS#  TOO.     IMEN  YOU  ARB  READY  TO  CONTINUBtf 

TIPE  1  AND  HIT  THE  RSTURN'KBY. 

7  1 


ir  YOU  WISH  TO  UW  THIS  PBO«MM  AOAIM  TTPB  1«  IP  MOT  TYPB  O 
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iOO  MM  V*  TVPXn  VYAmMyiCH  -  MATHIMTieS 

los  am  asviscD  by  c.losik  0-s«io 

10#  RM    A/B  -  C/0#  TOTAIXT  01VI0US#    ALSO  USB8  fOSW  TO  SINULAYt  FAUSB 
110  BIM  tflXS  PROOBAN  SOLVBS  POB^TMB  UMQIOIBI  IN  TUB  PflOPOBTlOir 
ISO  BBM  OP' TUB  TYPt  A/8  AS  C/D 

130  PBXNT  "THIS  PBOOBAN  SOLVBS  POR  THB  UNKMW  IN  TUB  PRCIPORTIOir 

140  PRimr  **A/a  as  c/d«  usb  a  uro  as  a  dummy  valw  roR  thb  umbboim*** 

ISO  PRXVT  ... 

160  PRIMT  **HOV  NANY  PROPORTIONS  DO  YOU  VI5H  TO  SOLAS'*! 

1?0  WUT  N 

ISO  POB  Kml  TO  N 

190  PRINT  "WAT  ARB  THB  VALUBS  POR  A#B#C#D"I 

OOO  la^UT  A#B#C#D 

aiO  IP  A«0  THBN  B70 

BfiO  IP  B-O  TRBN  090 

030  IP  C«0  THBN  310 

BM  IP         TRBN  330 

850  PRINT  "YOU  POROOT  TO  INPUT  A  ZBRO  POR  YOUR** 

8S5  PRINT  "UNMNOVM*     TRY  AOAlN.**! 

860  BO  TO  BOO 

B70  LBT  A«B>»C/D 

BiO  00  TO  340 

B90  LBT  B^«D/C 

300  00  TO  340 

310  LBT  C<^>»D/B 

300  00  TO  340* 

330  LBT  D«B>»C/A 

340PBINT"  *  ••JtA*»/"B'»  AS  ••C''/"D 

34S  NBXT  X  - 
390  PRINT 
360  PRINT 

310  PRINT  "TAXB  A  OOOD  LOOK  AT  THB  PROPORTIONS*     THB  TVO  MlODLB** 
3S0  PRINT  "POSITION  NUNBBRS  ARB  CALLBO  THB*  •MMikMS^i  TUB  TVO" 
390  PRINT  "BND  POSITION  NUMBARS  ARB  CAI„|,tP  TUB  *BXTRBNBS*  •" ' 

399  PRINT  * 

400  PRINT  "LOOK  AT  THB  *NBANS'  AND  THB  *BXTRBNBS*     -        SBB  IP" 
410  PRINT  "YOU  CAN  PtND  SOMB  R.XNO  OP  P.S&Jlf:Oi:^IP  BBTIRBN  TUBN«" 
480  PRINT  "WBN  YOU  THINK  YOU  R^VB  POUND  A  RSLATION^IP  BBTOBBN" 
430  PRINT  "THB  *NBANS*  AND  TUB  *BXTRBNBSS  ^r,       '  " 

490  OO'SUB  «10 

460  PRINT  "DIB  YOU  SBB  THAT  IP  YOU  NULTIPLX  THB  *MBAKS*" 

410  PRINT  "AND  MULTIPLY  THB  *BXTRBMBS%  TKB  PROOOCTS  ARB  BOUAL?" 

479  PRIMT 

460  PRINT  "IN  THB  LAST  PROPORTION  "B'*X'*C"BOUALS*'  A'^X'^D 

490  PRIMT  "CHBCK  THB  OTHBRS#  TOO*     WBN  YOU  ARB  RBADT  TO  CONTINUBj" 

910  OO'SUB  610 

940  PRIMT ' 

990  PRINT  "IP  YOU  VISU  TO  USB  THIS  PROGRAM  AOAIlf  TYPl  is  IP  MOT  TYPX  O** 

960  IirUT  X' 

910  IP  X*l  THBN  800 

980  IP  X«0  THBN  640 

990  PRINT  "TTPB  1  OH  O  AS  DIRBCTBD*" 
600  00*  TO  960 

610  PRINT  "TYPB  1  AND  HIT  THB  RETURN  XBY#«* 

680  INPUT  X 

683  IP  XoX  THBN  680 

689  PRINT 

687  PRINT 

630  PRINT 

639  RBTURN 

640  BND 


DISCIPLINE  MATHEMATICS 
SUBJECT      QUADRATIC  EQUATIONS 
PROGRAM  NAME  ROOTS2  


DESCPIPTION; 

This  program  de.^^cribes  the  nature  of  the  roots  of  a  quadratic 
equation,  and  finds  the  I'oois  whether  real  or  complex. 

OBJECTIVES! 

A.  To  familiarize  the  s;':udent  with  quadratic  function. 

B.  To  review  and  drill  exercise.  ..  to  study  the  nature  of  roots. 

C.  To  emphasize  that  roots  of  f(x)  =  0  are  the  same  as  x-intercepts  of 
f(x)  =  y. 

D.  To  impress  the  student  with  [^eometric  interpretation(8)  of  the 
nature  of  roots. 

E.  To  provide  **lead-in**  material  for  the  introduction  of  further  study 
of  the  real  number  line,  the  real  cartesian  plane,  complex  numbers, 
quadratic  inequalities,  etc. 

PRELIMINARY  PREPARATION: 

A.  Student  -  The  teacher  can  use  thn  program  to  introduce  the  students 
to  the  quadratic  formula,  to  conclude  discussion  of  the  quadratic 
formula.  .  .  or  both. 

B.  Materials  -  none 


DISCUSSION; 

The  program  uses  the  * 'disc  riminant"  to  determine  the  nature 
of  the  ro  ^'wS  of  the  quadratic  equation.    Regardless  of  the  nature  of  the 
roots,  cne  student  is  asked  to  graph  y  =  F(x),  and  to  compare  his  graph 
with  the  kind  of  roots  he  finds  for  a  specific  F(x)  =  0.    He  should  be 
impressed  with  the  picture:  and  he  should  understand  (ultimately)  the 
reasonableness   and  validity  of  the  analytic  methods  presented  in  class. 
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WIS  PBOOflAM  HANDLES  ALL  POSSIBLE  CASES  OP  SOLUTION  OP  THE  EQUATION  I 

A*Xt8    ♦    B*X    ♦    C    ■  0 
TYPE  IN  YOUR  VALUES  POB  A*  B»  AND  C  I  ?  l«»«d 
DI8CUNXNANT  IS  UtSS  THAN  ZEBO*  SO  ROOTS  ARE  INAOINARY. 

ifiKY  Are  op  the  porn  t    P^I*Q  •  P-I*0  •  VUEBB'i 
P  —1  0  -  l.AUiU' 

90  YOU  UMIT  ANOTHER  RUN  <  0  -  NO  •  1  -  YES  f  8  T  1 

TYPE  IN  YOUR  VALUES  POR  A*  B«  AND  C  I  7  1«7«3 

OXSCRINIHANT  IS  SRBATER  THAN  ZERO*  SO  ROOTS  ARE  REAL* 

ROOTS  ARE  XI  AND  X8  « 

XI  — '•49SCUT  XR  --6.541Mt 

DO  YOU  Niurr  another  run  <o-no«i»ybs>iyi 

TYPE  IN  YOUR  VALUES  POR  A*  B#  AMD  C  •  Y  X»6»9 
BISCRINIHANT  IS  EQUAL  TO  ZERO*  SO  ROOTS  ARE  EQUAL*    X  —3 

BO  TOU  niUIT  lUIOTHER  RUN<0-N0#1«YES>IT1 

TYPE  IN  YOUR  VALUES  POR  A*  B«  AND  C  I  T  8«S«6 

DISCRININANT  IS  8REATER  THAN  ZERO*  SO  ROOTS  ARE  REAL* 
RMTS  ARB  XI  AND  XB  • 

XI  '     X8  —3 

BO  YOU  NMrr  ANOTHER  RUN  <  0  -  NO  •   1  -  YES  >  •  T  0 
IKADY 
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IQQ  urn    'lUS  ULTIMATI  QlMOMilTIC  SOI.VBB*  UNTIL  THS  NtXT  VBRSION 
110  BIN    CMABLIS  LOSIKj  HB»  t/ai/10«  MSIC 

lao  PRINT  "THIS  PROOAAN  HANDLES  ALL  POSSliLI  CASES  OP  SOLUTION  OP**l 
US  PRINT  ■  tai  EQUATION 
190  PRINT 

140  PRINT  "  A*Xta«R*X«C-0" 
190  PRINT  " 

IM  PRINT  "TYPE  IN  YOUR  VALUES  POR  A,  B»  AND  C  I  **l 
US  REN    liPUT  VALUES  POR  A«R«C 

170  INPUT'A«N«C 

171  PRINT 

m  REN    POR  ALL  CASES*  CHECK  A-0.  IP  SO*  THEN  LINEARITY 

110  IP  A^  THEN  flOa 

US  AEN    0  IS  THE  OISCAININANT 

190  u:t  D«B*B-4*A*C 

195  ;^T  Z"a«A 

RM  IP  D«0  THEN  710 
aiO  IP  D»0  THEN  610 
90O  SSH  iNAttlNARY  RESULTS 

310  PRINT  "DISeRINlNANT  IS  LESS  THAN  SERO*  SO  ROOTS  INA6INARY." 
SaO  PRINT  "TREY  ARt  OP  THE  POdH  I    P«I*0  •  P-I*Q  •         '•E  l"  ' 
330  PRINT  "P  ■"•R/S«"0  -*S0R(ABS<D>>/2 
340  aO  TO  000 

too  REN    0»0«  SO  REAL  ROOTS 

010  PRINT  "DISCRININANT  IS  OREATER  THAN  ZERO*  SO  ROOTS  ARE  REAL." 

600  PRINT  "ROOTS  ARE  XI  AND  XR  ." 

630  PRINT  "XI  •'■i-R4SQR<D>>/2«"Xa  -**<-B-SQR<D>>/£ 

660  OO'TO  900 

7B0  REM    EOUAL  ROOTS  <0«0> 

710  PRINT  "BISCRININANT  IS  EQUAL  TO  ZERO*  SO  ROOTS  ARE  EQUAL*    X  -"-B/2 

700  OO'TO  900      '  ' 

too  REM    A*0«  SO  Xa-C/V#  UNLESS  B^ 

mo        R«»0  THEM  tlO 

009  IP         THEN  §07 

a04  POlWt  "MEANINOLESS  STATEMENT*" 
096  00  TO  900  ' 
007  PRIP/T  "0K#  EERO  -  ZERO*" 
OOS  OO'TO  900 

010  PRINT  "THE  EQUATION  IS  UNEAR.    X  -"-C/B 

900  PRlNT 

901  PRINT  TAB< 30 >!"•••" 
900  PRINT 

910  PRINT 

900  PRINT  "DO  YOU  BANT  ANOTHER  RUN  C  0  -  NO  «   1  -  YES  >  I  "J 
930  II#UT  t  ...... 

940  IP  tmi  THEN  190 
990  IP  t4»0  THEN  900 
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DISCIPLINE  MATHEMATICS  -  JR,  HIGH 
SUBJECT      INTERSECTION  AND  UNION 


OF  SETS 


PROGRAM  NAME  SETS 


DESCRIPTION: 

This  program  finds  the  intersection  and  union  of  any  two 
numerical  sets. 


OBJECTIVES: 

A.  To  motivate  students  to  find  the  union  and  intersection  of  any  two 
sets. 

B.  To  learn  the  logic    involved  in  finding  the  union  and  intersection. 

PRELIMINARY  PREPARATION: 

A.  Student  -  no  sp^icial  preparation  necessary. 

B.  Materials  -  see  discussion 


DISCUSSION: 

This  program  may  be  used  with  individuals,  small  groups,  or 
class -size  groups.    The  elements  of  the  two  sets  are  entered  as  per 
instructions.    Incidently,  one  or  both  of  the  sets  may  be  empty.  The 
computer  then  types  back  the  elements  in  the  union  and  intersection.  The 
speed  with  which  the  computer  operates  enables  the  students  to  see  a 
great  many  examples,  giving  them  the  opportunity  to  make  discoveries  about 
what  is  the  union  and  what  is  an  intersection  of  two  sets.    The  teacher  may 
use  the  flow  chart  that  follows  to  explain  the  logic  behind  finding  the  union 
and  intersection. 

It  is  suggested  that  when  used  with  large  groups,  a  supplementary 
device  be  used  to  display  output. 
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THIS  paOGHAM  FINDS  THE  UNION  AND  INTEHSECTION  OF  ANY  TWO 
NUMEHICAL  SETS* 

HOW  MANY  ELEMENTS  IN  THE  FIHST  SET?  5 


THESE  AHE   -   (HIT  THE  HETUHN  KEY  AFTEH  ENTEHING  EACH  ELEMENT). 

?  1 

?  2 

?  3 

?  4 

?  5 


HOW  MANY  ELEMENTS   IN  TrtE  SECOND  SET?  5 


THESE  AaZl 

?  2 

?  4 

?  6 

?  b 

?  10 


THE   INTERSECTION  CONTAINS     2  4 

THE  UNION  CONTAINS  2     4     6     b      10      I      3  5 


DO  YOU   WANT  ANOTnEH  HUN   (1=YES^   U=NO)    :    ?  1 
HOW  MANY  ELEMENTS   IN  THE  FiHST  SET?  b 


THESE  AHE   -   (HIT  THE  HETUHN  KEY  AFTExi  ENTERING  EACH  ELEMENT). 

?  1 

?  2 

?  3 

?  4 

?  6 

?  b 

?  10 

7  12 


HOW  MANY  ELEMENTS   IN  THE  SECOND  SET?  10 


THESE  AREt 

?  1 

7  2 

?  3 

7  4 

?  5 

?  6 

7  7 

7  8 

?  9 

?  10 


THE   INTERSECTION  CONTAINS     1      2     3     4     6     b  10 

THE  UNION  CONTAINS   123<l567byi0  12 


DO  YOU   WANT  ANOTHER  HUN  (l^YES^   0»N0)    :    ?  0 
READY 
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lOOHEM  W*   TEPPErl*    WYANDANCH  tiSs  7/29/69 
lOl   HEM     HEVIbED  BY  C-LOSIK  6-10-70 
103  DIM  A<30)^B<30) 

UO   rtEM     UP   TO  30   ELEMENTS  PEti  SET  ARE  ALLOWEDC  UNLESS  DIM   IS  CHANGED) 
l2UPaiNT"rHIS  PilOGHAM  FINDS  THE  UNION  AND   INTEHSECTIOM  OF  ANY  TWO" 
130PKINT"NUMEHICAL  SETS." 
140PrtINT 

150PHINT"     HOW  MANY  ELEMENTS  IN    fHE  FIHSI  SET"J 

16U INPUT  N 

163  IF  N»0   THEN  "230 

166  IF  NalNTCN)   THEN  170 

167  PHINT  "ONLY  AN   INTEGEH  NUMBEH  OF  ELEMENTS   IS  POSSIBLE." 

169  GO  TO  lAO 

170  IF  N<=30   THEN  IttU 

173  PHINT  "TrtE  MACHINE  CANNOT  HOLD  MOHE  THAN  30  ELEMENTS."; 

175  PHINT  "      SEE  YOUH  TEACHEH." 

177  GO  TO  690 

IbO    IF  N>U   THEN  lb9 

lb3  PRINT  "THEHE  CANNOT  BE  A  NEGATIVE  NUMBErt  OF  ELEMENTS." 
Ib6   GO  TO  140 
189  PHINT 

190PH1NT"THESE  AHE  -   (HIT  THE  HETUHN  KEY  AFTEH  ENTEHING  EACH  ELEMENT). 

200F0R  KalTON 

210INPUTA(K) 

220 NEXT  K 

230PHINT 

240  PHINT  "     HOW  MANY  ELEMENTS  IN  THE  SECOND  SET"J 

250 INPUT  J 

253   IF   J»0   THEN  550 

256  IF   J»INT(J)   THEN  260 

257  PRINT  "ONLY  AN  INTEGEH  NUMBEH  OF  ELEMENTS   IS  POSSIBLE." 

259  GO  TO  230 

260  IF   J>30   THEN  173 
270   IF   J>0   THEN  2  79 

273  PRINT  "THERE  CANNOT  BE  A  NEGATIVE  NUMBEH  OF  ELEMENTS." 
276   GO  TO  230 

279  PHINT 

280  PRINT"THESE  AHEl" 
290  FOR  Kl-ITO  J 

300   INPUT  BCKl) 

310  NEXt  Kl 

311  PRINT 

312  PRINT 

315   IF  N<»0   THEN  640 

320  PRINT  "THE  INTERSECTION  CONTAINS  "J 
330  FOR  K«l    TO  N 
340  FOR  L»l    TO  J 
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350   IF  A(K>=B(L>THEN  3bO 

360  NEAT  L 

370   GO  TO  400 

380  PUINT  A(K>; 

390  LET  X=X+l 

/DO'  NEAT  K 

4JlO    IF  A>OTHEN  4»30 

420  PRINT"     EMPTY   SET.... NO  ELEMENTS'* 
4130PRINT 

440  PHINT^THE  UNION  CONTAINS**; 

450  FOa  L«l    TO  J 

460  PiiINT  B(L>; 

470   NEXT  L 

4b0   FOH  K=l    TO  N 

490  FOH  L=l    TO  J 

500 IF  ACK>=b(L>TrtEN  530 

510  NEAT  L 

520  PHINT  A(K>; 

530   NEAT  K 

540   GO  TO  6yO 

550   IF  N<=0   THEN  620 

560  PHINT  ••INTEHSECTION  IS  EMPTY" 

570  PHINT  "UNION  CONTAINS"; 

560  FOH  K»l    TO  N 

590  PHINT  ACK>; 

600  NEXT  K 

610   GO  TO  690 

620  PHINT  "UNION  AND  INTERSECTION  AKE  EMPTY" 
630   GO  TO  690 

640  PHINT  "INTERSECTION  IS  EMPTY" 

650  PRINT  "UNION  CONTAINS"; 

660  FOR  K«l   TO  J 

670  PHINT  B(K>; 

680  NEAT  K 

690  PRINT 

700  PHINT 

720  PHINT  "DO  YOU  WANT  ANOTHER  RUN   U=YES#   0«N0>    :  "; 

730   INPUT  N 

740   IF  N-1    THEN  140 

750   IF  N<>0   THEN  720 

760  END 


EKLC 
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DISCIPLINE  ALGEBRA 


SUBJECT      S  I^^ULTA^fEQUS  -EQUATIONS 


PROGRAM  NAME 


SIKEQN 


DESCRIPTION: 

Tliis  pro*^ram  finds  the  simultaneous  solution  set  for  sets  of 
simultaneous  linear  equations  (up  to  10x10 ) 


OBJECTIVES: 

1.  To  eliminate  the  tedium  of  solution  of  sets  of  simultaneous 
equations. 

2 .  To  provide  a  means  for  checking  solutions  obtained  by  other 

means . 


PRELIMINARY  PREPARATIONS: 

Presentation  of  concepts  of  simultaneous  equations  and  methods 
for  finding  solutions. 
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mi>  *^rtOGxiAM  SOLVES  ANY  WUMBEH  OF  SETS  OF  SIMULTANEOUS 
EQUATIONS  OF  fO   10   EblUAXIONS  i^Eh  SET.     ENTEH  YOUrt  SETS 

OF  EQUATIONS   IN  DATA  STATEMENTS   IN  LINES  70U-bOU^ 
i^HECEDED  BY   THE  NUMBEH  OF  EQUATIONS   IN  EACH  SET. 
EAA^ii^LE3      TO  SOLVE  TrtE  :>ySiEM 

l^AC 1 )    +  2*A<2)   =  3 

/4*A<  1  )  +  9*A<ii)  =  10 
ENTEU  DATA  AS  FOLLOWS: 

7U0   DATA  2 

70  1    DATA  U2^J 

70a  DATA  A, ^,10 
THEN  TYPE: 

1    60  TO  UU 

HUN 

THE  COMPUTEH  WILL  PiilNT  A  MAIiilA  OF  YOUrt  EUUATIONS-f  FOLLOWED 
BY  THE  SOLUTION  TO  THE  EQUATIONS. 


HEADY 

7UU  DATA 

7U1    DATA  1,2,3 

102  DATA  A,  ^,10 

1   GO  TO   1 10 

HUN 

l  a  a 

4  y  10 

xc  1  )=  7 
X(   2   )=  -2 


HEADY 

TOO  DATA  2 

701  DATA  3>2>16 

702  DATA  -6>-'a>-32 
1   GO  TO  IIU 

HUN 

3  2  16 

-6  -/i  -32 

NO  UNIQUE  SOLUTION 
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HEADY 

7U0   DATA  3 

TUl   DATA  3*2*5^10 

702  DATA  -1*4*7^-21 

703  DATA  1*1,-1*14 
1  GO   TO  110 

rOJN 

3                           2  5  10 

-14  7  -21 

1                             I  -I  14 

A(  I  >a  7*413044 
X<  2  >=  2«956522 
AC   3   >=  -3.630435 


rtEADY 
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lU   UEMAKK     D.SOBIN*   BKLYN  r'OLY*  11-6^ 
15  HEM     rtEVlSED  BY  CLOSIK*  9-25-70 

20  h'KlNT  "THIS  PHOGHAM  SOLVES  ANY  NUMBEH  OF  SETS  OF  SIMULTANEOUS" 

25  PHINT  "EQUATIONS  OF  UP  TO   lU   EQUATIONS  PEH  SET.      ENTEn  YOUH  SETS" 

3U  PHINT  "OF  EQUATIONS   IN  DATA  STATEMENTS  IN  LINES  70U-bUU#" 

35  PHINT  "PiiECEDED  BY   THE  NUMBEu  OF  EQUATIONS   IN  EACH  SET." 

40  PHliNiT  "EAAMPLEZ     TO  SOLVE  THE  SYSTEM" 

45  PHINT  "      1*A(1)   +  2*A(2)   =  3" 

50  PHINT  "  1)    +   y*A(2)    =  10" 

60  PHINT  "ENTEH  DATA  AS  FOLLOWS:" 

62  PHINT  "      700   DATA  2" 

64  PHINT  "      701   DATA  1#2#3" 

66  PHirJT  "      702  DATA  4#y#  10" 

.70  Phi  NT.!' THEN  TYPE  :"     

72  PHINT"      1    GO  TO    1  10" 
74  PHINT  "  HUN" 

bO  PHINT  "THE  COMPUTEH  WILL  PHINT  A  WATHIA  OF  YGUH  EQUATIONS*  FOLLOWED" 
b5  PHINT  "BY  THE  SOLUTION  TO  THE  EQUATIONS." 
90  STOP 

100   DIM  EC  10* 1 1 AC  10) 

110   HEAD  N 

120    IF  N=0    THEN  999 

130  FOH  1=1    TO  N 

140  FOH  K^l    TO  N+1 

150  HEAD  EC  I *K) 

155  PHINT  £C 1*K)# 

160  NEXT  K 

165  PHINT  "  " 

170  NEXT  1 

lb5  HEMAHK     EVALUATE  MATHlA 

190   FOH  J=l    TO  N-1 

200    IF  ECJ#J)=0   THEN  560 

210   FOH  1=J+1    TO  N 

220   LET  U*ECI# J)/EC J, J) 

230   FOH  KoJ  TO  NM 

240   LET  EC  I#K)=iEC  I#K)-EC  J#K)*U 

250  NEXT  K 

260  NEXT  I 

270  NEXT  J 

340   HEMAHK  SOLVE  FOH  XCN) 
350    IF  ECN#N)=0   THEN  520 
360  LET  I-N+l 

370  LET  XCN)=ECN*I)/E<N#N) 

380  FOH  J=l   TO  N-1 

390  L£T  S=0 

400  FOH  K=l    TO  J 

410  LET  S=S+ECN-J#1-K)*XC I-K) 
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A20  NEAT  K 

430  LET  ACN-JJ^CECN- I J-SJ/ECM- J^N-J) 

440  NEAT  J 

450  HEMAHK  PHI NT  VALUES 

455  PRINT 

460  FOR  J=l   TO  N 

470  PRINT  "AC" J")=",A( J) 

4b0  NEAT  J 

.  500_-G0^T0-  530   ^   -    

520  PRINT 

525  PRINT  "NO  UNIUUE  SOLUTION" 

530  PRINT 

535  PRINT 

540  PRINT 

550   GOTO  UO 

560  FOR  T=   J+l   TO  N 

570   IF  E(T^J)<>0   THEN  600 

5b0   NEAT  T 

5V0    GOTO  520 

600   FOR  C:=J  TO  N+l 

610   LET  A«ECJ*C) 

620   LET  E(J*C)=ECT^C) 

630   LET  E(T*C)=A 

640   NEAT  C 

650   GOTO  210 

bOl    DATA  0 

9V9  END 
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DISCIPLINE  CALCULUS  -  GRADE  13 
SUBJECT    TANGENT  SLOPE  FOR 
ANY  FUNCTION 


PROGRAM  NAME  SLOPE 


DESCRIPTION; 

This  program  considers  a  function  which  is  differentiable  at  x=a, 
and  at  all  points  in  the  interval  [a,  a+  l]  ,  The  value  of  the  derivative  at 
X  =  a  is  approximated  through  secant  slopes. 

OBJECTIVES; 

A.  The  preliminary  discussion  of  the  method  whereby  the  machine  solves 
the  problem  enhances  the  students'  comprehension  of  the  techniques. 
These  techniques  are  then  used  in  developing  the  analytic  method  for 
finding  the  slope  of  the  tangent  line. 

B.  The  type-out  of  successive  approximations  to  the  tangent  slope  clarifies 
and  dramatizes  the  nature  of  the  limiting  processes. 

C.  Time-saving  factor  through  the  elimination  of  lengthy  computations. 

PRELIMINARY  PREPARATION; 
Materials 

The  diagram  below  may  be  shown  to  the  students  on  a  blackboard, 
or  an  overhead  projector,  to  explain  the  computations  geometrically. 
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a  a  +  2        a  + 1 


DISCUSSION: 


The  use  of  the  computer  and  the  attendant  discussion  of  the  program 
dramatically  introduces  the  idea  of  differentiation. 
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SKCAMT  SLOPI  OF  A  CURVB  -  TUB  PXaiVATIVS 

WIS  PBOQMN  CONSIOSaS  A  PUHCTIOM  OF  X  <Y«P<X>>  WICU  IS 
DIPrUSMTIABLS  AT'X-A  AVD  AT  ALL  POINTS  IN  TNS  INTfaVAL 
<A#A^1>.     THg  VALin:  OF  TUS  DBAIVATIOS  AT  X«A  IS' 
APPfiOXINATBD  THaOUfM  SSCANT  SLOPES  ^ 

APTKB  TKB  PROORAN  STQPS#  TYPB  IN  THt  FOLLOVlNai 

<gN9  8ACH  LINB#  INCLUDIMR  *BUNS  VITH  A  *CAtaIAtt  RBTUHN*) 

1  00  TO  300 

300  DSP  FNY<X>>...«<YOtm  FUNCTION  OF  X>«*«« 
RON 

FOR  SXANPLR#  TO  FIND  THE  SLOPS  OF  THS  EQUATION  Y>Xf3 
VOU  VOULD  TYPB  AS  FOLLOWS  I 

&  00  TO  300 

300  DBF  FNY<X>-Xf3 

RUN 


YOU  NIWt^  T^  AS  YOUR  FIRST  RUN* 

FOR  SOBSBQUBNT  fiUNS#  YOU  ONLY  CUANiB  LINB  300  FOR 

A  NBV  FUNCTION^  FOLLOVBD  NY  *RUN** 


RBADY 

1  M  TO  300 

300  DBF  FNYCX>-Xt3 


FOR  WAT  VALUB  OF  A  IS  TUB  SLOPE  TO  RE  BVALUATBOT  S 

*CUANNB  IN  X*  IS  TNB  DISTANCE  FROH  *A*#  AND  •CUANOB  IN  Y* 

IS  TRB  DISTANCE  FRON  •FCA)  *  UPON  WICR  THE  SLOPE  IS  CALCOLATED* 


QNUMB  IN  X 

CHANOB  IN  Y 

SECANT  SLOPE 

S  CRANtB  IN 

m     m  m  ^  m  m  ^  mm 

1/  1 

It 

««««««  mmmmm 
It 

NO  PREVIOUS 

1/ 

t 

?*sts 

is.as 

19.73St4 

1/ 

4 

3*3tOStS 

13*SMS 

11*0S8S7 

1/ 

0 

i.stsios 

ItvTSSSt 

5*S7S57S 

1/ 

U 

;773M1S 

lt*37itl 

3 •0093 70 

1/ 

3B 

•ssosttt 

ia*iss4S 

1.53SS4 

1/ 

M 

•IStttST 

It .00399 

•7751703 

1/ 

Its 

•OtAUMt 

It .04404 

•3S91031 

1/ 

BSS 

•OAStAMT 

IttOtSAT 

•1940049 

1/ 

SIB 

•0t34A03t 

lt*0117t 

•09771940 

1/ 

10B4 

•OUTRAAT 

lt*00SSS 

•04070049 

1/ 

BOAS 

5*tA0t0SE-3 

lt*00t93 

•00440015 

00  YOU  VISN  TO  USB  A  DIFFERENT  VALUE  OF  X  <1-YBS#  0-NO>t  0 
TO  CHANOB  TOUR  FUNCTION  SEE  TRB  INSTRUCTIONS^ 
IF  YOU  ARB  FINISHBN#*TYPE  MS  AND  TRB  •RETURN*  NBY 
mSR  TRB  PROOtAN  STOPS^ 
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100  MM  SECANT  SLOPE  OP  A  CUaVB  •  Q.        0*CONIfOR  ••18-68 

101  MEN  aSVISEO  t-T-TO  (0*  PESSBL)     (COHBINATIOII  OP  SLCUtt  AMD  OlPPfl) 
lOfl  BEN  UVORTAMT  VAftlABLSSi     S-StGA»T  SLOPtI  P-PBBCENT  CUANOEI 

103  BEN  D-CHAMOB  IN  Xi  Y-CMANSB  IN  Y 
105  LET  Sl-0 

110  PBINT  TABdOlloSBCANT  SLOPE  OP  A  CURVE  -  THE  DERIVATIVE** 
IftO  PRINT  ... 

130  PRINT  '■THIS  PROORAN  CONSIDERS  A  PtMCTION  OP  X  (Y>P(X>>  VHICH  IS** 

131  PRINT  "DIPPERENTIABLE  AT~X-A  AMD  AT  ALL  POINTS  IN  THE' INTERVAL** 
13a  PRINT  '*(A«A«'1>.     THE  VALUE  OP  THE  DERIVATION  AT'XmA  IS*> 

133  PRINT  '*APPROXINATED  THROUOH  SECANT  SLOPES;** 

134  PRINT 

139  PRINT  **APTER  THE  PROORAM  STOPS*  TYPE  IN  THE  POLLOVINBl** 

140  PRINT  '*(END  EACH  LINE*  INCLUDING  'RUN**  VITH  A  •CARRIAQE  RETURN*)** 

141  PRINT 

14t  PRINT  **  1  GO  TO  300** 

143  PRINT  **  300  OEP  PNY(X>«. • . .(YOUR  FUNCTION  OP  X)...*** 
14S  PRINT  •*  RUN** 

144  PRINT 

-147  PRINT  "POB  BXANPLE*  TO  PIND  THE  SLOPE  OP  THE  EQUATION  Y>Xt3'* 
14B  PBINT  •*YOU  WOULD  TYPE  AS  POLLOVSl** 

149  PRINT 

150  PRINT  •*  1  GO  TO  300** 

151  PRINT  •*  300  OEP  PNYCXI-Xta** 

153  PBINT  "  BUN** 

154  PBINT 

155  PBINT  •*YOU  NIGHT  TBY  THAT  AS  YOUR  PIRST  RUN.** 

!§•  PBINT  '*POB  SOBSEQUENT  BUNS;  YOU  HEED  ONLY  CHANGE  LINE  300  POB** 
157  PBINT  "A  NBV  FUNCTION*  POLLOVBO  BY  •BUN**'* 
1«0  STOP  -  . 

B90  BEN  CALCULATION  OP  SLOPE  AND  PBINTOUT 
300  DSP  PHY(X>-X*3 

aOS  PBINT  •*POB  WIAT  VALUE  OP  A  IS  THE  SLOPE  TO  BE  EVALUATED**! 
304  INPUT  A  -  - 

310  PBINT 

311  PBINT  '■•CHANGE  IN  X*  IS  THE  DISTANCE  PBOM  •A^*  AND  'CHANGE  IN  Y^** 
SIB  PBINT  "IS  THE  DISTANCt  PBOM  'PCA)  •  UPON  WHICH  THE  SLOPE  IS  CALCO**! 

313  PBINT  •*tATEfi.**  -  .  .   

3U  PBlNT 

SI  7  PBINT 

3B0  PBINT  •*CHANGB  IN  X'*«'*CHANGE  IN  Y'*«'*SBGANT  SLOPE******  CHANGE  IN  SLOPE** 

3B1  PBINT  "  -•*#-—  -•»,"——  ..i...  i.  m 

410  POft  N>0  TO  11 
4B0  LBT  D*B*N 

430  LBT  Y«PNY(A«l/D>-rNY(A> 
440  LET  S«B*Y 

444  IP  SIM  THEN  447 

445  PBINT  '•1/«D«Y«S«'*N0  PRBVIOUS  VALUE** 
444  M'TO  4tS 

447  LBT  Pa((ABS(Sl-S>>/Sl>*100 

4S0  PBINT  '•I/"D#Y#S#P 

48S  LSt  Sl-S" 

450  NEXT  N 

470  PBINT 

4B0  PBINT  •*•••••** 

490  PBINT 

•00  PBINT  •*D0  YOU  VISH  TO  USE  A  OIPPEBSHT  VALUE  OP  X  (1-YES*  0-NQ>**l 

901  INPUT  OB 

90i  IP  BB>0  THEN  305 

510  PBINT  '•TO'CHANBE  YOUR  PUMCTION  SEE  THE  INSTRUCTIONS.'* 
IBO  PBINT  "IP  YOU  ABB  PINI SHED*  TYPE  'l*;  ABO  THE  •BETUBH*  KEY** 
530  PBINT  '*APTBB  THE  PBOtBAN  STOPS.'*  -  - 
540  BND 
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DISCIPLINE  MATHEMATICS  

SUB  J  EC  T      ALGEBRA(9TH  and  12TH  GRADE) 


PROGRAM  NAME  SQRT 


DESCRIPTION; 

This  program  finds  the  square  root  of  counting  numbers  up  to 
five  decimal  places. 


OBJECTIVES: 

A.  To  demonstrate  and  familiarize  the  students  with  aquare  roots. 

B.  The  method  utilizes  "  pinching"  'Tz  between  the  endpoints  of 
smaller  and  smaller  domains. 


PRELIMINARY  PREPARATION: 

A.      Student    -  1)  The  definition  of  square  root  as  the  inverse  operation 

of  squaring;  and  2)  Drill  in  estimating  square  roots  to  the  nearest  tenth, 
hundredth,  etc. 

B*      Materials  -  none 


DISC  USSION: 

This  program  provides  an    "  introduction  to,  "  and  a  "  review  of" 
evolution  and  involution.     Limiting  the  neighborhood  o£-fZ   to  find 
successively  closer  approximations  of  the  square  root  of  a  number, 
demonstrates  to  the  student  that  he  is  able  to  determine  the  square  root 
to  any  degree. 

The  program  may  be  effectively  utilized  for  introducing  the 
limiting  process. 
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PHOGHAM  FINDS  SQUARE  ROOT  OF  ANY  POSITIVE  NUMBER 

BY   *PINCHING*    IT   VI THIN  A  SMALLER  AND  SMALLER  INTERVAL* 


WAT  IS  THE  NUMBER  WHOSE  SQUARE  ROOT  YOU  SEEK?  54 


LOWER  LIMIT  UPPER  LIMIT 


0 

< 

SQ*RT* 

OF 

54 

< 

54 

5.4 

< 

SQ*RT* 

OF 

54 

< 

10*8 

7*02 

< 

SQ*RT* 

OF 

54 

< 

7*56 

7.344 

< 

SQ*RT* 

OF 

54 

< 

7*398 

7*344 

< 

SQ*HT* 

OF 

54 

< 

7*3494 

7*348319 

< 

SQ*RT* 

OF 

54 

< 

7*348859 

7*348427 

< 

SQ*RT* 

OF 

54 

< 

7*348481 

7*348465 

< 

SQ*HT* 

OF 

54 

< 

7*34847 

7*348469 

< 

SQ*RT* 

OF 

54 

< 

7*34847 

APPROXIMATION  NOW  CORRECT  TO  AN  ACCURACY  OF   1  *0000O0E-5 

YOU  MAY  USE  EITHER  7*348469  OR  7*34847  AS  THE  SQUARE  ROOT  OF 


U^T  TO  TRY  ANOTHER  NUMBER  (1«YES#   0«N0)    I   ?  1 


WAT  IS  THE  NUMBER  WHOSE  SQUARE  ROOT  YOU  SEEK?  39 


LOWER  LIMIT  UPPER  LIMIT 


0 

< 

SQ*RTo 

OF 

39 

< 

39 

3*9 

< 

SQ*RT* 

OF 

39 

< 

7*8 

6*24 

< 

SQ*RT* 

OF 

39 

< 

6*63 

6*24 

< 

SQ*RT* 

OF 

39 

< 

6*279 

6*2439 

< 

SQ*RT* 

OF 

39 

< 

6*2478 

6*24468 

< 

SQ*RT* 

OF 

39 

< 

6*2450  7 

6*244992 

< 

SQ*RT* 

OF 

39 

< 

6*245031 

6*244996 

< 

SQ*RT* 

OF 

39 

< 

6*245 

APPROXIMATION  NOW  CORRECT  TO  AN  "ACCURACY  OF  l*000000E-5 

YOU  MAY  USE  EITHER  6*244996  OR  6*245  AS  THE  SQUARE  ROOT  OF  39 


WANT  TO  TRY  ANOTHER  NUMBER  <1«YES>   0-NO)    t   ?  0 


READY 
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100     HEM     T*   BUaNS^   JOHN  GLENN  HS^  8-6*69 
llO     REM     REVISED  BY  CLOSIK  8-27-70 

120  REM     A-LOVER  LIMIT^   BsUPPER  LIMIT^   ^"STEP   IN  INTERVAL 

121  REM     E   IS  THE  ACCURACY  YOU  DESIRE 
125  LET  E-.OOOOl 

130  PRINT  "PROGRAM  FINDS  SQUARE  ROOT  OF  ANY  POSITIVE  NUMBER" 

140  PRINT  "BY    'PINCHING'    IT  WITHIN  A  SMALLER  AND  SMALLER  INTERVAL." 

150  PRINT 

160  PRINT 

170  PRINT  "WHAT   IS  THE  NUMBER  WHOSE  SQUARE  ROOT  YOU  SEEK"i 
18C   INPUT  Z 
165  PRINT 

190    IF  2>0   THEN  220 

200  PRINT  "YOUR  NUMBER  MUST  BE  POSITIVE  III" 
210   GO  TO  160 
220  PRINT 

230  PRINT  "LOVER  LIMIT"*"  "*"  "^"UPPER  LIMIT" 

235  PRINT  "  "*••  "*"  "*"  " 

240   LET  A«0 

250  LET  B«Z 

260  LET  S«(B-A>/10 

270  PRINT  A*"<  SQ.RT.  0F"2"<'SB 

275  IF  ABS<A«B-2)<E  THEN  360 

280  FOR  I«A  TO  B  STEP  S 

290   IF  2<I*I   THEN  310 

300  NEXT  I 

XI   LET  B-B't'lO 

302  GO  TO  260 

310  LET  B«I 

320  LET  A-I-S 

350   GO  TO  260 

360  PRINT 

370  PRINT  "APPROXIMATION  NOW  CORRECT  TO  AN  ACCURACY  OF"E 
380  PRINT  "YOU  MAY  USE  EI THER"A"OR"B"AS  THE  SQUARE  ROOT  0F"4i 
390  PRINT 
400  PRINT 

410  PRINT  "WANT  TO  TRY  ANOTHER  NUMBER  <1«YES*   0»N0)    I  "J 
420   INPUT  Z 

430   IF  2«1   THEN   150  • 
440   IF  2<>0   THEN  400 
450  END 
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DISCIPLINE 


MATIDBMATICS-TEACHER  ASSISTANCE 


SUBJECT 


ARITHMETIC  MEAN  (AVERAGE) 


PROGRAM 


STATAL 


DESCRIPTION: 

This  program  iinds  the  average  (arithmetic  mean),  median,  and  stand 
deviation  oT  i^'P  to  one  iiundred  numbers. 

OBJECTIVES: 

A.  To  familia^*^^^         student  with  the  concepts  of  arithmetic  mean 
(average),  niedian,  and  standard  deviation  of  a  group  of  numbers. 

B.  To  impress  '^i^^  VN/ith  tlie  speed  and  accuracy  of  tlie  computer  as  a 
calculatinl^  device. 

C.  To  provide  teachers  VN?ith  iiandy  means  of  computing  averages. 
PRELIMINARY  PlgPARAnQN: 

A.  Student:  -  ^^Arithmetic  mean",   '^average",  ''median'^  and  "standard 
deviation''  i""st  be  \N?ell-(le  finod . 

B.  Materials  -  ^one 
DISCUSSION; 

Given  N  temis,  "A(l),  a(2  )  ,  A(N-l),  A(N)'S  students  will  have 

learned  the  average  of  these  N  terms  is  ''A(l)-^A(2  h..  .A(N"l)+A(N)^\ 


The  pi'Ogram  px*i"ts  out  tlie  median  value  of  the  user's  data  when 
there  is  an  odd  number  of  data  values.    When  there  is  an  even  number, 
the  median  vai^-iG  printetl  is  the  average  between  the  N/2  and  the 
(N-f2)/2  terms. 

The  progrc»ni  sCJ^^^s  as  an  excellent  vehicle  for  drill  in  division  and 
addition,  and  helps  strengthen  the  concept  of  arithmetic  mean  (average). 

This  program       useful  in  demonstrating  a  simple  '"loop"  i-outine  for 
students  intei^G^ted  in  programming. 


N 
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MEAN#   MEDIAN^   AND  DEVIATION  OF  A  SET  OF  NUMBEHS. 

ENTER  YOUii  NUMBEHS   IN  DATA  STATEMENTS  ON  LINES 
1000   -  2U00.     FOH  EXAMPLE*   YOU  MIGHT  TYPE  t 

lOUO   DATA     l>2*3*4l     ETC*    ( YOUH  DATA  GOES  HEHE) 

WHEN  YOUA  DATA  HAS  BKEN  ENTEHED*      TYPE  S 

1   GO  TO  3U0 
RUN 

THEN  RELAX  WHILE  THE  MACHINE  GnlNDS  OUT  THE  ANSWERS* 

IF  A    'SUBSCRIPT  ERROR*  APPEARS*    INCREASE  THE  SIziE  OF  THE 
AK^^i^v    IN  LINE  295. 

WARNING  —  THE  NUMBER  9999   IS  USED  AS  AN  INTERNAL  DATA 
VALUE.      IF  THIS  VALUE   IS  ONE  OF  YOUR  DATA  VALUES*  SIMPLY 
RE-TYPE  LINES  999  AND  2001   WITH  A  COMMON  DATA  VALUE  WHICH 
YOU  WILL  NOT  USE. 


READY 

1000  DATA  244* lb2* 112*2* 19b* 10*314* 169* lb*3b 

1  GO  TO  300 

RUN 


THESE  ARE  YOUR  NUMBERS  : 

244     182     112     2      19b      10     314     169      lb  3b 

THESE  ARE  YOUR  NUMBERS  (HIGHEST  TO  LOWEST)  J 
314     244      196      182      169      112     3b      18      10  2 


NUMBER  OF  VALUES   IS  10 

SUM  OF  THE  VALUES  IS   128  7 

THE  MEAN  VALUE  IS  126.7 

THE  MEDIAN  VALUE   IS  140.5 

THE  STANDARD  DEVIATION   15  209.5409 


FOR  ANOTHER  RUN*   RE-ENTER  DATA  ON  LINES 

1000   -   2000*   TAKING  CARE  TO  ELIMINATE  OLD  DATA 

BY  TYPING  THOSE  LINE  NUMBERS   WHICH  YOU  DO  NOT  USI;.  AGAINi 

THEN  TYPE  'RUN*. 


READY 


1000 
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100     REM     CHAHLES  M.   LOSIK#   BKLYN  POL'i,  MEAN-MEDIAN-DEVIATION 
110     HEM     C7-66   IN  FOHTKAN  ID   ;    Cb-26-70   IN  BASIC) 
115  HEM  HEVISED  9-24-70 

120     HEM     YOU  PUT  YOUH  NUMBERS  IN  DATA  STATEMENTS  AND 
130     REM     YOU  GET  WHAT  YOU  PAY  FOR. 

14lO  PRINT  "  "#"MEAN#  MEDIAN*  AND  DEVIATION  OF  A  SET  OF  NUMBERS." 
150  PRINT 

160  PRINT  "  ENTER  YOUH  NUMBERS  IN  DATA  STATEMENTS  ON  LINES" 

170  PRINT  "   1000   -   2000.     FOR  EXAMPLE*   YOU  MIGHT  TYPE  I" 

171  PRINT 

172  PRINT  "  "#"1000  DATA     U2*3*4i     ETC*    CYOUR  DATA  GOES  HERE)" 

173  PRINT 

174  PRINT  "   WHEN  YOUR  DATA  HAS  BEEN  ENTERED*      TYPE  :" 
160  PRINT 

190  PRINT  "  "*"1    GO  TO  300" 
200  PRINT  "  "*"RUN" 
210  PRINT 

220  PRINT  "   THEN  RELAX  WHILE  THE  MACHINE  GRINDS  OUT  THE  ANSWERS." 
222  PRINT 

225  PRINT  "   IF  A    "SUBSCRIPT  ERROR*  APPEARS*    INCREASE  THE  SIZE  OF  THE" 
227  PRINT  "  ARRAY   IN  LINE  295." 
230  PRINT 

2410     REM     ACI>   ARE  THE  NUMBERS*    S  IS  THEIR  SUM* 
250     REM     S2   IS  THE  SUM  OF  THEIR  SQUARES* 
260  REM 

270  PRINT  "    WARNING  --   THE  NUMBER  9999   IS  USED  AS  AN  INTERNAL  DATA" 

275  PRINT  "   VALUE..      IF  THIS  VALUE  IS  ONE  OF  YOUR  DATA  VALUES*  SIMPLY" 

2b0  PRINT  "  RE-TYPE  LINES  999  AND  2001    WITH  A  COMMON  DATA  VALUE  WHICH" 

285  PRINT  "  YOU  WILL  NOT  USE." 

290  STOP 

295  DIM  AC  100) 

300  PRINT 

30  3  PRINT  "  THESE  ARE  YOUR  NUMBERS  :" 
305  LET  I«l 
310  READ  E 

315  LET  S»0 

316  LET  S2-0 
320  READ  ACI> 

330   IF  E  ■  ACI>   THEN  370 

340  PRINT  AC  I >  J 

345  LET  S  -   S  +  AC  I > 

347  LET  S2  «   S2  +  ACI>    *  ACI) 

350  LET   I   «  I    +  1 

360   GO  TO  320 

370  LET  N  »  I    -  1 

380  PRIWT 

390  PRINT 

399  REM     ♦♦♦♦♦  BUBBLE  SORT***** 

400  PRINT  "   THESE  ARE  YOUR  NUMBERS   CHIGHEST  TO  LOWEST)  t" 
405  FOR  I   «    1   TO  N  -  1 
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410  FOH  J  »   I   +   1   TO  N 

<|20    IF  AC  I)    >  A<J)   THEN  460 

4|30   LET  T  »  ACI) 

440  LET  AC  I)   a  AC  J) 

450   LET  ACJ)   a  T 

460  NEAT  J 

465  PRINT  AC  I)  ; 

470  NEXT  I 

475  PHINT  ACN) 

4b0  PRINT 

490  PRINT 

500  PHINT       NUMBER  OF  VALUES  IS"iN 
510  PRINT       SUM  OF  THE  VALUES  IS";S 
520  PRINT       THE  MEAN  VALUE  IS"   i   S  /  N 
530  PRINT       THE  MEDIAN  VALUE  IS"  ; 
540   IF  N  /  2  <>   INT   C   N  /  2   )   THEN  5  70 
550  PRINT   C   ACN/2)    +  AC C N+2 ) /2 ) ) /2 
560   GO  TO  600 
570  PHINT  ACCN+l)/2) 

600  PHINT  "  THE  STANDARD  DEVIATION  IS"  ;   SUR  iN*SQ*S*S^/N 
610  PRINT 
620  PRINT 

630  PHINT  "  FOR  ANOTHER  RUN^   HE-ENTEH  DATA  ON  LINES" 

640  PRINT  "    1000   -  2000^   TAKING  CAHE  TO  ELIMINATE  OLD  DATA" 

642  PRINT  "  BY  TYPING  THOSE  LINE  NUMBERS  WHICH  YOU  DO  NOT  US?  AGAINi" 

645  PRINT  "   THEN  TYPE  'HUN'." 

650  STOP 

999  DATA  9999 

2001   DATA  9999 

2010  END 

READY 
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DISCIPLINE    MATHEMATICS,  SOCIAL  STUDIES 


SUBJECT         THE  STOCK  MARKET 


PROGRAM  NAME  STOCK 


DESCRIPTION: 

This  program  simulates  the  stock  market.  Each  student  is 
given  $10,000  with  which  he  may  buy  and/or  sell  shares  in  five 
fictitious  issues. 

OBJECTIVES; 

A.  To  give  the  student  a  simple  understanding  of  the  oper- 
ations of  the  stock  market. 

B.  To  motivate  the  student  to  reinforce  his  basic  arithmetic 
skills. 

C.  To  give  an  example  of  the  use  of  everyday  mathematics 
and  economics  in  everyday  life. 

PRELIMINARY  PREPARATION; 

A.  Student  -  no  special  preparation 

B.  Materials  -  possibly  graph  paper 
DISCUSSION; 

This  program  can  be  used  as  a  good  motivation  device  in  the 
teaching  of  basic  stock-market  concepts,  and  the  basid  mathemat- 
ical skills  involved.    The  computer  starts  each  student  with  .$10, 000, 
and  allows  him  to  buy  and/or  sell  shares.    Precautionary  tests  are 
included  for  the  student  who  tries  to  purchase  more  shares  than 
he  has  money  for,  or  to  sell  more  shares  than  he  actually  owns. 
The  program  continues  for  as  many  trading  days  as  the  student  de- 
sires. 

The  stock  values  rise  and  fall  on  a  semi-random  basis.  On 
each  trading  day  all  stocks  undergo  a  small  random  price  change, 
a  trend  change  (based  on  a  random  trend),  and  the  possibility — 
on  a  random  basis — of  a  large  price  change.    The  structure  of  the 
formula  is; 

new  price=old  price  +  (trend  x  old  price)  +  (small  random  price 
change)  +  (possible  large  price  change) 
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The  trend  is  a  random  number  between  -,1  and  +,1,    It  remains 
constant  for  a  random  number  of  days,  at  which  time  the  trend  is 
changed  randomly.    The  trend  affects  all  stocks  equally,  and  attempts 
to  simulate  general  market  trends.    The  small  random  change  ranges 
between  -3  and  +3  points.     It  occurs  every  day  to  every  stock. 
The  possible  large  price  change  is  either  +10  or  -10  points.  The 
+  and  -  changes  each  occur  at  random  day  intervals,  and  to  random 
stocks.    That  is,  there  may  be  no  large  change  on  some  trading  days, 
only  a  +10  change  on  others,  a  -10  change  on  still  others,  and  both 
large  and  small  changes  on  others.     In  all  large-change  cases,  the 
change  affects  only  one  random  stock  when  it  occurs. 

Because  ol'  the  random  generation  of  stock  values  and  their 
fluctuations,  the  program  does  not  exactly  simulate  the  real  market. 
It  does,  liowever,  provide  a  simplified  view  of  what  does  happen, 
and  familiarizes  the  student  with  the  basic  functions  involved.  This 
should  be  explained  to  the  students,  along  with  some  real  causes 
of  stock-market  fluctuations. 

Graph  paper  might  be  used  to  plot  the  daily  stock  values  and 
the  exchange  average.     In  this  way,  the  trend  will  become  evident. 


70 


6    Copyright  I97I,  Polytechnic  Institute  of  Brooklyn 


2  '■■ 

*-  -  u 


Math 
STOCK 


THI  STOCK  MARKET 
DO  YOU  MMT  THI  INSTRUCTIONS  (YtS-TYPI  l»  NO-TYPI  0)?  1 

THIS  PROORAM  PLAYS  THE  STOCK  MARKET*     YOU  VI U.  BE  QIVEN 
S10«000  AND  NAY  BUY  OR  SELL  STOCKS*     THE  STOCK  PRICES  WILL 
BC  OENBRATKD  RANDOMLY  AND  THEREPORB  THIS  MODEL  OOtS  NOT 
aiPRSSBNT  EXACTLY  WHAT  HAPPENS  ON  THE  tXCHANW*    A  TABLE 
OP  AVAILABLE  STOCKS*  THtIR  PRICES*  AND  THE  NUMBER  OP  SHARES 
IN  YOUR  PORTPOLIO  VILL  BE  PRINTED*    POLLOVINQ  THIS*  THE 
INITIALS  or  EACH  STOCK  VILL  BE  PRINTED  VITH  A  QUESTION 
NARX;    HERE  YOU  IIOICATB  A  TRANSACTION*     TO  BUY  A  STOCK 
TVPE  ♦NNN*  TO  SELL  A  STOCK  TYPE  -NNN«  MHERB  NNN  IS  THE 
NUMBER  OP  SHARES*    A  BROXERAtE  PES  OP  If  VILL  BE'CHAROED 
ON  iALL  TRANSACTIONS*     NOTE  THAT  IP  A  STOCK*S  VALUE  DROPS 
TO  SERO  IT  MAY  REBOUND  TO  A  POSITIVE  VALUE  ABAIN*  YOU 
IMVB  S10;000  TO  INVEST*     USE  XNTEttWS  POR  ALL  TOUR  INPUTS* 
CNOTEI     TO  SET  A  •PEEL*  POR  TRE  MARKET  RUN  POR  AT  LEAST 
10  DAYS) 

— — OOOD  LUCKI  

STOCK  INITIALS  PRICE/SHARE 

INT*  BALLISTIC  MISSILES  '   IB^  8S*TS 

ABO  CROSS  OP  AMERICA  ECA  85*5 

UCHTENSTBIN*  BUMRAP  A  JOKE      LBU  195*85 
MttRICAN  BANKRUPT  CO*  ABC  138 

CENSORED  BOOKS  STORE  CBS  104*85 

NEV  YORK  STOCK  EXCHANOE  AVERASEl  113*75 

TOTAL  STOCK  ASSETS  ARE      S  0 
T9TAL  CASH  ASSETS  ARE        S  10000 
TOTAL  ASSETS  ARE  S  10000 

WAT  IS  YOUR  TRANSACTION  IN 

liMT  a 

aCAT  3 

I 

MKT  1 
GBST  1 


BHD  OP  DAY'S  TRADIN8 


ERIC 


STOCK  PRICE/SHABE  HOLDINtS  VALUE  NET  PRICE  CMAHfE 

im  M*9  8  193  10*75' 

RCA  81  3  E43  -4*8 

IMii  153*9  1  153*5  -1*75 

ABC  139*5  1  139*5  -8*9 

CBS  99  t  99  -9*85 


NEV  YORK  STOCK  EXCHAMEE  AVERAEEl     113*1        NET  CHANVI  -*95 

TOTAL  STOCK  ASSETS  ARE      S  884 
TOTAL  CASH  ASSETS  ARE        S  9188*85 
TOTAL  ASSETS  ARE  %  •««0*85 

00  YOU  WISH  TB  CONTXNUB  (YES-TYPE  1«  NO-TYPE  0)7  1 
AT  IS  TOUR  TRANSACTION  IN 

*,JM7  5 

RBA9  1  ^-7 
IMJl  I  . 
O  ABe7  1  71 

ami  0 


Math 
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BHD  or  MY*S  TRADIlie 


STOCK  PBICB/SUAAB  HOLOIMS  VALUB  NBT  PRICB  CHAHOB 

IM  9t.75  7  691.a5  8.85 

aCA  08.5  4  330  1.5 

154  8  300  .5 

133.S  8  8#7  -8 

108.75  1  108«75  3*75 


my  Yoax  stock  bkckamob  avbb4«ki    ii4.9      mst  cjmnobi  i.s 

TOTAL  STOCK  ASSETS  ARB      S  1699 
TOTAL  CASK  ASSBTS  ABB        S  •305.83 
TOTAL  ASSETS  ARE  S  10004.83 

00  YOU  VISH  TO  COHTmUB  <YBS-TYPB  1#  NO-TYPB  0)7  1 

WAT  IS  TOUR  TRANSACTION  IN 

I8HT  3 

SCAT  8 

UUl  5 

ilNCT  -1 

G8ST  3 


BHD  or  RAY'S  TRADIH8 


STOCK  PRICB/SMARB  HOLDINRS  VALUE  NBT  PRICE 

IM  99.85   '  10   '  998#i  .5 

ABA  88.85  «  493.5  -•SS 

154.75  7  1083.85  .tS 

133.5  1  133.5  0 

103.85  4  413  .5 


MCV  YORK  STOCK  BXCUAN8E  AVBRA8BI     114.S        NBT  CUAN6BI 

TOTAL  STOCK  ASSETS  ARE      S  3115.75 
lOiiL  CASK  ASSBTS  ARE        S  M88.5 
TOTAL  ASSETS  ARB  S  9998.85 

NO  YOV  MSN  TO  CONTINUE  <YBS«TYP8  Is  NO-TYPE  0)7  1 
IT  IS  TOOK  TRANSACTION  IN 


IRHt  i 

RBA7  3 
IAI7  S 

mcj  3 

G8S7  4 


or  OAY*S  TRADIN8 


STOCK  PRICE/SHARE  HOLDINOS  VALUE  NET  PRICE  CHANOE 

IRH  94.79  15  '  14S1.85  -8.5  * 

80.5  9  784;9  -1.75 

ISO  18  1800  -4.78 

138  4  S88  -1.5 

98.75  8  790  -4.5 


mW  YORK  STOCK  BKCMANgE  AVERAOBl     111.4        NET  CNANOEi  -3 

TOTAL  STOCK  ASSETS  ARE  S  SR93.TS 
TOTAL  CASK  ASSBTS  ARE  S  4880.95 
TOTAL  ASSETS  ARE  S  9080.7 
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M  YOU  VI SH  TO  COMTINUK  (YtS-TYPX  Is  NO-TYPS  0>7  1 

MUT  IS  Torn  TBAMSACTIOH  IN 

UMT  0 

ACAT  -5 

LB«IT  -7 

MCT  0 

cast  -s 


IMP  or  DAY'S  TRADXNS 


STOCK 

IIN 

ABA 


OSS 


PBICB/SUAaX 
94.  7S 
•S*75 
150.75 

isa 

95.75 


HOLOINBS 
IS  ' 
4 
S 
4 
9 


VALUX 

tASi.as 
as? 

7S3.75 

sas 

aS7.85 


NBT  PBICB  CUAM8B 
0 

-13.75 

i75 

0 
-3 


NBW  YOBX  STOCK  KXCHANtK  AVKRAOBt  108.4 

TOTAL  STOCK  ASSKTS  ABK  S  3007.85 
TOTAL  CASH  ASSKTS  ARK  S  6455.74 
TOTAL  ASSKTS  ARK  S  9748.99 

00  YOU  WISH  TO  COHTIHUB  CYKS-TYPK  1«  MO-TYPK  0>T  1 
WAT  IS  TOUR  TRAMSACTIOM  IN 
I1H7  -10 

RCAt  -a 

LBJT  a 

iiacT  a 

COST  0 


MKT  CHAHOKt  -3.8 


XHO  or  OAY*S  TRADINO 


STOCK 


ttCA 


PRICK/SHARK 
S7.S 

ss 

135.85 

188.5 

9S.75 


HOLOIHQS  VALUX  MKT  PRICK  CHANSK 

"5    "  4,37.8  -9.85  " 

a  1j6  -S.75 

7  944. 7S  -15.5 

«  735  -9.5 

9  89«k8B  3 


MBV  YORK  STOCK  KXCHAKfK  AVKRAOKt  100.4 


MKT  CHANOKt  -8 


TOTAL  STOCK  ASSKTS 
TOTAL  CASH  ASSKTS  ARK 
TOTAL  ASSKTS  ARK 


S  8531.5 
S  S974.5S 
S  9SOS.0S 


00  YOU  Visa  TO  CONTIMUX  <YKS-TYPX  1«  MO-TYPK  0>T  1 
WAT  IS  TOOK  TRAMSACTIOM  IM 
IMT  i4 
lOAT  -1 
UMT  -4 

AKt  -a 
CMi  -a 
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mo  or  MY's  TBApma 


STOCK 
IBM 

tea 


PAICI/SHAIIB 
00 
SI 

100  •  5 
91«5 


HOLDINOS 
1 
1 
1 
4 
1 


•0 

51 

101*75 

430 

91*5 


NBT  PRICE  CHANOC 

-7.ft 

-T 

*13 
•t«09 


MtV  YORK  STOCK  KXCMAMOI  AVBBAOBi  90*75 

TOTAL  STOCK  MMBTS  ARK      t  70t«t5 
TOTAL  CASH  ASSETS  ARK        t  86 19 .96 
TOTAL  ASSETS  ARK  %  OAOt.Ol 


00  YOU  VISM  TO  COtfTIMIK  CYKS-TYPK  is  KO-TYPK  0)7  1 
WAT  IS  tOUR  TRAHSACTION  IN 
liHT  0 
ABA7  0 

tJM  0 

met  -3 
CRS7  0 


NET  CHANOKI  -9 •OS 


XKD  or  DAY'S  TRADIHO 


STOCK 


PRICK/SHARK 
77.5 

si.ts 

119.85 

107 

98*85 


HOLDINOS 


VALUE 
77.5 
58  .Si 
119.89 

107 
98«85 


NET  PRICE  CHANfl 
-8#» 

1«88 
-8.S 
-8*5 

#7S 


IV  YORK  STOCK  KXCMAN8E  AVERAOES  89.05 


NET  CHAHOBl  -1«1 


TOTAL  STOOK  ASSCTS  ARK 
TOTAL  8ASN  ASSETS  ARK 
TOTAL  ASSETS 


S  4A0«89 
S  0940 .10 
S  9393*43 

00  TOO  VtSN  TO  GOVTINUB  CYES«TYPE  is  NO-TYPE  0>t  I 

WAT  IS  TOOK  TRANSACTIM  IN 

IRH7  0 

ROAT  0 

tMt  0 

ARC?  O 

CRST  10 


END  OP  DAY'S  TRADINO 


STOCK 


PRICK/SMARK  HOLDINOS  VALUE  NET  PRICE 

74.5"  I     ■  t4.0  -3 

§4  1  54  1*75 

107  1  107  -18«80 

100  1  100  1 

90«7S  U  990.85  -U5 


-  ♦J  yj 
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IBV  YQWC  STOCK  BXCHAMflt  AVEBAOSl    8«.8S       MIT  CHMUKI  -8*0 

TOTMi  STOCK  ASSSTS  ARS  S  1941  •  75 
TOTAL  CASH  ASSETS  ABX  »  8013*4« 
TOTAL  ASStTS  AU  S  9385W81 

00  YOU  WISH  TO  COMTINUK  <YKS-TYPK  1«  NO-TYPB  0>T  1 

WAT  IS  rOOS  TBAMSACTION  IN 

tlNT  ft  .  . 

HeAt  6 

LtJT  10 

AM?  10 

COST  10 


mo  or  OAY*s  tbaoino 


STOCK  PRICK/SHAKS  HOLOINOS  VALUK  MKT  PRICK  CHAMOX 

UN  78  6  438  -8.5  ' 

RCA  98.5  7  367*5  -1*5 

LOJ  105  11  1155  -8 

AOC  103*85  11   1135*75  -4*79 

CBS  01*5  81  1081*5  .75 


HRV  YORK  STOCK  KXCMANOX  AVXRAORl     84*80        NKT  CHANOKl  -8 

TOTAL  STOCK  ASSKTS  ARK  %  9011*75 
TOTAL  CASH  ASSKTS  ARK  S  4881*98 
TOTAL  ASStTS  ARK  t  9033*07 

00  YOU  VI SM  TO  CONTINUK  (YKS-TYPK  1«  NO-TYPK  0>T  0 
H»K  YOU'MAO  PUHII 


■MOY 


ERIC 


75      -  -J 
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too  UN  STOCK  NARKST  SIMULATION  -STOCK- 

101  RXN  RBVISBD  6/10/10  ID.  PKSStL#  L*  BRAUN#  C*  LOSIK) 

lOa  UN  INP  VRBLSI  A-NRKT  TRND  SIPI  BS-BRKRQB  fBSI  C-TTL  CSH  ASSTSI 

103  UN  CS-TTL  CSH  ASSTS  (TMP)!  CCD-CHNO  IN  STK  VAtI  D-TTL  ASSTSJ 

104  UN  BUBfi-LBO  CHNQ  NISCI  I-STCK  #1  Il#ia-STCKS  V  LRQ  CUNQI 

105  UN  NUNa-LAQ  CHNQ  DAY  CNtSI  P5-TtL  DATS  PHCHSSB  PCD-PBTFL  CNTNTSI 

106  BSN  Q9-mV  CYCLII  S4-SW  OF  Al  SS-TTL  DYS  SLSI  S(  I  >-VAUIX/SUBI 

107  UN  T-TTL  STCK  ASSTSI  TS-TTL  VAL  OP  TBNSCTNSI 

106  UN  V3-Laa  CHN6I  Xl-SNLL  CHNQC^SDI  £4#£S#£6-NYSK  AVE«I  £(I)-TUSCTN 

109  PRINT  TAB(80>I~TU  STOCK  NAAUT** 

110  DIN  S<5>#P<S>#£(5>#C(S> 

lia  UM  SLOPS  OP  NAUBT  TUNDIA    (SAU  FOB  ALL  STOCKS) 

113  BANMNISB 

114  LBT  A«INT((BND<X>/10>*1004*9>/100 

115  LBT  T5^ 

116  LBT  X9mO 

117  LBT  Nl-0  X 
116  LBT  Ma»0 

119  LBT  B1»0 

liO  LBT  Ba«o 

lai  RBN  INTBODUCTION 

laa  PBINT  **D0  YOU  WUIT  THE  INSTRUCTIONS  <YBS-TYPB  1#  NO-TYPE  O)"! 

183  INPUT  19 

184  PHI NT 

185  PBINT 

186  IP'B9«1  THEN  800 

130  PBINT  ''TUIS  PBOGAAN  PLAYS  TU  STOCK  NABXET*     YOU  WILL  BB  01  VBN~ 

131  PBINT  ~S10#000  ANt>  MAY  BUY  OH  SELL  STOCKS.     TU  STOCK  PBICtS  VILL~ 

134  PBINT  BBNBBATBD  AANDOHLY  AND  THBBBPOU  THIS  NODBL  DOBS  NOT^ 

135  PBINT  '•UPUSBNT  BKACTLY  WAT  HAPPENS  ON  TU  tKCHANU.    A  TABLE* 

136  PBINT  ~0P  AVAILABLE  STOCKS*  TUIB  PBICBS#  AND  TU  NUNBU  OP  SHABU~ 

137  PBINT  YOUB  POBTFOLIO  VILL  U  PBINTBD*    P0LL0VIN6  THIS*  THT* 
130  PRINT  "INITIALS  OP  EACH  STOCK  IflLL  0B  PBINTBD  VITB  A  OUBSTIOT* 

139  PBINT  ~NAAk;    HEU  YOU  INDICATE  A  TBANSACTION*    TO  BUY  A  StOCIT 

140  PBINT  ~TYPB  TO  SELL  A  STOCK  TYPE  -lttM#  WBU  NNN  IS  TU~~ 

141  PBINT  "^NUMBB  OP  SMABMS.  A  MOBBBAU  PU  OP  18  VILL  U'CHAA8BD~ 
148  PBINT  ~0N  ALL  TBANSACTIONS*    NOTE  THAT  IP  A  STOCX^S  VALUE'DBOPS"* 

143  PBINT  "^TO  EBBO  IT  MAT  REBOUND  TO  A  POSItIVS  VALUE  A0AIN*  YOU* 

144  PBINT  ""HAVE  S10#000  TO  INVEST*    USB  INtBBEU  FOB  ALL  TOUB  INPUTS*** 
148  PRimt  "^CNOTEt     TO  UT  A  •FEEL*  FOB  TU  NABUT  BUN  FOB  AT  LBASr* 

146  PBINT  ••10  DATS)- 

147  PBINT        — 0OOD  LUCKI*  " 

B90  B8M  08NBBATION  OP  STOCK  TULBI  INPUT  UOUBSTS 

810  BBM  INITIAL' STOCK  VALUES 

880  LET  8<1)«100 

830  LBT  S<8)»05 

860  LBT  S<3>«1S0 

880  LBT  0<4)«14O 

860  LET  S<9>«I10 

865  BRN  INITIAL  T0  -  #  DAYS  FOB  FIBilT  TBBND  SLOPE  <A> 

860  LBT*T0«ilNTC4*99*BND<X>^l) 

007  BEN  BANDOMIU  SI0N  OP  PIUT  TBBND  SLOPE  CA> 

000  IP  BNN<X>^*5  TUN  870 

809  LBT  A*- A 

870  BM  BANDOMIEE  INITIAL  VALUES 

880  0OSUB  030' 

809  BEN  INITIAL  POBTFOLIO  CONTENTS 

890  FOB  I«1'T0  5 

300  LBT  P<I>«0 

305  LBT  E<n«0 

310  NEXT  I 

3N0  PBINT 


STOCK 


330  PalMT 

333  RSN*  INITIALIZE  CASH  ASSSTStC 

335  LST'C-10000 

338  BEM  PRINT  INITIAL  PORTPOLIO 

340  PRINT" ••STOCK*;-  '*#'*INITIALS**#-PRIC1/SHARS- 
390    PRINT  -INT*  BALLISTIC  Ml  SSILSS-#-  IBN-#S<1> 
39R    PRINT  -RED  CROSS  OP  ANBRICA-j-    RCA-#S<R>  ' 
394    PRINT  -LICHTENSTEINj  BUNRAP  4  JOKE-j-  LB«r#S<3> 
394    PRINT  -AilERlCAN  BANKRUPT  C0«-#-  ABC-#S<4> 

394    PRINT  ^CRNSOREP  BOOKS  STORB-#-  CBS-#S<5>' 
360  PRINT 

341  REN  NYSE  AVSRAQEtZSi  TEMP»  VALUSt£4i  NET  CUANaBt24 

343  LET  £4«29 

344  LET  E9-0 

345  LET  T-0 

370    FOR  I«l  TO  5 
379    LET  £9*29^S<I> 
3B0     LET  T«T^S<I>*PCI> 

390  NEXT  I 

391  LET  E9*INT(1004<Z9/9>^«9>/100 

398  LET  Z4*INT<<E9-24>*100^«9>/100 

393  REM  TOTAL  ASSETStO' 

394  LET  D«T^C 

399  IP  X9>0  THEN  394 

396  PRINT  -NEir  YORK  STOCK  EXCHANQE  AVERAQEt  -E9 

397  00  TO  399 

394    PRINT  -NT^M  YORK  STOCK  EXCHANQE  AVERAQEt  -29-      NET  CHANQSt  -£6 

399  PRINT 

400  LET  T«11NT<1004T^«9>/100 

401  PRINT  -TOTAL  STOCK  ASSETS  ARE  S-iT 

403  LET  C«INT<100*C^«9>/100 

409  PRINT  ^TOTAL  CASH  ASSETS  ARB  S-iC 
407    LET  0*INT<1OO4D^»9>/1OO 

404  PRINT  ^TOTAL  ASSETS  ARE  f-JD 

410  PRINT 

411  ir  X9-0  THEN  416 

414    PRINT  -DO  YOU  tflSH  TO  CONTINUE  <YES-TYPB  is  NO-TYPE  0>-| 

413  INPUT  09  ■  ■ 

414  IP  Q9<1  THEN  998 

414  REN  INPUT  TRANSACTIONS 

4i0    PRINT  -WAT  IS  TOUR  TRANSACTION  IN- 

430    PRINT  -IBH-i  .  . 

440     INPUT  E<1> 

490    PRINT  -RCA-i 

440     INPUT  E<8> 

410    PRINT  -LN^i 

480    INPUT  E<3> 

490    PRINT  -ABC-i 

900     INPUT  E<4> 

910    PRINT  -CBS-i 

IBO     INPUT  E<9> 

189  PRINT 

830  REM  TOTAL  DAY^S  PURCHASES  IN  SSP9 
940    LET  P9«0 

980  REM  TOTAL  BAY'S  SALES  IN  8tS9 
940    LET  S9«0 
970    FOR  1^1  TO  9 

979  LET  £<I>«INT<E<I>^«5> 

980  IF  X<X)^40  THEN  410 
990  LET  PS>iP9^E€I>4S<I> 
400     80  TO  4B0 

410    LET  S9«8S*E<I>«S<I> 
418    IF  •E<I><«Pi(I>  THEN  480 

414    PRINT  -TOU  HAVE  OVERSOLD  A  STOCK!  TRY  A84IN*- 
414    00  TO  480 
480    NEXT  I 
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688  AIM  TOTAL  VAUIK  OF  TBANSACTIONfllTS 

685    LST  T5*P5^S5 

630  BSN  BROKXHAn  PKIfBS 

640     LET  B5«IMT<.01#T5#100^.5>/100 

650  RIM  CASH  AMBTS«OU)  CASH  ASSETS-TOTAL  PURCHASES 

658  ASM  -HROKEBAgE  PEES^TOTAL  SALES f  05 

654    LET  CSvC'-PS-BS^SS 

656     IP  C5>«0  THEM  674 

656    PRIHT  ~YOU  HAVE  USBB  S~-C5~  NO 

RE  THEM  YOU  HAVE.*" 

660     M  TO  480 

674  LET  C«C5 

675  REN  CALCULATE  NEV  POATPOLIO 
6iO    POR  I-l  TO  5 

690     LET  PCI>«P<I>42<I> 
700    MEET  I  * 

710  REM  CALCULATE  NEV  STOCK  VALUES 

780     8OS0B  830 

790  REM  PRINT  PORTFOLIO 

751  REN  BELL  RINQIHO'-DIPPKRENT  ON  MANY  COM>UTEAS 
758    POR  I- 1  TO  80 

753  PRINT  CNaS€135>i 

754  MEET  I 

755  PRINT 

754    PRINT  END  OP  DAY'S  TRADINO" 

757  PRINT 

758  PRINT 

799     IP'X9<1  THEN  769 

769  PRINT  **ST0Cir#~PRICE/SUARE"*#"H0LDlN8S''«''VALUB^«»NET  PRICE  CHAN8E~ 

770  PRINT  ~IBN~#  SC1>;  PC1>#  S<1>^<1>»  CCD  .  - 
n%    PRINT  *»RCA"*#  S<8>#  PC8>#  S<8>«P<8>#  C<8> 

778    PRINT  ~LBJ*#  S<3>#  P<3>#  S<3>«P<3>#  C<3> 

773  PRINT  «*ABC^#  S<4>#  P<4>#  S<4>«P<4>»  C<4> 

774  PRINT  '*CBS'*#  SC9>;  P<5>#  SC5>«P<5>«  CC5> 

775  LBt  E9«l  ... 
180    PRINT  ' 

790  PHln 
810    80  TO  360 

889  REM  NEV  STOCK  VALUES  •  SUBROUTINE 

830  mm  RANDOMLY  PRODUCE  NEV  STOCK  VALUES  BASED  ON  PREVIOUS 

831  REM  DAY'S  VALUES 

838  REM  NI#N8  ARE  RANDOM  NUMBERS  OP  DAYS  VHICH  RESPECTIVELY 

833  REM  DETERMINE  WEN  STOCK  II  VILL  INCREASE  10  PTS.  AM>  STOCK 

834  REM  18  VILL  DECREASE  10  PTS. 

840  MEM  IP  Ml  DAYS  HAVE  PASSED#  PICK  AN  11^  SET  El#  DETE8NINE  NEV  Nl 

841  IP  N1>0  THEN  850  .  . 
849    LBT  I1«INTC4.99«RND<X)^1> 

846    LET  Nl-INTC4.996RND<K>^1> 
84T    LET  El-1 

890  REM  IP  N8  DAYS  HAVE  PASSED^  PICK  AN  I8#  SET  E8#  DETERMINE  NEV  N8 
851     IP  N8»0  THEN  860 

855  LET  I8-INT<4.996RND<X>^1) 
854  LET  N8«INT€4.99«RND<X>^1> 
857    LET  E8-1 

860  REM  DBDOCT  ONE  DAY  PROM  Nl  AND  N8 

861  LET  Nl-Nl-1 
868    LET  H8-N8-1 

890  REM  LOOP  THR0U8H  ALL  STOCKS 

900    POR  X-1  TO  5 

910    LET  11»RN0<X> 

915     IP  XU.85  THEN  980 
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916  LST  Xl«.8» 

917  QO  TO  935 

980  ir  XU.SO  THSV  985 

981  LBT  X|a.50 
988    00  TO  935 

985  ir  Xl>.75  THf^  930 

986  LST  X1-.75 

987  00  TO  935 

930  LST  XI -0*0 

931  RBN  BIO  CHAMOf  <^0NSTANTIV3     <StT  TO  tUO  XliITlALUY> 

935  LET  ir3^ 

936  ir  BKl  THXN  ^5 

937  ir  IIIT(Il'^.5><^IilT(I^.5>  THBM  945 

93f  BtM  ADD  lO  PT5*  TO  TRXS  STOCKl    RESET  £1 

939    LBT  V3"10 

943    LET  B1*0 

945    Xr  E8<1  THEN  955 

947  tr  Xirr<X84'.5>^^I»T(I#.5>  THEN  955 

948  HtN  SUBTRiiCT  10  ^TS«  FROM  THIS  STOCKI     RESET  B8 

949  LBT  V3«V)«10 

953  LET  E8-0 

954  RBN  C<I>  IS  CHANQB  IN  STOCK  VALUE 

955  LET  CCI>«INT<A«S(I}>«X1^INT(3«6«BND(X>^«5>^V3 

956  LBT  C(I>«lNT<&<>0*e<I>^.5>/I00 

957  LBT  S(I>«S(I>^<2CI>  - 
960     IP  S(I>K>  THfB  967 

964  LBT  CCI>«0 

965  LBT  SCI)^ 

966  00  TO  970 

967  LET  S(I>»IMT<1<>0*S(I>^.5>/100 
970    NEXT  I  ' 

978  RBN  APtEH  TO  V^^^  RANDONLY  CHANOB  TREND  SI  ON  AND  SLOPE 

973  LET  TO-TO-1 

974  IP  TO^I  THEN  9^5 
900  RETURN 

905  RBN  RANOONLY  CMANOB  TREND  SI  ON  AND  SLOPE  (A>#  AND  DURATION  OP 

906  RBN  or  TRBND  <tO> 

990    LBT  T0-INTC4#^'^RND(X>^1> 

998  LBT  A«INTC<Rli^<^>/10>*100««5>/100 

993  LBT  S4«RNDCX> 

994  IP  S4<-.5  THEN  997 

995  LBT  A— A 
997  RBTURN 

990    PRINT  **HOPE  Y^U  HAD  PUNII** 

999  END 
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DISCIPLINE    CALCULUS-GRADE  13 


SUBJECT    AREA  OF  A  SURFACE  OF 


REVOLUTION 


PROGRAM  NAME  SURFAR 


DESCRIPTION: 

This  program  approximu.tes  the  area  of  a  surface  of  revolution,  by 
computing  lateral  areas  of  frustrums  of  cones  of  revolution. 

OBJECTIVES: 

A.  The  saving  of  time  in  computations. 

B.  The  speedy  demonstration  of  limiting  processes. 

C.  The  focusing  of  attention  upon  those  processes  needed  to  develop  the 
analytic  approach. 

PRELIMINARY  PREPARATION: 

Before  running  this  program,  the  lateral  area  of  a  frustrum  of  a 
cone  should  be  discussed.    Many  students  in  the  Advanced  Placement 
Program  have  not  taken  a  course  in  Solid  Geometry  and  may  be  unfamiliar 
with  the  formula: 


Whether  or  not  this  formula  is  derived  in  class  will  depend  on  the  amount 
of  time  available-  Most  likely  it  will  merely  be  stated;  students  who  have 
not  taken  Solid  Geometry  may  be  asked  to  look  up  the  derivation  on  their  own. 


Lateral  Area  =  tt  1  (r,  +  r-) 


Frustrum  of  a  Cone 
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ARSA  or  A  suarACK  or  rsvolution 

THIS  PROORAM  APPBOXINATIS  THI  AREA  Or  A  SURrACE  Or 
RBVOLUTIOil  BY  CONPUT I  NO  LATERAL  AREAS  OT  rRUSTUNS  Or  CONES 
or  REVOLUTION.     TYPE  IN  YOUR  PUNCTION  OP  X  (Y«r(X>>, 
WOSE  ORAPR  VILL  BE  ROTATED  ABOUT  THE  X  AXIS^  AS  POLLOVSt 

1  00  TO  800 

300  DEP  rNY(X>««««<YOUR  rUNCTION  OP  X)##* 
RUN 

rOR  EXAMPLE^  TO  USE  THE  PUNCTION  Y»Xt8  YOU  VOUU)  TYPEt 

1  QO  TO  800 

300  DEP  FNY(X>«Xt8 

RUN 

YOU  HIOHT  TRY  THAT  AS  YOUR  riRST  RUN« 

END  EACH  LINE#  INCLODINQ  'RUN'^   VITK  THE   'RETURN'  KEY. 


READY 

1  00  TO  800 

300  DEr  rNY(X>«Xt8 

RUN 

WAT  ARE  THE  ABSCISSAS  Or  THE  END  POINTS  OP  THE  SECTION 
TO  BIX  CONSIDERED  (SMALXXR  PiRSTt  P«Q}?  -3«8 


NUMBER  OP 

SUBINTERVALS 

1 
8 
4 
• 

16 
38 
64 
188 


SUM  OP 

APPROXINATINO  AREAS 

868* 7871 
384.6889 
3I7.6819 
315.3346 
314.7434 
314.5933 
314.5557 
314.5461 


%  CHAN8E 
IN  SUM 

NO  PREVIOUS  VALUE 
11.68411 
8*161863 
•7416313 
•1676635 
.04769154 
.01197374 
3.0a5796E-3 


MOULD  TOU  LIKE  TO  TRY  NEV  END  POINTS  (1-YES#  0-N0>7  0 
TO  ENVM  A  NEV  PUNCTION  YOU  NEED* ONLY  RETYPE  LINE' 
300  AHi  *RUV*.     SEE  INSTRUCTIONS  POR  NORE  DETAILS, 
ir  YON  ARE  riNISHED^  TYPE  M>  AND  THE  •RETURN^  KEY. 


READY 
1 
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100  REN  ARXA  OF  A  SURFACE  OF  REVOLUTION^  Q.  J.  0*COmOR#  7/12/68 

101  REM  REVISED  8/81/70  <0«  PESSEL>  ' 

105  PRINT  TAB<17>i  **AREA  OF  A  SURFACE  OF  REVOLUTION** 

106  PRINT  " 

110  PRINT  "         THIS  PROGRAM  APPROXIMATES  THE  AREA  OF  A  SURFACE  OF** 
laO  PRINT  "^REVOLUTION  BY  COMPUTING  LATERAL  AREAS  OF  FRUSTUMS  OF  CONES'^ 
laO  PRINT  "OF  REVOLUTION.     TYPE  IN  YOUR  FUNCTION  OF  X  <Y-FCX>>#- 
131  PRINT  "WOSE  GRAPH  WILL  BE  ROTATES  ABOUT  THE  X  AXIS#  AS  FOLLOVSl*' 
150  PRINT 

160  PRINT  "  1  60  TO  200** 

170  PRINT  -  300  DEF  FNY<X>«. . .CYOUR  FUNCTION  OF  X>..." 

180  PRINT  RUN" 

185  PRINT 

186  PRINT  -FOR  EXAMPLE*  TO  USE  THE  FUNCTION  Y«Xf2  YOU  WOULD  TYPEl- 

187  PRINT 

188  PRtHT  -  1  GO  TO  200** 

189  PRINT  -  300  DEF  FNY<X>»Xf2" 

190  PRINT  RUN- 

191  PRINT 

192  PRINT  -YOU  MIGHT  TRY  THAT  AS  YOUR  FIRST  RUN.- 

193  PRINT  -END  EACH  LINE#  INCLUDING  'RUN*#  VITH  THE   'RETURN*  KEY«- 
195  STOP 

200  REM  COMPUTATION  SECTION  OF  PROGRAM 

220  PRINT  -WAT  ARB  THE  ABSCISSAS  OF  THE  END  POINTS  OF  THE  SECTION- 
230  PRINT  -TO  BE  CONSIDERED  (SMALLER  FIRSTI  P#Q)-| 
240  INPUT  P#Q  ... 

245  IF  P<«Q  THEN  250 

246  PRINT  -P  CANNOT  BE  GREATER  THAN  21- 

247  GO  TO  220 
250  PRINT 

260  PRINT  -NUMBER  OF  SUM  OF  %  CHAN6E- 

270  PRINT  -SUBINTERVALS      APPROXIMATING  AREAS  IN  SUM** 

280  PRINT  "    i  - 

285  LET  E1M> 

300  DBF  Firr<x>«xt2 

305  FOR  N»l  TO  9 

310  LET  E-2t<N*l> 

320  LET  H-<2-P>/t 

330  LET  S«0 

340  FOR  1-0  TO  <E-1> 

350  LET  t»F«Y<P^I«il4H>^FNY<P^I*H> 

360  LET  M-FNY<P^l4a^R>-FNY<P^I*H) 

370  LET  L»3.14159«2«S0R<M«M^H«H>' 

380  LET  SmS^L 

390  NEXT  I 

395  IF  S1«0  THEN  405 

396  LET  1f^l00*<ABS<S«Sl>>/<(S^Sl>/2> 

399  IF  S1«0  THEN  405  "  ' 

400  PRINT  E^S^** 

402  IF'lNlE-2  THEM  420 

404  00  T0'407 

405  PRINT  E#S#-  -#-N0  PREVIOUS  VALUE- 
407  LET  Sl-S 

410  NEXT  fl 
4i0  PRINT 

430  PRINT  -VOULD  YOU  LIKE  TO  TRY  NEV  END  POINTS  Ci-YES#  0-NO>-l 

431  INPUT  21 

432  IP  21  »0  THEN  220 

440  PRINT  -TO  ENTER  A  NEV  FUNCTION  YOU  NEED  ONLY  RETYPE  LINE- 
450  PRINT  -300  AND  •RUM*.     SEE  INSTRUCTIONS  FOR  MORE  DETAILS.- 
460  PRINT  -IF  YOU  ARE  FINISHED^  TYPE  *1*  AND  THE  *RETURN» 'XEY.- 
900  EKt 


ERIC 
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DISCIPLINE  CALCULUS  -  GRADE  13 
SUBJECT   VOLUME  OF  ANY  SOLID 


OF  REVOLUTION,  (ANALYTICALLY 
DEFINED) 


PROGRAM  NAME  VOLSOL 


DESCRIPTION; 

Through  the  use  of  cylindrical  discs,  the  program  approximates  the 
volume  of  a  solid  of  revolution  generated  by  rotating  about  the  x-axis  the 
area  bounded  by  y  =  f(x),  the  x-axis,   and  the  vertical  lines  x  =  a  and  x  =  b. 

OBJECTIVES; 

To  help  the  student  understand  the  analytic  procedures  and  to 
appreciate  the  nature  of  the  limiting  process. 

PRELIMINARY  PREPARATION; 

The  class  should  be  reminded  of  the  formula  for  the  volume  of  a 
cylinder,  and  the  way  in  which  a  cylinder  is  generated  by  rotating  a 
rectangle  about  one  of  its  sides. 


DISCUSSION: 


It  would  be  desirable  to  make  use  of  an  overhead  projector  trans- 
parency to  display  the  cylindrical  discs  generated. 


y  =  f(x) 


Rotated  about  the 
x-axl8 


Approximation  of  Volume  of  Revolution  by  Cylindrical  Discs 
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VOLUME  OF  A  SOLID  OF  REVOLUTION 

THIS  PROGRAM  USES  CYLINDRICAL  DISCS  TO  APPROXIMATE 
THE  VOLUME  OF  A  SOLID  OF  REVOLUTION-      THE  SOLID  IS  GENE- 
RATED BY  ROTATING  ABOUT  THE  X-AAI S  THE  AREA  BOUNDED  BY 
Y«F(X)#    THE  LINES  X»A  AND  X=B#  AND  THE  X-AXIS. 

TO  INPUT  YOUR  FUNCTION  OF  X  (YaF(X>>    TYPE  AS  FOLLOWS: 

1   GO  TO  200 

220  DEF  FNY(X>=. . . . (YOUR  FUNCTION  OF  X> • • • • 
RUN 

FOR  EXAMPLE^   TO  USE  THE  FUNCTION  Y=XT2  YOU   WOULD  TYPE: 

1    GO  TO  200 

220   DEF  FNY(X)=Xt2 

RUN 

YOU  MIGHT  TRY  THAT  AS  YOUR  FIRST  EXAMPLE. 

END  EACH  LINE*    INCLUDING    •RUN**    WITH  THE    •RETURN*  KEY. 


HEADY 

1  GO  TO  200 

220   DEF  FNY(X>=XT2 

RUN 

WHAT  ARE  YOUR  VALUES  FOR  A  AND  B  (SMALLER  FIRST:   A*B)7  0>5 


NUMBER  OF  SUM  OF  %  CHANGE 

CYLINDERS  CYLINDER  VOLUMES  IN  SUM 


1  0  NO  PREV.   VALUE*    OR  I T  WAS  2ER0 

2  306-7959  NO  PREV.  VALUE*  OR  IT  WAS  ZERO 
4  939.5624  206-25 

8  1400-955  49- 10714 

16  1669-476  19-16702 

32  1813-291  6-614392 

64  1887-594  4-097653 

128  1925-344   1  -999911   - 

256  1944-369  .9881206 

512  1953.918  -4911339 
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WOULD  YOU  LIKE  TO  TRY  YOUH  OWN  'NUMBEH  OF  CYLINDEHS*  Cl-YES#  0-N0>?  I 
HOW  MANY  CYLINDERS  WOULD  YOU  LIKE  TO  TRY?  700 

FOR     700     CYLINDERS  THE   VOLUME   IS      1956»487  • 

WOULD  YOU  LIKE  TO  TRY  AGAIN  Cl-YES>  U-NO>?  0 

♦♦♦♦♦ 

WOULD  YOU  LIKE  TO  TRY  NEW  VALUES  OF  A  AND  B  (l-YES^   0-N0>?  0 
TO  USE  A  NEW  FUNCTION  YOU  NEED  ONLY  RETYPE  LINE  220  AND 
•RUN*.      SEE   INSTRUCTIONS  FOR  MORE  DETAILS. 
IF  YOU  ARE  FINISHED*    TYPE  AND  THE    •RETURN*  KEY* 


READY 
X 
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100  KEM  VOLUME  OF  A  SOLID  OF  rtEVOLUTION*   U.   J.   O'CONNOU*  b/l/6b 

101  HEM  HEn/ISED  b/24/70    CD.  PESSEL) 

110  PRINT  TABC 15);" VOLUME  OF  A  SOLID  OF  REVOLUTION" 

111  PRINT 

115  PRINT"  THIS  PROGRAM  USES  CYLINDRICAL  DISCS  TO  APPROXIMATE" 

117  PRINT"THE  VOLUME  OF  A  SOLID  OF  REVOLUTION-      THE  SOLID  IS  GENE-" 
120  PRINT"RATED  BY  ROTATING  ABOUT  THE  X-AAIS  THE  AREA  BOUNDED  BY" 
130  PRINT"Y»F<X)*    THE  LINES  A=A  AND  X«B*   AND  THE  X-AAIS." 
135  PRINT 

140  PRINT"TO  INPUT  YOUR  FUNCTION  OF  X   <Y«F<X))   TYPE  AS  FOLLOWS:" 

141  PRINT 

145  PRINT"  1    GO  TO  200" 

150  PRINT"  220   DEF  FNY(X)= . . . • ( YOUR  FUNCTION  OF  X)...." 

160  PRINT"  RUN" 

161  PRINT 

165  PHINT"FOR  EXAMPLE*   TO  USE  THE  FUNCTION  Y=»Xt2  YOU  WOULD  TYPE!" 

166  PRINT 

167  PRINT"  1    GO  TO  200" 

16b  PRINT"  220   DEF  FNY<X)=Xt2" 

169  PRINT"  RUN" 

170  PRINT   

175  PRINT"YOU  MIGrtT  TRY  THAT  AS  YOUR  FIRST  EXAMPLE." 

176  PRINT"END  EACH  LINE*    INCLUDING    'RUN'*    WITH  THE    'RETURN'  KEY." 
IbO  STOP 

199  PRINT 

200  PRINT"WHAT  ARE  YOUR  VALUES  FOR  A  AND  B   (SMALLER  FIRST;  A*B)"; 

210  INPUT  A*B 

211  IF  A<B  THEN  214 

212  PRINT"A  MUST  BE  SMALLER  THAN  BI" 

213  GO  TO  200 

214  PRINT 

215  PRINT"NUMBER  OF  SUM  OF  %  CHANGE" 

216  PRINT"CYLINDERS  CYLINDER  VOLUMES  IN  SUM" 

217  PRINT"     

218  LET  V1»0 

220  DEF  FNY(X)=Xt2 

230  FOR  N»l    TO  10 

240  LET  D»2t(N-l ) 

250  LET  H»(B-A)/D 

260  LET  V»0 

270  FOR  I»0   TO  (D-l) 

280  LET  Y»FNY(A-M*H) 

290  LET  V»V-^3.14159*Y4cY*H 

300  NEXT  I 

305   IF  V1«0   THEN  315 

307  LET  P»100*CABSCV-V1) )/Vl 

310  PRINT  D*V*"  "*P 
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312  IF  P<.5  THEN  330 

313  GO  TO  aib 

315  PRINT  D^V^"  NO  PHEV.   VALUE^   OH  IT   WAS  ^:EH0" 

3lb  LET  Vl=»V 
320  NEAT  N 
330  PHI  NT 
333  PHI NT 

3341  PHINT"WOULD  YOU  LIKE  TO  THY  YOUH  OWN    'NUMBEH  OF  CYLINDEHS*  Cl-YES 

335  PHINT'S  0-N0>"; 

336  INPUT  (AS 

337  IF  Q5<1   THEN  377 

33b  PHINT"HOW  MANY  CYLINDEHS  WOULD  YOU  LIKE  TO  THY"; 

339  INPUT  Dl 

340  IF  D1>1   THEN  343 

341  PHINT"NUMBEH  OF  CYLINDERS  MUST  BE  GHEATEH  THAN  ZiEHOI" 

342  GO  TO  33b 

343  IF  DI<1000   THEN  34  7 

344  PHINT"THIS   IS  A  VEHY  LARGE  NUClBEH  OF  CYLINDERS  AND  MAY  TAKE" 

345  PRINT"A  LONG  TIME  TO  HUN." 
347  LET  V2=0 

34b  LET  Hl»CB-A>/Dl 

349  LET  Dl»INTCDl+*5> 

350  FOR  I«0   TO   CDl-l > 
352  LET  Yl=FNY<A+I*Hl > 

354  LET  V2=5V2+3*  14159*YI*YI*HI 
356  NEXT  I 
35b  PRINT 

360  PRINT  "FOR  "Dl"  CYLINDEHS  THE  VOLUME  IS  "V2" 

362  PRINT 

363  PRINT"WOULD  YOU  LIKE  TO  TRY  AGAIN   Cl-YES^  0-NO>"J 

364  INPUT  Q6 

365  IF  U6>0   THEN  33b 
377  PRINT 

37b  PRINT"*****" 
379  PRINT 

3b0  PRINT"WOULD  YOU  LIKE  TO  TRY  NEW  VALUES  OF  A  AND  B  CI -YES#  0-N0>"; 

3b2  INPUT  Ql 

384   IF  Ql>0   THEN  199 

3b6  PRINT"TO  USE  A  NEW  FUNCTION  YOU  NEED  ONLY  RETYPE  LINE  220  AND" 
388  PRINT" 'RUN SEE   INSTRUCTIONS  FOR  MORE  DETAILS^" 
390  PRINT"IF  YOU  ARE  FINISHED*    TYPE    'l'  AND  THE    'RETURN'  KEY*" 
500  END 
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Developed  by  the  Huntington  Computer  Project  during  the  period 
May,  1968  and  September,  1970.    This  effort  was  supported   by  the 
National  Science  Foundation  under  Grant  No.  J000079. 


The  enclosed  material  is  a  compilation  of  computer  programs 
developed  during  the  period  May,   1968  to  September,   1970.  These 
programs  were  developed  by  teachers  and  students  in  the  high  schools 
which  participated  with  us,  and  by  the  Project  staff. 

All  of  the  enclosed  programs  have  been  tested  on  a  Digital 
Equipment  Corporation  TSS-8  time-shared  computer  during  the  summer 
of  1970.       To  the  best  of  our  ability,  we  have  assured  ourselves 
that  the  programs  actually  run.     It  should  be  pointed  out,  however, 
that  we  were  not  able  to  make  an  exhaustive  exploration  of  the  pro- 
grams.    There  may  be  undiscovered  bugs  (if  there  aren't,   it  may  be 
the  first  time  in  the  history  of  computing) .       We  would  appreciate 
hearing  of  any  which  emerge  in  the  future. 

These  programs  run  in  the  version  of  BASIC  which  existed  on 
the  TSS-8  in  August,    1970,  and  should  run  on  most  other  versions  of 
BASIC.     The  major  potential  problem  on  other  machines  is  the  output 
format   (DEC  uses  14  columns  per  print  zone,  while  some  other  manu- 
facturers use  15;  we  used  the  TAB  function,  which  doesn't  exist  in 
all  BASIC  compiles).     It  may  be  necessary  to  make  some  minor 
changes  in  programs  to  adjust  this  format.     Another  possible 
problem  is  in  the  use  of  the  RANDOMIZE  command  in  some  programs 
to  start  the  random-number  generator  at  a  random  point.     If  this 
command  is  not  available,   some  other  means  should  be  devised  for 
randomizing  the  start. 

It  is  our  sincere  hope  that  these  programs  and  their  sup- 
porting documentation  will  be  helpful  to  educators  who  are  explor- 
ing the  uses  of  computers  in  education. 

We  are  anxious  to  hear  of  any  bugs,  errors,  or  improvements 
in  these  programs,  and  are  especially  anxious  to  hear  of  any  novel 
ways  of  using  them. 

Ludwig  Braun 
Marian  Visich,  Jr. 
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Demonstrates  the  effects  of  changing  velocity  on  orbital 
motion .    (Mechanics ) 

VFIELD  ■  105 

Plots  a  picture  of  the  relative  potential  strength  in  the 
region  surrounding  two  charges.    (Electricity  and  Magnetism) 

VLOCTY  110 
Demonstrates  that  average  velocity  (^D/AT)  approaches 

  a  JLimiting  value  as  ^T->0.    A  graph  of  D  vs.  T  is 

plotted  for  an  acceleration  of  1  meter/sec  .  (Mechanics) 

WAVES  115 
Plots  a  graph  of  a  fixed  and  a  variable  wave,  and  the 
superposition  of  the  waves.    (Light  and  Waves) 


ERIC 


Volume  V 

SOCIAL  STUDIES 
BALANC 

Simulates  the  effects  of  the  relationship  between  costs 
of  production  and  revenues. 

BANK 

Solves  financial  problems  concerning  installment  buying, 
long  term  loans,  and  savings  accounts. 

CIRFLW 

Simulates  the  effect  of  a  change  in  consumption  of  the 
"Circular  flow  model  of  goods,  services  and  money/' 

CONSMP 

A  simulation  of  economic  depression  and  equilibrium  as 
effects  of  consumption. 

STOCK 

Simulates  the  stock  market. 


Volume  VI 

TEACHER  ASSISTANCE 
AVERGl 

Averages  grades,  lists  value  of  curve,  and  adjusts 
grades • 

AVERG2 

Sorts  and  averages  grades . 
FREQ 

Prints  a  frequency  distribution  (bar  graph)  of  grades. 
GRADE 

Prints  a  table  of  grades  (in  percentages),  number  of 
questions  missed,  and  number  of  questions  answered 
correctly. 

ITEMl 

Counts  and  prints  number  of  times  questions  are  missed. 
ITEM2 

Sums  item  analysis. 
STAT 

A  statistical  analysis  of  laboratory  data.  (For  teachers^ 
use  ) 

STATAL 

Calcu3jates  the  arithmetic  mean  (average)  of  a  set  of 
numbers . 


2s]< 


DISCIPLINE  PHYSICS 

SUB  J  EC  T    MAGNETIC  FIELDS 

PROGRAM  NAME  BFIELD 


DESCRIPTION; 

Student  may  visualize  the  effects  of  current  on  the  magnetic 
field  produced  about  a  single  conductor.    The  student  may  also  explore 
the  fields  produced  by  the  current  flow  in  two  parallel  wires.  The 
current  in  the  two  wires  may  be  chosen  in  the  same  direction  or  in 
opposite  directions. 


OBJECTIVES; 

To  acquaint  student  with  the  magnetic  fields  produced  by  current 
carrying  conductors- 

PRELIMINARY  PREPARATION: 

A-    Student  ~  Prior  preparation  involving  currents  and  fields. 
B.    Materials  -  None 


DISC  USSION: 

Student  may  qualitatively  explore  the  effects  of  currents  on  the 
production  of  magnetic  fields  by  successively  increasing  or  decreasing 
the  current.    The  resulting  magnetic  field  is  printed  out  showing  the 
relative  magnitude  of  the  field  in  relation  to  the  position  of  the  current. 

The  student  may  also  view  the  magnetic  field  due  to  two  currents' 
in  the  same  or  opposite  direction. 

This  program  may  also  be  used  to  introduce  groups  to  the  field 
concept.  In  addition,  minor  modification  of  the  program  will  produce  a 
series  of  plots  which  will  demonstrate  an  expanding  field  resulting  from 
an  increasing  current. 
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WOULD  YOU  LIKE  TO  THY  TWO  DlFFEKKNr  CUKrtKM'b  AT  THE  SAME 
TIME   CYES»i;   NO=U)?  0 

WOULD  YOU  HATHEH  TrtY  ANOTHEH  CUKHENT   CYES=i;    N0=0 ) 7  1 
ENTEH  YOUH  VALUE  OF  CUHKENT?  6 

ITHE  MAGNITUDE  OF  THE  FIELD  DECHEASES  FiiOM  9   TO  0 . 
9  IS  THE  HIGHEST  I^OSSIBLE  FIELD  STHENGTri,   AND  U 
(WHICH  MEANS  A  iiEiiO  FIELD)    THE  LOWEST. 


METERS 

-1 .2  -.6  U  .6  1.2 

METEHS        .  +  +  +  +  +  . 

1 .2  •  2222222222222222222222222 

1 • 1  •  22222222222222222222222222222 

1  •          222222222222  222222222222 

•9  .      2222222222  2222222222 

•6  .   22222222            3333333333333            22222222  . 

.7  .22222222        333333                333333  22222222. 

.6  .222222         3333     ^i^i^i^i^i^i^i^i^i     3333  222222. 

.5  .22222        3333                555       AM     3333  22222. 

.^1  .2222       333     MA  55   66666  55  MA'      333  2222. 

.3  .2222       33     MM  5   67  bbb   76   5  MM     33  2222. 

.2  .222       333          56     9            9      65  ^l^l   333  222. 

.1  .222        33     ^   5       9                9        5   ^     33  222. 

0  .222       33     ^  56  b          +         b  65  ^     33  222. 

-.1  .222       33     ^   5       9               9       5   ^     33  222. 

-.2  .222       333  MM  56     9            9     65   MM   333  222. 

-.3  .2222       33     MM   5  67  Bbb   76  5  MM     33  2222. 

-•M  .2222       333     MM  55  66666  55  MM      333  2222. 

- .5  .22222        3333     ^4       555       MM      33  33  22222. 

-  .6  .222222         3333     /|/|/|/4/|/|/|/|/|     3333  222222. 

- . 7  .22222222       333333                333333       22222222 . 

-.b  .   22222222            3333333333333            22222222  . 

-.9  .      2222222222  2222222222 

-1  .          222222222222  222222222222 

-1.1  .  22222222222222222222222222222 

-1.2  .  2222222222222222222222222 

 4-  -f. 
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WOULD  YOU  LIKE  TO  THY  TWO  DIFFEHENT  CUKKENTS  AT  THE  bAME 
TIME   CYESai;   N0»0)7  I 

THE  TWO  CUftiiENTS   WILL  BE  SEPAHATED  BY   1 .0  METER.    (NOTE:  IF 
THE  CURHENTS  ARE  TO  BE  OPPOSITELY  DIRECTED*   STATE  ONE  OF  THEM 
AS  A  NEGATIVE  VALUE). 
ENTER  THE  TWO  CURRENTS? 


METERS 
1.2 
I  .  I 
I 

.9 
.b 
.7 
.6 
.5 
.4 
.3 
.2 
.1 
0 
-.1 
-.2 
-.3 
-.^ 
-.5 
-.6 
-.7 
-.8 
-.9 
-I 

-I .  I 
-1.2 


1.2 


METERS 
>6  0 


U^NT  TO  TRY  AGAIN 
THE  TWO  CURRENTS  W 


1.2 


I I  I  I  I  I  222222222222222222222 

I  I  I  I  22222222222222222222222222. 

III  2222222  222222. 
I  I  22222  333333333333  222. 
I        2222       3333333  333333  2. 

222     3333         £00000000^       3333  . 
222   333  555555  333  . 

22     3  555  666666 


55  44  33. 
2   3344  555     666   77  7  6   55  4  3. 

2   3  45  66        777  b  9  76  5  4  . 

2       67b       bBbB  9  676  544  . 

23469  9999  8  65  4  . 

2   3   7+  -  b765  4  . 

23469  9999  b  65  4  . 

2       67B       bbbS  9  b76  544  . 

2   3  45  66        777  b  9  76  5  4  . 

2   3344  555     666   77  7  6  55  4  3. 

22     3     44       555     666666     55  44  33. 
222   333     4444       555555     444     333  • 
222     3333         4444444444  3333 

I  2222       3333333  333333  2. 

II  22222  333333333333  222. 

III  2222222  222222- 
I  I  I  I  22222222222222222222222222. 
I  I  I  I  I  I  222222222222222222222 


:yes»i;  no=o)?  i 

...^   .WW    ^ILL  BE  SEPARATED  BY   I  .0  METER.    CNOTEI  IF 

THE  CURRENTS  ARE  TO  BE  OPPOSITELY  DIRECTED*   STATE  ONE  OF  THEM 
AS  A  NEGATIVE  VALUE). 
ENTER  THE  TWO  CURRENTS?  4*4 
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METErtS 

"^•'^             -.6                 0                    #6  1.2 
METERS   +  +  +  +  . 

1.2  •ii222a222222222222222222222iiiiii2ci2222222222. 

1 . 1  .222222222  2222222^2. 

1  .22222  22222. 
-22  3333333333333333333  22. 
•  33333333333333333333333333333 

•7  .  33333333333333333333333333333333333 

•6  .      33333                      3333333                      33333  . 

.5  .3333                              33333  3333. 

•  4  .333     ^/i/i     555           33333           555  333. 

.3  .33     /i/i   5     666  5  ^  33333  /|  5   666     5  33. 

.2  .3     ^^56     b  b   65/13     2     3456  b  b     65  3. 

.1  .3  44  5     b           b  432   1   234  b           b     5  44  3. 

0  .3  44  567         +     64      101      46     +          765  44  3. 

-.1  .3  44  5     b           b  432    1   234  b           b     5  44  3. 

-.2  .3     44   56     b  b  6543     2     3456  b  b     65  44  3. 

-.3  .33     44   5     666  5  4  33333  4  5  666     5  44  33. 

-.4  .333     444     555  444   33333  444   555     444  333. 

-.5  .3333       44444444       33333       44444444  3333. 

-.6  .      33333                      3333333                      33333  . 

-.7  .  33333333333333333333333333333333333 

-^•8  .  33333333333333333333333333333 

-•9  -22                    3333333333333333333  22. 

-1  .22222  22222. 

-1 . 1  .222222222  222222222. 

-1.2  -22222222222222222222222222222222222222222. 

•  +  +  +  +  +. 

VANT  TO  TRY  AGAIN   (YES=i;   N0=0)?  1 

THE  TWO  CURRENTS  WILL  BE  SEPARATED  BY   1.0   METER.    (NOTE:  IF 
THE  CURRENTS  ARE  TO  BE  OPPOSITELY  DIRECTED,    STATE  ONE  OF  THEM 
AS  A  NEGATIVE  VALUE). 
ENTER  THE  TWO  CURRENTS?  4#-4 


4 
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METERS 
1.2 
1.1 
1 

.9 

•  8 
.  7 
.6 
.5 
.4 
.3 
.2 

•  1 
0. 

-.1 
-.2 
-.3 
-.^ 
-.5 
-.6 
-.7 
-.8 
-.9 
-I 

-I  .  I 
-1.2 


-1  . 


.11 
.11 
I 


I 
I 

11 
11 
11 
.11 
11 
11 
I 


METERS 
-.6  0  .6 

•  ••••^••••••••••^••••••••••f... 

L I  11  11  11 11 11  I  I  I  I  11  11  11  I  I  I  li  I 
L 11  I  11 11 11  I  11  I  11 11  11  11  I  I  I  I  11 

I  I  11  I  I  I  1  I  U  I  I  I  I  I  11  11  I  U  I  I  I  I  I 
LIIIII  IIIII 

II  22222222222  I 
222222222222222222222 

22222  22222 


1.2 


222 
222  33 
222  3  4 
22  3 
22  3  4  7 
22   3  6 
22   3  ^  7 
22  3 
222  3  4 
222  33 
222 


3333333333333333333 


55  55555555555 
8b   7  66       66  7 
9   7  666   7  9 
+  7  7 

9    7  666  7 
66  66 


55 


88 
55 


9 

7  bb 

55555S   ::S55  55 
44444444A<44i'6>^4444 
33333333333 333333 
22222  22222 
1 1  222222222222222222222 
I  III  22222222222  1 

Ililllll  iiiii 
Iiai  II  II  I  I  I  I  I  III  I  I  11  1  I  I  I  U  1  1  1  1 
IIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
Illlllllllllllllllllllilllll 


222 
33  222 
4   3  222 
3  22 
7  4   3  22 
6     3  22 
7  4  3  22 

3  22 
4  3  222 
33  222 
222 


WftNT  TO  TRY  AGAIN   (YES=i;    N0«0)?  0 

UELL  I    GUESS  YOU'RE  ALL  THROUGH.  THANKS-- 


SEE  Y'A 


HEADY 
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IRCM  A.C*  CAGGlANOi  PATCHOQUE  U.S.I  PHYSICSJ  7**69 

2  REM     THIS  PROGRAM  PERMITS  A  STUDENT  TO  VISUALIZE  THE  MAGNETIC 

3  REM  INDUCTION  ABOUT  A  SINGLE  CONOUCTER  AND  THE  INFLUENCE  OF  THE 

4  REM  CURRENT  ON  THE  MAGNITUDE  OF  THE  FIELD*  THE  STUDENT  MAY  ALSO 

5  REM  VIEW  THE  MAGNETIC  FIELD  DUE  TO  TVO  CURRENTS  IN  THE 

6  REM  SAMS  OR  OPPOSITE  DIRECTIONS. 

7  REM 

RREM  IT  SHOULD  BE  NO "ED  THAT  THE  PRINTOUT  FOR  EACH  FIELD  PLOT  TAXES 

9  REM  ABOUT  4  MINUTES 

10  REN 

U  REM    REVISED  BY  L*  BRAUN  AND  C.  LOSIK  7*86*70 
Ifi  REM 

13  GO  TO  t40 

GO  PRXNT-'THIS  PROGRAM  VILL  PERMIT  YOU  TO  EXPLORE  THE  MAGNETIC  FIELD" 
30  PRIMT**A80UT  A  CURRENT  DIRECTED  INTO  THE  PAGE  AS  A  FUNCTION  OF  THE" 
iC  PRiMr'CORRENT  MAGNITUDE;** 
.50  PRINT 

60  PRIMT-'WAT  VILL  BE  YOUR  INITIAL  CURRENT  CSKLECT  POSITIVE  VALUES** 
ID  PRINT**BETVEEN  i  AND  6  AMPERES).**  .... 
80  PRINT*'ENTER  YOOB  VALUE  OF  CURRENT**! 
90  INPUT  II 

95  If  ABS(II)>a  THEN  UO 
100  IF  ABS<in>«l  THEN  130 

110  PRIHr'C*NON  NOV**  ENTER  PROPER  VALUES*** 

lao  GOTO  SO' 

130  IF  K>0  THEN  ISO 

140  PRINT 

150  PRINT  *'THE  MAGNITUDE  OF  THE  FIELD  DECREASES  FROM  9  TO  0 .  " 

155  PRINT  **9  IS  THE  HIGHEST  POSSIBLE  FIELD  STRENGTH^  AMD  0** 

160  PRINT  **(imiCH  MEANS  A  2ER0  FIELD)  THE  LOVEST." 

170  PRINT 

I GO  GOdUB  440 

190  LET  E-K4>1 

GOO  PRINT 

ftIO  IF  JC-8  THEM  840 

8B0  PRIHT*'SELECT  A  DIFFERENT  CURRENT •** 
830  GOTG  80 

840  PRINT*'V0UU)  YOU  LIKE  TO  TRY  TVO  DIFFERENT  CURRENTS  AT  THE  SAME" 

890  PBlNr*TIMB  (YES-ll  H0-O>"J 

860  INPUT  a 

870  IF  G»l  THEN  330 

875  IF  0<»0  THEN  840 

8B0  PRlNr"mULB  YOU  RATHER  TRY  ANOTHER  CURRENT  (YES>li  NO«0>"J 

890  INPUT  P 

300  IF  P«l  THEN  80 

305  IF  P^iQ  THEM  880 

310  PRINT"«ELL  I  GUESS  YOU'RE  ALL  THROUW*  THANKS**  SEE  Y*A" 
380  STOP  - 

330  PR1NT"THE  TVO  CURRENTS  VILL  BE  SEPARATED  BY  1.0  METER*  (NOTE!  IF" 

340  PBlNT*TRE  CURRENTS  ARE  TO  BE  OPPOSITELY  DlRECTCD>  STATE  ONE  OF  THEM" 

350  PRlHr*AS  A  NEGATIVE  VALUE)  •" 

360  PRlNT"tNTER  THE  tVG  CURRENTS"! 

3T0  IHPUT'lUIE 

380  PRINT  * 

390  G05UB  440 

400  PRINT"«ANT  TO  TRY  AGAIN  (YES«li  N0-0)"l 

410  INPUT  P 

480  IF  P-1  THEN  330 

483  IF  P-0  THEN  310 

W  GO  TO  400 

440  PRINT 

450  PRINT  "  "i*"  "^"METERS- 

460  PRIMT"  ">**-l.a  *.6  0  #6  1.8" 
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470  FBlirr  **  IICTSRS"#"*^  ♦  ♦  ♦  

4B0  rOA  TO  •US  STlP(«.i> 

900  PRINT  ~IIirr(IO*Y^;5>/IO«"«**l 

530  roft  TO  8  STtP(.I) 

540  LST  X««64£ 

545  LET  r8-Y«Y 

550  ir  Q<»l  TUBN  730 

560  Ir  ABS(Y>>«OOI  THEN  640 

570  Ir  ABS<Z^«6>»«00i  THEN  610 

580  ir  ll>0  THEN  600 

590  PRINT 

595  00  TO  945 

600  PRINT  '^♦"l 

605  M  TO  945 

610  IP  ABS(Z*.a>»«OOI  THEN  640 
680  IP  I8>0  THEN  600 
630  80  to  590 

635  REN    Rl  AND  R8  ARE  SQUARES  1 1 1 

640  LET  XI«X^«5 

650  LET  X8»X«.5 

660  LET  RI-XI*XI^Y8 

670  LET  R8»X8*X8^Y8 

660  REM    PARALLEL  ViRfiS 

690  LET  HI«Ii*Y/Ri^I8«Y/R8 

695  REM    M  IS  REALLY  MINUS  OP  WAT  VE  HAVE 

TOO  LET  H8«II*XI/Ri^I8«E8/B8 

710  LET  B«SQR(HI4iHi^R8*H8} 

780  80  TO  *  760 

730  LET  R"SQR(X*X^Y8> 

740  IP  ABSCRX.OOl  THEN  580 

750  LET  B«ABS(Il/R>  ' 

750  IP  B».O0l  THEN' 800 

770  PRINT  "O'^l 

760  80'T0  945 

800  POR  J-l  TO  9 

610  IP  ABS(B«8*5*J><*75  THEN  840 
880  NEXT  J 

885  PRINT  "  "I 
830  80  TO  945' 

840  IP  J»5  THEN  900 

850  IP  JoX  THEN  660 

653  PRINT  "l-l 

656  80* TO  945 

860  IP  J<»8  THEN  670 

663  PRINT  "8"! 

666  80~T0  945 

870  IP  •H»3  THEN  860 

673  PRINT  "3-1 

876  80  TO  945' 

880  IP  fH>4  THEN  690 

883  PRINT  ~4'*l 

886  80  TO  948 

•90  IP  «K»8  THEN  900 

893  PRINT  "5-1 

896  88  TO  945 

fOO  IP  J«»6  THEN  910 

903  PRINT  ~6~l 

906  80  TO  945 

910  IP  THEN  980 

913  PRINT  -r^J 

916  80  TO  945 

980  IP  fH>B  THEN  930 

983  PRINT  "6"l 

986  80~T0  945' 

930  IP  «H»9  THEN  685 

933  PRINT  "9-1 

945  NEXT  Z' 

950  PRINT  ••••• 

955  NEXT  Y 

960  PRINT  "   ♦  

970  PRINT 
980  RETURN 
990  END 


DISCIPLINE  PHYSICS 

™e  bokr  atom  and 

SUBJECT  PHOTON  EMISSION 


PROGRAM  NAME  BOHR 


DESCRIPTION: 

The  student  may  choose  to  have  the  Lyman,   Balmer,  or 
Paschen  Series  of  the  hydrogen  emission  spectrum  displayed.  He 
then  must  decide  which  energy  level  transitions  are  responsible  for 
the  lines  of  the  spectrum  that  he  has  chosen.    If  he  is  successful,  an 
enerfjy-level  diagram  is  presented  and  he  must  determine  the  energies 
of  the  photons  emitted  by  the  electron  as  it  falls  between  randomly- 
selected  energy  levels. 

OBJECTIVES: 

To  give  an  increased  understanding  of  the  Bohr  atom  and  of 
how  emission  spectra  are  formed. 

PRELIMINARY  PREPARATION: 

A.  Student  -  The  student  should  have  been  introduced  to  the  Bohr  atom, 
quantum  theory,  and  ideally,  have  measured  the  wavelengths  of  the 
bright  lines  of  the  hydrogen  spectrum. 

B.  Materials  -  A  piece  of  paper  and  a  pencil. 
DISC  USSION: 

After  the  student  selects  the  series  he  wishes  to  see,,  it  is 
displayed  and  he  tries  to  discover  which  quanlum  level  jump:T  v3y  the 
electron  are  responsible  for  the  first  two  of  three  lines  in  thr  jeries. 
If  he  is  ruccessful  three  times,  a  statement  as  to  how  the  liner;  of  that 
series  are  formed  is  printed  and  he  may  then  elect  to  try  anotlier  series 
or  move  on  to  work  with  the  energy-level  diagram  for  hydrogen. 

After  a  brief  explanation  concerning  the  energy  of  a  photon 
emitted  during  the  transition  of  the  electron  from  a  higher  to  a  lower 
energy  level,   the  student  is  given  a  chance  to  show  what  he  has  learned. 
Energy  levels  are  randomly  selected  and  he  must  calculate  the  energy 
of  the  emitted  photon.    \i  the  student  is  not  successful,  he  gets  a  further 
explanation.    After  six  trials  the  program  ends. 
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YOU  MAY  VIEV  THE  i.  UYMAM    a.BALNEA     OB  3.  PASCHEN 
SERIES  BY  TYPING  IN  THE  NIMBER  OF  THE  SERIES  YOU  UANT 
DISPLAYED^  OR  TYPE  4  POR  AN  ENERGY  UEVEU  DIAGRAM. 

CHOOSE  THE  NUMBER  OP  THE  PART  YOU  VOUU)  LIKE  TO  SEE* 
7  8 


7000  A 

6900  A 

6i00  A 

6700  A 

6600  A 

6500  A   6564*706 

6400  A 
6300  A 
6B00  A 

6100  A 

6000  A 

5900  A 

5M0  A 

5700  A 

5600  A 

5500  A 

5400  A 

5300  A 

5800  A 

5100  A 

5000  A 

490O  A 

4f00  A  •  4668*745 

4700  A 

4600  A 

4500  A 

4400  A 

4300  A-   4341*737 

4S0O  A 

4100  A   4108*941 

4000  A 

39C90  A— — ~~  3971*848 

3a00  A-  —  3690.196 

3700  A 

3600  A  —  3647*059 

3500  A 

3400  A 

3300  A 

3800  A 

3100  A 

3000  A 


-SERIES  1.IMIT 


Ftivsics 
BOHR 


ACCORDINQ  TO  THE  BOUA  TUEOHY  EACH  OF  THESE  LINES  RESULTS 
raOM  THE  SHISSION  OF  A  PHOTON  DURING  THE  TRANSITION  OF  THE 
OniTAL  ELECTRON  OF  AN  EXCITED  HYDROGEN  ATOM  FROM  A  HIGHER 
WERGY  STATE  iWBlJ}  TO  A  LOVER  ONE*     IN  A  PARTICULAR  SERIES 
THE  TRANSITION  CJUNP>  IS  ALVAYS  INTO  THE  SANE  LOVER  LEVEL 
C0R8IT)  FROM  ANY  HIGHER  ONE. 

LXT^S  SEE  IF  YOU  CAN  DETERMINE  VHICH  TVO  ORBITS  THE  ELECTRON 
JUMPED  BETVEEM  TO  GIVE  THE  LINES  THAT  HAVE  BEEN  DISPLAYED. 

THE  LOVEST  ENERGY  LEVEL  CGftOUND  STATE)  IS  NUMBERED  ONE* 
HIGHER  ENERGY  LEVELS  HAVE  HIGHER  NUMBERS  IN  SEQUENCE* 


FOR  EXAMPLSl  FROM  4  TO  I  ENTER  AS  4#I7  3#4 
HBYI  I   FROM  A  HIGHER  TO  A  LOVER  ENERGY  LEVEL* 


FOR  EXAMPLE!  FROM  4  TO  I  ENTER  A3  4#i7  3#8 

GOOD  START*     THAT  GIVES  A  VAVELENGTH  OF  6564*706 
WE  NEXT  LINE  IS  FORMED  BY  WICH  TRANSITION?  48-#8 

Bt  GEORGEII  I  THINK  YOU'VE  GOT  ITU  THE  WAVELENGTH  IS  4668*745 
1BY  ONE  MORS  -  THE  NEXT  ONE.     ENTER  N0V*7  5#8 


AMY  TRANSITION  FROM  A  HIGHER  ENERGY  LEVEL  INTO  THE 
SBCOMD  ENERGY  LEVEL  YIELDS  A  PHOTON  OF  THE  BALMER  SERIES* 

IF  YOU  VOULD  LIKE  TO  TRY  ANOTHER  SERIES  TYPE  IN  THE  NUMBER 
or  THAT  SERIES*     IF  YOU  HANT  TO  GO  OH  TO  A  NEV  PART  OF 
WE  PROGRAM  TYPE  4 
lillCHTT  4 


YOU  VILL  MOV  GET  AN  ENERGY  LEVEL  DIAGRAM  FOa  HYDROGEN. 
IT  SMOVS  THE  ENERGY  OF  THE  ELECTRON  tN  THE  VARIOUS  ^ENERGY 
LEVELS*     THE  DIFFERENCE  BETVEEN  THE  fiNERGY  Of  tW  ELECTRON 
IN  A  HIOHSR  LEVEL  AND  THAT  IN  A  LOVER  LEVEL  IS  THE  ENERGY 
or  THE  EMITTED  PHOTON*       ECPHOTON)  «  E  <HIGHER>  •  E  (LOVER) 


EKLC 
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CONTINOUM  BOHR 

H»  INPINITY  Zm  000000 

IP.  6  .......  £,  .  ,370001 

II.  5  E«  -  ,540001 

^  ^    -  Zm  -  .flSOOOi 

1^  3    E«  -  1.510001 


Urn  a   £•  .  3.400001 


Zm    -  13.6 


riNO  THB  EMKaaiES  or  the  photons  given  orr  for  the 

HUUtSITIONS  GK^EN  BELOV. 

raOH  LEVEL  8  TO  LEVEL  1  THE  ENCHGY  Or  THE  PHOTON  IS77  10.8 
GOOD*  TRY  iliNOTKER 

PBOM  LEVEL  4    TO  LEVEL  8    THE  ENERGY  Or  THE  PHOTON  IS? 7  8.65 

WE  ENERGY  OW  LEVEL  4  IS*. 05 
IRE  ENERGY  OW  LEVEL  8  lS-3.4 

TNSia  DirrERENCE  -  PHOTON  ENERGY  •  8*55 

PMM  LEVEL  4  TO  LEVEL  8  THE  ENERGY  OP  THE  PHOTON  IS77  8.55 
GOOD.  TRY  ANOTHER 

FROM  LEVEL  8  TO  LEVEL  1  THE  ENERGY  OP  THE  PHOTON  IS77  10*8 
GGOO*  TRY  ANOTHER 

PRON  LEVEL  5  TO  LEVEL  8  THE  ENERGY  OP  THE  PHOTON  IS77  8.8^ 
GOOD.  TRY  ANOTHER 

PHON  LEVEL  5  TO  LEVEL  8  THE  ENERGY  OP  THE  PHOTON  IS77  8.86 
1MANX  YOU#  AND  GOODBYE. 

READY 

■ 
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Physics 
BOHR 


I  BIM  JOHN  HOSIC  -  NORTKPORT  HIGH  -  7/23/69 
90  LET  T-8 

100  RCM    REVISED  BY  C.LOSIK  6-81-70 

105  REN    N  IS  WICH  PROBLtH#  LISA  SERIES  VAVELSliQTH#A  AMD  B  ARE 

106  REN     UPPER  AND  LOVER  LINITS  OF  POSSIBLE  SERIES  VALUES 
180  RANDOMIZE 

130  PRINT  '*YOU  MAY  VIEW  THE  lo  LYMAN     8.BALMER    OR  3*  PASCHEN** 
140  PRINT  '^SERIES  BY  TYPING  IN  THE  NUMBER  OF  THE  SERIES  YOU  VANT** 
150  PRINT  **0ISPLAYED#  OR  TYPE  4  FOR  AN  ENERGY  LEVEL  DIAGRAM*** 
160  PRINT 

170  PRINT  **     CHOOSE  THE  NUMBER  OF  THE  PART  YOU  VOL^L^!)  LIKE  TO  SEE***! 

100  PRINT 

190  LET  0»1 

830  DIM  S(I0> 

810  LET 

880  INPUT  M 

888  FOR  Q«l  TO  4 

884  IF  M»Q  THEN  835 

886  ilEXT  Q 

888  PRINT  **W  8#  3#  OR  4  ONLY#  PLEASEI** 
830  GO  TO  880 
835  PRINT 

840  IF  N«4  THEN  1800 

8S0  LET  N«M^1 

860  LET  D«18400«M«a/13.6 

870  LET  Dl-INT  (•01*0) 

880  GO  TO  450 

890  FOR  I«A  TO  B  STEP  *1 

300  LET  E«13.6*(l/Mtg-1/Nt8> 

310  LET  L-18400/S 

380  LET  P«INT  (;01*L> 

330  IF  I«01  THEN  430 

340  IF  I«P  THEN  370 

350  PRINT  100*1**  A** 

360  80' TO  410  ~ 

370  LET  J-U^l 

380  LET  S(U)-L 

390  PRINT  lOO^I**  A  ••L 

400  LET  N«N^1 
410  NEXT  I 
480  GO  TO  590 

430  PRINT  lOO^I**  A  **18400*N*M/13.6**  •SERIES  LIMIT** 

440  GO  TO  410 

450  LET  Y«18400*(Mt8*Nt8>/€13*6*(Nta*Mt8)) 

460  LET  Y«IMT(.01*Y) 

470  IF  Y<1S  THEM  500 

480  IF  Y<70  THEN  530 

490  IF  Y<190  THEN  560 

900  LET  A«15 

510  LET 

9gO  GO  TO  890 

530  LET  A-70 

540  LET  fi«30 

550  GO  TO  890 

560  LET  A-190 

570  LET  fi«78 

575  IF  a>l  THEN  ^80 

580  80  TO  890 

590  PRINT 

400  PRINT  **     ACC0RDIN8  TO  THE  BOUR  THEORY  EACH  OF  THESE  LINES  RESNLfS** 
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6&0  PRIST  '•Pmn  THE  ZMlSr<).0^  OF  A  PHOiC^  DURING  THE  TBANSITION  OF  THE** 
5^  PRINT  **OHiiltr^  ELECTiXdN  OF  AN  EXCITED  HYDROGEN  ATON  FROM  A  HIQUEB** 
630  PRINT  **ENKriGY  STATT  CORBIT)  TO  A  LOVER  ONE.     IN  A  PARTICULAR  SERIES"' 
640  PRINT  **THE  TRANSITION  CUU»P>   ZS  ALUAYS  INTO  THE  SAME  LOVER  LEVEL** 
650  PRINT  **COBBAT>  FROM  ANY  HIGHER  ONE*^ 
655  LET  G«G^a 

660  PRINT  **     LET*S  SEE  IF  YOU  CAN  DETERMINE  VHICH  TVO  ORBITS  THE  ELECTRN 
670  PRINT  **«3UNPE0  BlCTWEEN  TO  GIVE  THE  LINES  THAT  HAVE  BEEN  DISPLAYED*** 
660  PRINT  **     THE  LOVEST  ENERGY  LEVEL  CG^UND  STATE)  IS  NUMBERED  ONE*** 
690  PRINT  '•HIGHER  ENERGY  LEVELS  HAVE  HIGHER  NUMBERS  IN  SEGUENCE." 
700  LET  F«l 
710  PRINT 
780  PRINT 

730  PRINT  '*     FOR  EXAMPLES  FROM  4  TO  I  ENTER  AS  4#  T'i 
735  LET  T«T^I 
740  INPUT  N#MI 
750  PRINT 

760  IF  N>MI  THEN  620 
770  IF  F<>l  THEN  800 

780  PRINT  '*HEVll  FROM  A  HIGHER  TO  A  LOVER  ENERGY  LEVEL*** 
790  GO  TO  710 

600  PRINT  '*00PS  -  FROM  HIGHER  TO  LOVER." 
610  60  TO  710 

8d0  LET  LI«ia400«CMi ta«Nta>/Cl3.6«<Nt8-Mltg)) 

630  IF  ABS<LI-S<F>><*005  THEN  690 

640  IF  F>I  THEN  670 

650  PRINT  '*NOPEII   TRY  AGAIN." 

660  60  TO  710 

670  PRINT  '* SORRY.     TRY  AGAIN!     YOUR  FINAL  ENERGY  LEVEL  SHOULD  BE**M 

660  GO  TO  710 

690  IF  F«I  THEN  930 

900  IF  M«l  THEN  1010 

910  IF  F»8  THEN  970 

980  GO  TO  1010 

930  PRINT  '^GOOD  START.     THAT  GIVES  A  WAVELENGTH  OF'*Li 
940  PRINT  "THE  NEXT  LINE  IS  FORMED  BY  VHICH  TRANSITION"i 
950  LET  F-F*l 
960  GO  TO  740 

970  PRIN?  '*BY  GEORGEII   I  THINK  YOU*VE  GOT  ITIf  THE  VAVCLENStH  IS'*Li 
960  PRINT  '*TRY  ONE  MORE  -  THE  NEXT  ONE.     ENTER  NOV.'*i 
990  LET  F«F^I 
1000  60  TO  740 
10 10  PRINT 

1080  PRINT  '*     ANY  TRANSITION  FROM  A  HIGHER  ENERGY  LEVEL  INTO  THE'* 
1030  IF  M« I  THEN  1060 
1040  IF  M«8  THEN  11 10 

1050  PRINT  '•THIRD  ENERGY  LEVEL  CAUSES  THE  EMISSION  OF  A  PHOTON  OF  THE" 
1060  PRINT  '•PASCHEN  SERIES.'* 
107O  GO  TO  1180 

1060  PRINT  "GROUND  STATE  IS  ACCOMPANIED  BY  THE  EMISSION  OF  A  PHOTON  OF" 
1090  PRINT  "LIGHT  BELONGING  TO  THE  LtNAN  SERIES."' 
iiOO  GO  TO  1180 

1110  PRINT  "SECOND  ENERGY  LEVEL  YIELDS  A  PHOTON  OF  THE  BALNER  SERIES." 
1180  PRINT 

1130  PRINT  "IF  YOU  VOULD  LIKE  TO  TRY  ANOTHER  SERIES  TYPE  IN  THE  NUMBER" 
1140  PRINT  "OF  THAT  SERIES ^     IF  YOU  WANT  TO  GO  Oli>  TO  A  NEW  PART  OF" 
1150  PRINT  "THE  PROGRAM  TYPE  4" 
1160  PRINT  "VHICH7"! 
1190  GOTO  880' 
1800  PRINT 

1810  PRINT  "     YOU  WILL  NOV  GET  AN  ENERGY  LEVEL  DIAGRAM  FOR  HYDROGEN." 
1880  PRINT  ""IT  SHOVS  THE  ENERGY  OF  THE  ELECTRON  IN  THE  VARIOUS  ENERGY" 
1830  PRINT  "LEVELS.     THE  DIFFERENCE  BETVBEN  THE  INER8Y  OF  THE  ELECTRON" 
1840  PRINT  "IN  A  HIGHER  LEVEL  AND  THAT  IN  A  LOVER  LEVEL  IS  THE  ENERGY" 
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\2\0  PRINT  "OF  THE  SMITTSD  PHOtON.  ECPHOTOH)  «  S  (HlQHEfi)  -  S  (LOVSR)** 
1860  PRINT 

1870  PRINT  CONTINUUH** 
ISM  PRINT 

1890  PRINT  ""N-  INFINITY^....  E«  000000"* 

1300  LET  N«6 

1310  FOR  I«l  TO  40 

1380  LET  t«INT(40/Nt8^.S6) 

1330  IF  I«Y  THEN  1360 

1340  PRINT 

13S0  80  TO  1380 

1360  PRINT  *^Mm^Mr     •  — -  s«  -**INT(  1360/Nt8)/100^.000001 

1370  LET  N-N-1 
1380  NEXT  I 
1390  PRINT 

1400  PRINT  ""FIND  THE  ENSA8ISS  OF  THE  PHOTONS  QIVSN  OFF  FOR  THE** 

UIO  PRINT  "^TRANSITIONS  Ql^  BELOtl.** 

1480  LEt  J-0 

1430  FOR  I«0  TO  T*Q 

1440  LET  Y3-RNDCI) 

1450  NEXT  I 

1460  FOR  I«l  TO  80 

1470  LET  Y3«INTC1^(5«RND(I))) 

1480  LET  Y4«INTC1^C5*RND(I^1))) 

1490  IF  Y4>Y3  THEN  1510 

1500  NEXT  I 

1510  PRINT 

1580  PRINT  -FROM  LEVEL"'Y4"'  TO  LEVEL^YS"  THE  ENERGY  OF  THE  PHOTON  IS7"J 

1530  INPUT  El 

1 

1S40  LET  Jmj^l 
1590  PRINT 

1560  LET  E— 13.6«1 :  *(Y4t8>-l/(Y3t8)) 
1570  IF  ABSCE1-E)>.005  THEN  1610 
15f0  IF  J-6  THEN  1660 
1590  PRINT  "^8000 •  TRY  ANOTHER** 
1800  80  TO  1460 

1610  PRINT  '^THE  ENERGY  OF  LEVEL*'T'S  **  IS'**13.6/( Y4t8) 
1880  PRINT  EMER8Y  OF  LEVEL**Y3  **  lS'*-l3.6/(Y3t8> 

1630  PRINT 

1640  PRIN?  **TKSIR  DIFFERENCE  «  PHOTON  ENSR8Y  «**E 
1650  80  TCI  '460' 

1660  PRINt'  "THANK  YOU«  AND  800DBYE.** 
1670  END 
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DISCIPLINE  PHYSICS 


SUBJECT  CALrORIMETRY 


PROGRAM  NAME  CALORI 


DESCRIPTION: 

Calorimetry  experiments  are  simulated  by  the  computer  permitting 
the  student  to  enter  the  mass  and  temperatures  of  two  quantities  of  water. 
The  computer  calculates  and  prints  out  the  equilibrium  temperature  of 
the  mixture.    The  student  must  then  determine  the  heat  energy,  in 
calories,  to  be  supplied  (or  removed)  from  each  mass  to  obtain  the 
equilibrium  temperature. 


OBJECTIVES: 

A,      To  acquaint  the  students  with  conservation  of  energy  concepts  in- 
volving calorimetry, 

B       To  determine  the  equations  governing  these  relationships. 


PRELIMINARY  PREPARATION: 

A,  Student    -  Must  know  definitions  for  calorie  and  specific  heat, 

B,  Materials  -  Table  of  Specific  heats 


DISCUSSION: 

Calorimetry,  in  its  simplest  form,  is  presented  as  part  of  a 
class  lesson.    The  concept    of  heat  energy  balance  is  developed  by 
presenting  several  examples,  with  the  computer,  based  on  the  definition 
of  the  "  calorie.  "  Specific  heat  is  introduced  by  a  similar  approach 
(replacing  the  water  of  the  initial  examples,  with  alcohol;  specific  heat  of 
,  6  cal/  gtn-O^C,  ) 

The  program  can  be  modified  (with  relative  ease)  to  incorporate 
different  materials  or  combinations  of  different  materials. 

When  this  program  was  used  as  an  introduction  to  calorimetry, 
it  was  noted  that  many  students  were  able  to  determine  the  equations 
describing  the  phenomenon  by  utilizing  the  stated  results  from  the  computer. 


Physics 
CALORI 


HEAT  AND  CALORIMETRY 
YOU  HAVE  TVO  BEAKERS  OF  WATER  • 

WAT  IS  THE  MASS  (IN  GRAMS}  AND  THE  TEMP  (IN  DEGREES)  OF  THE 
VA7EII  £N  THE  FIRST  BEAKER?  80>50 

WAT  IS  THE  MASS  (IN  GRAMS)  AND  THE  TEMP  (IN  DEGREES)  OF  THE 
VATE^  IN  THE  SECOND  BEAKER?  40>60 

TOE  FINAL  TEMPERATURE  OF  THE  MIXTURE  IS     53*33  DEGREES* 

NOV  MANY  CALORIES  WERE  INVOLVED  IN  CHANGING  THE  TEMP  OF 
THE     FIRST     BEAKER  FROM     50     TO     53«33     DEGREES?  260 

YOU*R£  CLOSE  ENOUGH.  THE  CORRECT  ANSWER  IS     &66«4  CALORIES. 

HOV  MANY  CALORIES  VERE  INVOLVED  IN  CHANGING  THE  TEMP  OF 
TOE     SECOND     BEAKER  FROM     60     TO     53«33     DEGREES?  240 

YOU'RE  MO£t£  THAN  3  PERCENT  OFF.  YOU  SHOULD  HAVE  SAID 
266*  6  C^ORIES. 


WNT  TO  TRY  AGAIN  (  1«YES^  0«N0)    I   ?  1 

CHOOSE  A  LiauID  I  O-VATEH^    1«ALC0H0L«     WICH?  1 

YOU  HAVE  TVO  BEAKERS  OF  ALCOHOL  . 

WAT  IS  THE  MASS  (IN  GRAMS)  AND  THE  TEMP  (IN  DEGREES)  OF  THE 
ALCOHOL  IN  THE  FIRST  BEAKER?  100^50 

WAT  IS  THE  MASS  (IN  GRAMS)  AND  THE  TEMP  (IN  DEGREES)  OF  THE 
ALCOHOL  IN  THE  SECOND  BEAKER?   100 #70 

TOE  FINAL  TjrMPSHATURE  OF  THE  MIXTURE  IS     60  DEOaESS* 

NOV  HA/  OaKSS  v&as  ipIVOLVED  in  changing  THE  TEMP  OF 

TOE     :^IR.^T     ASAKER  FROM     50     TO     60     DEGREES?  1000 

YOU'RE  MORE  THAN  3  PERCENT  OFF*  YOU  SHOULD  HAVE  SAID 
600  CALORIES. 

HOV  MANY  CALORIES  VERE  IS^VOLVED  IN  CHANGING  THE  TEMP  OF 
WE     SECOND     BEAKER  FROM     70     TO     60     DEGREES?  600 

YOU* RE  CLOSE  ENOUGH.  THE  CORRECT  ANSVER  IS     600  CALORIES- 


tf4NT  TO  TRY  AGAIN  (  t*-     ^»  0-NO)   I   '^  ^ 


READY 
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I  REM  A.C*  CAQQlAlfOi  PATCHOGUK  H.S.J  PHYSICSJ  ^••69 

8  RSM  THIS  PROGRAM  INVOLVES  CALORlMETRY  CXPERIMSttTS  OR  THEIR 

3  REM  SlMULATIOM. 

5  REM    REVISED  BY  C.LOSlK  8*25*70 

6  REM    K  TELLS  VHICH  LiaUID#  U  TELLS  WICH  BEAK£R# 

7  REM    M(U)  ARE  THE  MASSES  OF  LIQUID#  T(J)  ARE  THEIR  TEMPERATURES 
aO  LET  K»0 

90  DIM  M(S)#T(2) 

100  PRINT  **  **#**HEAT  AND  CALORlMETRY** 
no  PRINT 
118  PRINT 

lU  PRINT  ^§§§§§§§§§§** 

116  PRINT 

180  PRINT'*Y0U  HAVE  TVO  BEAKERS  OF'*i 
130  QOSUB  590 
140  PRINT"." 
150  POR  %Mi   TO  a 

GRAMS)  AND  THE  TEMP  (IN  DEGREES)  OF  THE" 
170  60SUB  S90  wr  am 

180  PRlNt**lN  THE-J 

190  QOSUB  540 

800  PRlNT*'BEAiCER*'J 

810  INPUT  MCJ)#TCJ) 

880  PRINT 

830  NEXT  J 

840  LET  T3«CMC1)*TC1)^MC2)*T(2))/(M(1)^M(8)) 
845  LET  T3«lNTClOO«t3^.5)/100  ' 

850  PRINT**THE  FINAL  TEMPERATURE  OF  THE  MIXTURE  IS  ••T3'*  DEQREIS.** 
860  PRINT  -        -  -  . 

870  FOR  J»l  TO  Z 

380  PRINT-HOU  MANY  CALORIES  VERE  INVOLVED  IN  CHANGING  THE  TEMP  OF" 

890  PRiNr'THE 

XO  GOSUB  540 

310  PRINT"  BEAKER  "; 

380  PRINT^FROH  "TCJ)"  TO  "TS"  DEGREES" J 

330  INPUT  H  - 

335  PRINT 

340  LET  G«ABS(H) 

350  LET  T«ABSCT3-T( J)) 

360  IF  6<>0  THSN390 

370  IF  S«MCJ)«T«0  THEN  400 

380  dOTO  430 

390  IF  ABSCCQ*S«MCJ)*T)/6)>.03  THEN  430 

400  PRIilT"YOU  *RE  CLOSE  ENOUGH.  THE  CORRECT  ANSWER  IS  "J 
405  Goto  440 
410  PRINT 
480  G0t0460 

430  PRINT"YOU*RE  MORE  THAN  3  PERCENT  OFF.  YOU  SHOULD  HAVE  SAID" 
440  PRINT  INT(100*S*M( J>*T^.5)/100  "  CALORIES." 
450  PRINT  * 
460  HE3tT  U 

469  PRINT 

470  PRINT  "WANT  TO  TRY  AGAIN  (1«YES#  0-NO)   I  "I 
475  II9UT  Q 

460  IF  Q«0  THEN  660 
483  IF  ^<>\  THEN  465 

485  PRINT  "CHOOSE  A  LIQUID  I  0«IMTEa#  l-ALCOHOL.  WICH"J 
490  INPUT  X 

500  IF  X*CX*I)<>0  THEN  485 
510  do  TO  110 
540  IF  J-8'tHEN  570 
590  PRINT"  FIRST  "i 
560  GOTO  580 
570  PRINT"  SECOND  "i 
580  RETURN 
590.  IF  K«il  THEN  630 
600  PRINr*  WATER  "I 
610  LET  S«l 
680  G0T0690 
.    630  PRINT"  ALCOHOL  "J 
640  LET  S-.6 
650  RETURN 
660  END 
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DISCIPLINE  PHYSICS  

S UB J  EC  T  RADIOACTIVE  DECAY 
PROGRAM  NA:SE  DECAY! 


DESCRIPTION; 

Radioactive  decay  is  treated  pseudo -quantitatively, 
student  to  determine  the  approximate  number  of  radioactive 
after  various  times. 

OBJECTIVES; 

To  induce  a  ^^feeT*   for  exponential   decay,  by  repeated  exercises. 
PRELIMENARY  PREPARATION; 

A.       Student  -  Awareness  of  terms;    half-life,  exponential,  and  radioactivity 


B.      Materials  -  none 
DISC  USSION; 

The  concept  of  radioactive  decay  is  presented  playfully  as  a  game, 
allowing  the  student  to  challenge  his  own  ability  in  determining  (with  5,  10,   or  20% 
error),  the  number  of  radioactive  ''chips*'   remaining  after  various  times.  The 
number  of  chips  successively  decreases  with  each  trial,  increasing  the  level 
of  difficulty  as  the  program  runs.    In  each  case,   the  exact  number  remaining 
is  given,    following  the  students'  entered  value. 

Individuals  or  small  groups,   find  this  program  exciting.    They  enjoy 
the  game  approach,  at  least  the  first  time  through  it,  and  seem  to  be  motivated 
by  the  opportunity  to  "  break  the  bank." 

This  program  can  be  used  as  an  integral  part  of  a  class  lesson  to  introduce 
the  concept,  or  to  motivate  group  discussion  and  participation  concerning  the 
phenomena.  — ~~   


by  permitting  the 
particles  remaining 
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—THE  MStf  CLEA  CAS1N0**« 

MR*  A.  TOM  MlCiO  GKNEAAL  HANAQCa  OT  THE  NEV  CLBA  CAS1N0# 
HAS#  AT  TIHS     T-C#     OlSCOVSEEO     100#000  AAOIOACTIVE  FLAYING 
OIIPS  AT  HIS  TABLE.  THEIR  HALT^LIFE  IS  10  MINUTES.  EACH  CHIP 
TRANSMUTES  SPONTANEOUSLY  AND  COMPLETELY  IN  A  RANDOM  FASHION. 

AT  VARIOUS  TIMES  T#  AFTER  T-0#  YOU  MUST  DETERMINE  VITHIN 
A  CERTAIN  PERCENTAGE^  HOW  MANY  CHIPS  ARE  LEFT* 

TO  FURTHER  THE  INTEREST  OF  THE  OAME#  YOU  VlLL  START  VITH 
SI #000  AND  THE  HOUSE  WITH  AN  UNSPECIFIED  AMOUNT;     HALF  THE 
MONEY  YOU  HAVE  VILL  RIDE  ON  EACH  GUESS  YOU  TAKE.     LET'S  SEE 
IF  YOU  CAN  BREAK  THE  HOUSE  BEFORE  THE  CHIPS  RUN  OUT.  ' 

IHE  HOUSE  OFFERS  THE  FOLLOWING  ODDSl 

8>  8  TO  1   ODDS  FOR  GUESSING  WITHIN  80  PERCENT 

4>  4  TO  1  ODDS  FOR  GUESSING  WITHIN  10  PERCENT 

9>  6  TO  1  ODDS  FOR  GUESSING  WITHIN    5  PERCENT. 

EHTER  THE  NUMBER  2#  4#  OR  6  FOR  THE  ODDS  YOU  WANT  AFTER  THE 
QUESTION  MARX  IN  THE  COLUMN  LABELLED  ODDS. 

YOUR  %  HOUSE  %  TIME  (N1N>  ODDS 

iOOO  1.000000E^6      7*8  7  6 

HOW  MANY  CHIPS  LEFT  7  60  700 
ACTUAL  NUMBER  LEFT  IS     60  716 
YOU  WON.  TRY  AGAIN. 

5000  996000  13.9  7  6 

HOW  MANY  CHIPS  LEFT  7  36150 
ACTUAL  NUMBER  LEFT  IS  36164 
YOU  WON.  TRY  AGAIN. 

85000  976000  86.9  7  6 

HOW  MANY  CHIPS  LEFT  7  15500 
AOTdAI.  NIIMRKR  '.F.FT   IS  iRROa 
YOU  VON.  TRY  AGAIN* 

185000  676000  30.7  T  6 

HOW  MANY  CHIPS  LEFT  7  11900 
ACTUAL  NUMBER  LEFT  IS  11913 

YOU  CAN  BREAK  THE  HOUSE  IF  YOU  TRY  A  LONG  SHOT. 

685000  376000  46.4  7  6 

HOW  MANY  CHIPS  LEFT  7  3500 
ACTUAL  NUiSER  LEFT  IS  3494 

YOU  BROKE  THE  HOUSE.  YOU  NEEDED  ONLY  THE  MINIMUM  NUMBER  OF  GUESSES 
CONGRATULATIONS. 

YOU  MUST  KNOW  A  LOT  ABOUT  RADIOACTIVITY  AND  THINGS. 
THANKS  FOR  PLAYING** 


CHECK  NO*  3499 
DATE!  -.-———-.—  19  — 


PAY  TO  THE  ORDER  OF— ------CASH-— —S  I.001000E*6 


THE  NEW  CLEA  CASINO  A.  TOM  MICK 

GENERAL  MANAGER 


DONT  SPEND  IT  ALL  IN  ONE  PLACE. 


READY 
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100  REN     RICHAHD        PAV«  PATCHOGUC  H*S*#  (PHYSICS)     REVISED  NOV*  26#1968 

105  TAWDOMIZE 

UO  REM     THIS  IS  A  GAME  BASED  ON  RADIOACTIVE  DECAY. 

120  PRINT  -   THE  NEV  CLEA  CASINO  

130  PRINT 

140  PRINT  MR.  A.  TOM  MSCK#  GENERAL  MANAGER  OT  THE  NEV  CLEA  CASINOt 

150  PRINT  -HAS#  AT  TIME  T-0#  DISCOVERED  100#000  RADIOACTIVE  PLAYING**' 
160  PRINT  "CHIPS  AT  HI5  TAOLE.  THEIR  a<UJ?--LIFE  IS  10  MINUTES.  EACH  CHIP- 
170  PRINT  "TRANSMUTES  SPONTANEOUSLY  AND  COMPLETELY  IN  A  RANDOM  FASHION.*' 
160  PRINT 

190  PRINT  AT  VARIOUS  TIMES         AFTER  T»0#  YOU  MUST  DETERMINE  WITHIBI 

200  PRINT  "A  CERTAIN  PERCENTAGE*  HOW  MANY  CHIPS  ARE  LEFT."  .  - 

eiO  PRINT 

220  PRINT  "  TO  FURTHER  THE  INTEREST  OF  THE  GAM^#   YOU  WILL  START  WITM 

230  PRIIJT  "SUOOO  AND  THE  ROUS?:' WITH  AN  UNSPECIFIED  AMOUNT^     HALF  THE**  * 
2/»0  PRINT  "MONEY  YOU  HAVE  WILL  RIDE  ON  EACH  GUESS  YOU  TAKE.     LET'S  SEE" 
250  PRINT  "IF  YOU  CAN  BREAK  THE  HOUSE  BEFORE  THE  CHIPS  RUN  OUT."' 
260  PRINT 

270  PRINT  "THE  HOUSE  OFFERS  THE  FOLLOWING  ODDSt" 
280  PRINT  "  2)  2  TO  I  ODDS  FOR  GUESSING  WITHIN  20  PERCENT" 

290  PRINT  "  4)  4  TO  1   ODDS  FOR  GUESSING  WITHIN  10  PERCENT" 

300  PRINT  "  6>  6  TO  I  ODDS  FOR  GUESSING  WITHIN     5  PERCENT." 

310  PRINT 

320  PRINT  "ENTER  THE  NUMBER  2#  4#  OR  6  FOR  THE  ODDS  YOU  WANT  AFTER  T^^ 
330  PRINT  "QUESTION  MARX  IN  THE  COLUMN  LABELLED  ODDS." 
340  PRINT 

350  PRINT  "YOUR  S"#     "HOUSE  »"#     "TIME  <MIN)"#  "ODDS" 

360  LET  A-0 

370  LET  D«0 

2a0  LET  T«0 

390  LET  Y-1000 

400  LET  C«0 

41 U  HRINT 

420   IF  AUS(G-D><1500  THEN  450 
430  LET  G-5 
440  LF.T  D"2 
450  LET  B-B-t-l 

460  FOR  I"l   TO  3+A*AB5<Q-D) 
A70  LET  T3-INT(100»RND(-Y))/10 
480  NEXT  1 
490  LET  T«T*T3 

500  LET  D»INTf lE5«EXPt-.0693*T)) 

510  IF  D"0  THEN  860 

520  PRINT  Y*1001000-Y#T# 

530  INPUT  A 

540   IF  A-2  THEN  610 

550  IF  A-4  THEN  610 

560  IF  A-8  THEN  61U 

570  PRINT  "SORRY  PAL*    WE  DONT  OFFER  THOSE  ODDS." 
580   IF  C-1   THEN  620 
590  LET  C-1 
600  GOTO  520 

610  PRINT  "HOW  MANY  CHIPS  LEFT  "i 
620   INPUT  Q 

630  PRINT  "ACTUAL  K'UMBER  LEFT  IS  "ID 

640  IF  A-2  THEN  700 

650   IF  A-4  THEN  680 

660  LET  P«»0.5 

670  GOTO  710 

680  LET  P«*l 

690  GOTO  710 

700  LET  P-.2 
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710  LET  T»10*B 

7C0  IF  ABS<D-a)<«P«D  THEN  770 
730  LET  y-'INTCY-y/fi) 
740  IF  y<-50  THEN  620 

750  PRINT  -TOO  BAU#  YOU  LOST,  TRY  AGAIN-- 

760  GOTO  400 

770  LET  Y-INT(y*A*y/2> 

780  IF  IOOOOOO-y<l  THEN  690 

T90  IF  Y>2E5  THEN  640 

800  PRINT  "YOU  WON.  TRY  AGAIN. - 

810  GOTO  400 

2^  ^"^^  ^"^^  ^^^'^  SAVE  YOUR  BREAD.- 

o30  GOTO  960 

840  PRINT  "YOU  CAN  BREAK  THE  HOUSE  IF  YOU  TRY  A  LONG  SHOT." 

850  GOTO  400  •  - 

860  PRINT  "OOOOFS...  SORRY  PAL#  THE  LAST  CHIP  JUST  DISINTEGRATED.- 

870  PRINT  -THE  HOUSE  IS  CLOSED."  u*o*«itun«i tu. 

880  GOTO  960 

890  PRINT  -YOU  BROKE  THE  HOUSE.  YOU  NEEDED  ONLY  "i 
895  LET  Y-lOOlOOb 
900  IF  D>5  THEN  930 

910  PRINT  "THE  MINlKUM  NUKBER  OF  GUESSES." 

930  GOTO  940 

930  PRINT  Di"GUESSES." 

940  PRINT  "CONGRATULATIONS." 

950  PRINT  "YOU  MUST  KNOW  A  LOT  ABOUT  RADIOACTIVITY  AND  THINGS.- 
960  PRINT  "THANKS  FOR  PLAYING.." 
970  PRINT 

980  PRINT  ...  .  .  .  

990  PRINT 

Til  pJlL" "  •  ''"^^ 

1030  PRINT  "  «...i9..-  * 

1040  PRINT 
1050  PRINT 

1060  PRINT  -  PAY  TO  THE  ORDZR  OF"-i 

10  70  PRINT  CASH  -J 

1080  PRINT  "$-iY 
1090  PRINT 
1100  PRINT 

1110  PRINT  -  THE  NEW  CLEA  CASINO  A.  TOH  MICK- 

11£0  PRINT  "  GENERAL  MANAGEfi** 

1130   PRINT  UW*t*WU.  IMWIAOWi 

iUO  PRINT  "-   

1150  PRINT 

1160  PRINT  "DONT  SPEND  IT  ALL  IN  ONE  PLACE. " 
1170END 
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SUB J  EC T  NUCLEAR  DECAY 
PROGRAM  NAME  DECAYS 


DESCRIPTION: 

This  program  will  do  the  following: 

A.  Calculate  half-life  from  2  readings  on  a  geiger  counter,  and  the 
time  between  them. 

B.  Calculate  mass  of  a  radioactive  sample  remaining  after  some  given 
amount  of  time. 

C.  Prints  out  a  table  showing  mass  or  number  of  particles  of  a 
radioactive  sample  remaining  vs.   some  range  of  time. 

OBJECTIVES: 

A.  To  provide  tabloig  and  graphs  for  a  better  understanding  of  the 
exponential  decay  of  a  radioactive  substance* 

B.  To  provide  a  calculator  for  determining  the  amount  of  mass  of  a 
radioactive  sample  remaining  after  some  given  amount  of  time. 

C.  To  provide  a  calculator  for  half-life  experiments. 


PRELIMINARY  PREPARATION: 

A.  Student   -  The  student  should  have  a  general  introduction  to  half- 
life   before  the  use  of  the  program. 

B.  Materials  -  none 


DISC  USSION: 

It  is  difficult  to  teach  about  the  exponential  (Icfijarithmic)  manner 
by  which  radioactive  elements  decay  without  meaningful  illustrations  and 
simulations. 
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With  this  pro         i     .  number  of  interesting  possibilities  are 
available.    For  examp  .ne  initial  mass  is  100  g  and  the  time  is 

equal  to  10  half-lives  with  an  increment  equal  to  the  half-life,  the 
student  will  see  the  mass  decrease  to  0.  1  g  during  that  time-  More 
important,  the  example  may  be  generalized  to  show  that  for  any  radio- 
active sample: 

after  1  half-life  50%  of  the  substance  remains 
after  2  half-life  25%  of  the  substance  remains 
after  3  half-life  12.  5%  of  the  substance  remains 
after  10  half-life  0.  1%  of  the  substance  remains 

You  may  also  illustrate  nuclear  decay  by  using  particles  instead 
of  mass.     Use  Avogadro'  s  number  of  particles  with  students  who  feel 
comfortable  with  scientific  notation.    For  the  othera,  you  may  use  a 
number  up  to  1,  000,  000  without  having  exponential  numbers  print 
out  in  the  table. 

The  fact  that  the  teletype  unit  takes  about  8  seconds  to  type  out 
a  line  provides  you  with  cute  little  gimmicks.    Set  up  a  run  with  8  second 
(or  any  multiple  cf  8)  and  the  print-out  of  the  table  will  keep  time  with 
the  decay  of  the  sample  substance. 

Please  note  that  the  half-life  calculations  are  not  accurate  for  a 
small  number  of  particles,  thus  it  is  misleading  to  make  runs  go  to  zero 
mass  or  zero  particles. 
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iNiriAL  MASS  OF  SAMr'LE j  1  0 TAL* 
AwD    TnE    iNCivEMENT   OF  " 


r'HiNT 
lNr»Ur 
660LET  W=0 
670   LET  u=0 


•ELAPSED 
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DISCIPLINE 


PHYSICS 


SUBJECT  ELECTRIC  FIELD  STRENGTH 
PROGRAM  NAME  EFIELD 


DESCRIPTION: 

The  electric-field  strength  at  a  point  near  a  fixed  charge  is  calculated 
and  printed.     A  line  of  charge  is  then  generated  by  adding  charges  to  either  side 
of  the  fixed  charge.    As  each  additional  charge  is  added,  the  new  electric- field 
strength  is  calculated  and  selected  values  are  printed. 

Similarly,  the  field  strength  at  a  point  near  a  plane  of  charge  is  cal- 
culated and  printed  as  the  plane  is  generated  with  the  addition  of  other  lines  to 
the  previous  line  of  charge. 

in  both  cases,  the  fields  can  be  seen  to  approach  a  limiting  value  w:  xh 
is  then  >v^irited  for  an  infinite  line  and  plane. 


OBJECTIVES: 

A,  To  show  that  the  electric-field  strength  approaches  limiting  values  for  a  line 
and  a  plane  of  charge, 

B,  To  let  the  st^jdent  discover  how  the  field  strength  depends  upon  the  distance 
from  a  point  to  a  line  of  and  to  a  plane  of  charge, 

PRELIMINARY  PREPARATION: 

A.  Student   -   A  know  ledge  of  Coulomh' s  law  and  the  vector  addition  of  electric 
fields, 

B.  Materials    -  none 


DI5r:rjSSION: 

The  operator  chooses  a  distance  (y)  away  from  a  fixed  charge  (Q2)  at  which 
ht-  wishes  to  know  the  field  strength.     He  also  chooses  the  number  of  charges  (N),  d  id 
their  spacing  (C),  that  he  wishes  to  add  to  each  side  of  the  fixed  charge    to  generatr^ 
a  line  of  charge,    Aftc^'  Ihi-  "        has  Seen  generated,   the  operator  enters  the  numbf  r 
of  such  lines  (M)  that  n    w         .  to  use  in  building  up  the  plane  of  charge. 

Actual  values  of  force  are  not  givon.  '.;nly  relative  values,  vVhen  the  fixed 
charge  (Q2)  is  at  a  distance  Y-  1  from  tne  *rjt  charge  (Q^),  the  force  is  1  unit.  The 
force  may  be  calculated  in  Nowtons  if  ail  distances  are  in  meters,  and  the  program 
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 i3,.3lightly.-changed..so..that       and  Qp  are  irx-coolombs.  If  .both  of  these 

charges  were  to  be  taken  as  single  elementary  charges,  tie  n  the  following  changes 
should  be  made: 

280  LET  Ql  =  1.  6*E-19 
290  LET  02  =  1.  6*E-19 
300    LET  K  =  9'»'£9 

If  the  spacing  (C)  is  taken  as  •  1  and  the  number  of  charges  (N)  as 
1000,   then  three  runs  through  the  program  using  the  distance  between  the 
test  charge  and  the  fixed  charge  (y)  as  1  ,   2,  and  4  should  be  sufficient  for  the 
relationships  to  be  determined.    A  casual  inspection  of  the  exact  values  of  the 
field  strength  for  these  three  distances  should  yield  the  following  conclusions: 

1.  The  field  strength  varies  inversely  with  the  square  of  the  distance 
away  from  a  single  poi  nt  charge. 

2.  The  field  strength  varies  inversely  with  the  distance  from  a  line  of 
charge. 

3.  The  field  strength  remains  constant  even  though  the  distance  from 
a  plane  of  charge  changes. 

It    should  be  noted  in  2  md  3  above,  that  the  spacing  between  charges 
mu3t  be  small  as  compared  to  the  distance  away  from  the  line     '  plane  of  charge, 
and  of  course  that  the  line  be  so  vong  and  the  plane  so  broad  that  any  further 
increase  in  length  or  breadth  be  insignificant. 

An  interesting  bonus  to  this  program  is  discov  red  when  distances  from 
test  charge  to  plane  is  decreased  to  .  0(j.,  .  0001,  and  .  00001.    Here  it  can  be 
seen  that  the  field  no  longer  is  constant,  but  changes  as  an  inverse  square  law 
for  a  single  charge  because  the  test  charge  begins  to  **see**   the  fixed  charge 
instead  of  the  whole  plane.     The     EXACT  VALUE.  .  .  ,  *  *  is  calculated  for 
charges  smeared  over  the  whole  plane  and  not  in  discrete  point  charges  as  we 
havt>  here;  hence,  the  disagreement  with  actual  field  values. 

This  program  may  be  run  by  an  individual  student  after  proper 
introductory  explanation  concerning  vector  additirn  of  electric  fields, 
contributions    of  the  charges  bei.ig  added  in  the  lin"  or  lines  to  the  pla;*e.  It' 
may  also  be  used  as  a  class  demonstration  and  discussion.    When  used  with  a 
whole  class  it  is  best  to  have  a  televisioii  camera  and  m.onitor  available  for 
Immediate  dis  play  of  print  oat.    A  summary  table  constructec'  either  by  the 
teacher  on  the  board  or  by  students  at  their  desks  is  useful  in  analysis  of  the  data. 
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THIS  PROGHAM  WILL  CALCULATE  THE  FORCE  ON  A  TEST  CHARGE 
THAT   IS  PLACED  SOME  DISTANCE^         AWAY  FROM  ANOTHER  CHARGEi 
A  LINE  OF  charge;  AND  A  PLANE  OF  CHARGE* 

YOU  MUST  ENTER  THE  DISTANCE  AWAY^   Y;   THE  SPACING  DESIRED 
BETWEEN  CHARGES^   C^  AND  ALSO  BETWEEN  LINES  OF  CHARGE  THAT 
MAKE  UP   THE  PLANE  OF  CHARGE* 

YOU  MUST  ALSO  CHOOSE  THE  NUMBER  OF  CHARGES   (N)    IN  THE  LINE 
CHARGE  THAT  YOU   WOULD  LIKE  TO  USE   (500    IS  A  GOOD  VALUE  IF 
YOU  USE  A  SPACING  OF   •!  FOR  C. 

JUST  SO  rar  calculations  don't  go,  too  far  i've  included 

A  STOP  TJU/r  DEPENDS  UPON  THE  ANGLE  FROM  TEST  CHARGE  TO  THE 
LAST  CHARGE  TO  BE  CALCULATED.      IF  THE  ANGLE   15  LESS 
THAN  2  DEGREES^   CALCULP.TI ONS  WILL  C£^.5£« 

INPUT  Y^C^N?  U^UIOOO 


NO.   OF  CHGS. 

ON  EACH  SIDE  FORCE 


0 

I 

1 

2.97 

2 

3 

6*61 

41 

8.21 

5 

9.65 

6 

10.91 

7 

12.01 

8 

12.96 

9 

13.7b 

10 

M.49 

20 

1  7.9b 

30 

19 

19.4i2 

50 

19.62 

60 

19.73 

70 

19.8 

80 

19.85 

90 

19.88 

100 

19.9 

200 

19.98 

28  7 

19.99 

EXCESSIVE  COMPUTER  TIME  WOULD  BE  REQUIRED  TO  CALCULATE 
TOE  FORCE  FOR  ADDITIONAL  CHARGES. 


THE  EXACT  VALUE  FOR  AN  INFINITELY  LONG  LINE  OF  CHARGE   IS  20 
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NOW  ADD  ROWS  ON  EITHER  SIDE  OF  THE  LINE  OF  CHARGE  JUST 
CALCULATED.      THE  SPACING  BETWEEN  ROWS   WILL  BE  THE  SAME  AS 
THE  SPACING  BETWEEN  THE  CHARGES. 

ENTER  THE  NUMBER  OF  EQUALLY  SPACED  ROWS  YOU  WANT  ON  EACH  SIDE 
?  500 


NO.   OF  LINES 

ON  EACH  SIDE  FORCE 


0 

20 

I 

59.5b 

2 

9b.02 

3 

13^.69 

169.16 

5 

201  .  14 

€ 

230 .53 

257.36 

8 

281 . 73 

9 

30  3.82 

10 

323.81 

20 

^146. 55 

30 

501 .31 

40 

531 .18 

50 

549.8 

60 

562-47 

70 

5  71  .62 

60 

5  78.54 

90 

583.96 

100 

588.3 

200 

608.03 

2tt7 

614.05 

EXCESSIVE  COMPUTER  TIME  WOULD  BE  REQUIRED  TO  CALCULATE 
THE  FORCE  FOR  ADDITIONAL  LINES  OF  CHARGE. 


THE  EAACT  VALUE  FOR  AN   INFINITE  PLANE  OF  CHARGE  IS  628.318 


DO  YOU  WANT  ANOTHER  RUN   Cl-YES/   0=N0)    t    ?  U 


READY 
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100  REM       JOKN  HOSIE       -     NOHTHPORT  HIGH  —  3/14/69 

105  REM     REVISED  BY  C-LOSIK  b-25-70 

106  REM     SEE  BELOW  FOR  IMPORTANT  VARIABLES 
10  7  REM      'F*    TYPE  VARIABLES  ARE  FORCES 

110  REM  I'VE  CHOSEN  THE  ELECTROSTATIC   CONSTANT  TO  BE  ONE  AND 

120  REM  ALL  CHARGES  TO  BE  ONE  SO  THAT  THE  FORCE  CALCULATED 

130  REM  IS  JUST  A  RELATIVE  FORCE.      IF  YOU  WOULD  LIKE  YOU  MAY  CHANGE 

140  REM  THINGS  WHEN  YOU  RUN   IT  TO  GET  EXACT  FORCES  IN  NEWTONS  AND 

150  REW  USE  CHARGES  IN  MI CROCOULOMBS  OR  WHAT  EVER  ELSE  YOU  WISH* 

160  PRINT  "THIS  PROGRAM   WILL  CALCULATE  THE  FORCE  ON  A  TEST  CHARGE" 

170  PRINT  "THAT   IS  PLACED  SOME  DISTANCE^    Y#   AWAY  FROM  ANOTHER  CHARGE;" 

180  PRINT  "A  LINE  OF  CHARGE;   AND  A  PLANE  OF  CHARGE." 

190  PRINT  "YOU  MUST  ENTER  THE  DISTANCE  AWAY#   Y;    THE  SPACING  DESIRED" 
200  PRINT  "BETWEEN  CHARGES*   C#   AND  ALSO  BETWEEN  LINES  OF  CHARGE  THAT" 
210  PRINT  "MAKE  UP  THE  PLANE  OF  CHARGE." 

220  PRINT  "YOU  MUST  ALSO  CHOOSE  Ti-'E  NUMBER  OF  CHARGES  CN)  IN  THE  LINE 
230  PRINT  "CHARGE  THAT  YOU  WOULD  LIKE  TO  USE  C  500  IS  A  GOOD  VALUE  IF" 
240  PRINT  "YOU  USE  A  SPACING  OF   .1   FOR  C." 

250  PRINT  "JUST  SO  THE  CALCULATIONS  DON'T  GO  TOO  FAR  I'VE  INCLUDED" 
260  PRINT  "A  STOP  THAT  DEPENDS  UPON  THE  ANGLE  FROM  TEST  CHARGE  TO  THE" 
270  PRINT  "LAST  CHARGE  TO  BE  CALCULATED.      IF  THE  ANGLE   IS  LESS" 
275  REM     Ql   AND  Q2  ARE  THE  CHARGES 
280   LET  Ql^l 
290   LET  Q2"l 

295  REM     K  IS  THE  ELECTROSTATIC  CONSTANT 
300  LET  K«i 

X5  REM  A  IS  THE  CUTOFF  ANGLE.  THIS  MAY  BE  CHANGED  TO  YOUR  PREFERENCE 
310  LET  A«2 

315  PRINT  "THAN"A"DEGREES#  CALCULATIONS  WILL  CEASE." 
320   LET  S»SINC3.  141594'A/180) 
330  PRINT 

340  PRINT  "INPUT  Y#C#N"; 

350   LET  Fl-0 

353  INPUT  Y#C#N 

356   IF  C<«0   THEN  365 

358  IF  Y<«0   THEN  365 

360   IF  N>-0   THEN  370 

365  PRINT  "ONE  OF  YOUR  VALUES   IS  UNREASONABLE." 
367  30  TO  330 
370  PRINT 
380  PRINT 

390  PRINT  "NO.   OF  CHGS." 

4DD  PRINT  "ON  EACH  SI DE" # "FORCE" 

410  PRINT  "  "#"  " 

420  FOR  I-O   TO  N 

430   LET  X«I*C 

440   LET  R-SaRCX*X+Y*Y) 

450   LET  F»K*G1*Q2/(R*R) 
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460   IF  loo  TH£N  490 

470  LET  Fl-F 

460   GO  TO  510 

490  LET  F1»/1+2«F«<Y/R) 

510   IF  K-IO   THEN  580 

520   IF  I«1000«INTCI/1000)   THEN  SttO 

530   IF  I>1C  0   THEN  600 

540   IF   I«1U0«INTCI/I00)   THEN  5&0 

550   IF   I>100   THEN  600 

560   IF  I«IO«INT  CI/IO)   THEN  580 

570   GO  TO  600 

580  PRINT  I*INTC100«fT+.i:)/100 
590   IF  N«0   THEN  330 
600   IF  Y/R<S  THEN  612 

610  NEXT  I 

611  GO  TO  620 

612  PRINT  I*INTC100«Fl+.5)/100 

613  PRINT  '^EXCESSIVE  COMPUTER  TIME  WOULD  BE  REQUIRED  TO  CALCULATE'* 

614  PRINT  "THE  FORCE  FOR  ADDITIONAL  CHARGES-" 
620  PRINT 

625  PRINT 

630  PRINT  "THE  EXACT  VALUE  FOR  AN   INFINITELY  LONG  LINE  OF  CHARGE  IS" 
640  PRINT  2«CK«Q1/C)/Y 
650  PRINT 
660  PRINT 

670  PRINT 

680  PRINT  "NOW  ADD  HOWS  ON  EITHER  SIDE  OF  THE  LINE  OF  CHARGE  JUST" 
683  PRINT  "CALCULATED.     THE  SPACING  BETWEEN  ROWS   WILL  BE  THE  SAME  AS 
686  PRINT  "THE  SPACING  BETWEEN  THE  CHARGES." 

690PRI NT" ENTER  THE  NUMBER  OF  EQUALLY  SPACED  HOWS  YOU  WANT  ON  EACH  SI 

700   INPUT  M 

T02   IF  M>-0   THEN  710 

704  PRINT  "NO  NEGATIVE  VALUES*  PLEASE." 
706  GO  TO  690 
710  PRINT 
720  PRINT 

730  PRINT  "NO.   OF  LINES" 

740  PRINT  "ON  EACH  SI DE"* "FORCE" 

750  PRINT  "  "*"  

760  FOR  P-0  TO  M 

770  LET  Z-P«C 

780  LET  RlmSQRiZ*Z*YmY> 

790   IF  poo  THEN  850 

830  LET  F3-2*CK*Q1/C>/Y 

840   QO  TO  870 

850  LET  F3«F3<»>2*Fl*CYt2>/CRI  t2> 

870   IF  P«1000*INTCP/1000>   THEN  930 

880   IF  P>1000  THEN  940 

890   IF  P«100«INTCP/100)   THEN  930 

900   IF  P>100   THEN  940 

910   IF  P«10*INTCP/10)   THEN  930 

920   IF  P>10  THEN  940 

930  PRINT  P*INT(100«F3**>*5>/100 
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940   IF  Y/HKS  THEN  952 

950  NEXT  P 

951  GO  TO  960 

952  PRINT  P#INT( 100*F3+.5)/iUU 

953  PRINT  ''EXCESSIVE  COMPUTER  TIME  WOULD  BE  REQUIRED  TO  CALCULATE" 
95A  PRINT  "THE  FORCE  FOR  ADDITIONAL  LINES  OF  CHARGE*" 

960  PRINT 
965  PRINT 

970  PRINT  "THE  EXACT  VALUE  FOR  AN  INFINITE  PLANE  OF  CHARGE  IS"; 

9  PRINT  2*3.14l59*<K*til)/<C*C) 

j^RINT 

^•'RINT  "DO  YOU  WANT  ANOTHER  RUN  ClaYES*  0-NO)    t  "i 
^  .    INPUT  C 
t^jr)   IF  OO   THEN  330 

10  50  END 
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SUBJECT         KINEMATICS  REVIEW 


PROGRAM  NAME  KINERV 


D  ESCRIPTION: 

Questions  are  asked  concerning  the  motion  of  a  ball  thrown  vertically 
upwards  at  various  velocities.    Neglecting  air  resistance,  the  student  is  to  determine 
such  quantities  as  1)  maximum  obtainable  height;    2)  time  of  flight;  and  3)  the  height 
reached  at  different  times, 

OBJECTIVES: 

To  develop  and  review  basic  skills  in  solving  projectile  motion  problems, 
PRELIMINARY  PREPARATION: 

A,  Student  -  previous  classroom  instruction  and  a  working  knowledge  of  algebra. 

B.  Materials  -  none 

DISCUSSION: 

The  student  is  presented  with  various  problems  concerning  the  motion  of 
the  ball.  In  each  case,  the  initial  velocity  V^  of  the  ball  is  given.  There  are  five 
basic  questions  asked: 

1.  Determine  maximum  height  reached; 

2.  Find  the  height  after  t  seconds; 

3.  Find  the  velocity  when  the  ball  is  at  height  h; 

4.  Determine  the  time  of  flight;  and 

5.  Find  the  velocity  after  t  seconds. 

The  quantities  V  ,  h,  and  t  are  randomly  determined  for  each  question 
asked  and  the  correct  answers  are  given  following  the  student  response. 

The  program  is  designed  to  serve  a3  a  review  of  typical  motion  problems 
discussed  in  class  and  to  aid  in  overcoming  student  "uncertainty"  in  the  solution 
of  numerical  problems. 

The  program  may  be  modified  to  cover  other  areas  of  review  by  entering 
new  questions  in  place  of  those  presently  offered  (see  listing). 
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 REVIEW  OF  KlNEWAIlCii  

A  BALL   IS   fHrtOWN  SiaAlGrtT   Of  VArtlOUb  VELOClflE:?. 

Mti  FiilCriON   IS  NEGLIGIBLE.   TilE  Ui^WArtD  UluECflON   IS  TAKEN 
AS  POSlTlyJE^   AND  THE  DOWNWAilH  DlrtECTlON  AS  NEGATIVE* 

THE  LOCAL  ACCELEilATlON  DUE    TO  GxiAv/lTY   IS  -IJ   MEiEu:j/SECOND/SEC  • 

ALL  VALUES  AriE   IN  METuIC  UNITS. 

FOrt  VARIOUS   ThxiOWING  SjPEEDS^    ^OU  C'iUSl  Ai\SWEU  CEuiAiiM 
QUESTIONS  ABOUT   TnE  BALL   IN  FLIGhl. 


I    .    THE  Ui^WAHD  THhOWING  SPEED   IS     25     iViE  TErtS/SECOND . 
WHAT   IS   rnE  VELOCITY  WnEN   IT  HEACHES  A  HE I GnT  OF     lb. 4 5 
METERS  ABOVE  TnE   GiiOUND   7  16 

/OU'UE  COHHECT   WITHlv^J  5  HErtCENf.   TnE  COrtrtEC  1  HN^jWEu  Io  16 


2    .   TriE  UPWAHD  THxiOWIl^G  SPEED   IS      16     ME lEuS/SECOND . 
WHAT   IS  TnE  VELOCITY  AFTEit  SECONDS  OF  FLIGHT?  lA 

rOU'HE  OFF  MOKE  THAN  5  PEuCENT.    THE  COnnECT  ANSWEH  IS  --a  • 


3   .   THE  UPWAHD  TnKOWING  SPEED   IS     35  MEfEHS/SECOND. 
HOW  HIGH  ABOVE  THE  GHOUND  WILL   THE  BALL  GO?  7U 

YOU 'HE  OFF  MOHE   THAN  5  PEHCENT.    THE  COHHECT  ANSWErt  IS     61.25  . 


A    .    THE  UPWAHD   THKOWING   SPEED  IS     29  METEKS/SECOND. 
HOW  LONG   WILL  IT  TAKE  THE  BALL  TO  HETUHN  TO  THE  GKOUND?  6.0 
YOU'HE  CORHECT  WITHIN  5  PERCENT.    THE  CORRECT  ANSWER  IS  5.b 


5    .    THE  UPWARD  THROWING  SPEED   IS     21  METERS/SECOND. 
VyHAT   IS  THE  VELOCITY   WHEN   IT  rtEACHES  A  HEIGHT  OF  10.35 
METERS  ABOVE  THE   GROUND  ?  12 

YOU'RE  OFF  MORE  THAN  5  PERCENT.    THE  COhhECT  ANSWER  IS     15.29  70  6 


OUT  OF     5     QUESTIONS^   YOU  GOT     2  RIGHT. 

DON'T  YOU  KNOW  ANYTHING  ABOUT  THKOWING  THINGS  UP??? 

mtiT  TO  TRY  ANOTHER  5  PROBLEMS   C  1  =  YES>  0=:N0)    J    ?  0 


READY 
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Physics-KINERV 

100  REM  RICHARD  F*  PAVI  PATCHOGUK  H.S.I   1-84*691  PHYSICS 

llOREH  THIS  PHOOHAH  IS  DESIGNED  TO  SERVE  AS  A  REVIEV  TEST  IN  KINEHATICS. 
180  REM    REVISED  BY  C.LOSIK  tt-85-70 

130  REM    V  IS  VERTICAL  VELOCITY*  ALL  ELSE  IS  *A«  (POH  COHPARISOMS) 
140  REM     V£  GENERATE  A  V  RANDOMLY  AND  RANDOMLY  PICK  A  QUESTION 
145  RANOONIU 
150  LET  P«0 
155  LEY  R«0 

170  pSivT   MVIEW  OF  KINEMATICS***** 

12  SJI^AIR  r2i??lf^^f  J!2^??nfIfS'®*^  ^""S  VELOCITIES.- 

S5o  PRlSr-AS  PofJSJi?^  ifn*?2t'Si^*  VIPMARI^  DIRECTION  IS  TAKEN- 

810  Pailfr  ^  ^***  OOttNttARO  DiacCTIW  AS  NEQATlVS.** 

»0  PUtm-JUE  LOCAL  ACCLMATIOM  DUE  TO  OBATITY  IS  -10  METERS /SEC  OND/SEf 

^'  SS  pSST^  ^ 

MO  PRIMT*  POM  VARIOUS  TIUOVIM  Wfmxn^  YM      ^  amawb  ^»»^.m. 

£SpR?i?'^'''""'°''^  ™^  BALTlir^T:-    ~  CEWAIM- 

890PRINT 

300  LET  U"RND(X> 

330  IP  Q»0THEN  350 

340  IP  Q/5-lNT(Q/5>  THEM  770 

350LET  V«5«INT(35«0> 

360LET2«1«INT(4*999*U> 

370  IF(Z*P>«(V.A>«0  THEN  300 

360  LETP"2' 

390  LET  a«a«i 

400  LET  R-V 
410  PRINT 

^  ?HEN™L'''^  ^""^  "  ""Eas/SCCONO... 

440  IF  Zm2  THEN  590 
450  IF  2-3  THEN  630 
460  IF  2«4  THEN  500 
470  LET  A«*05«V«V 

w  qStSIto*"'        '^""^  ™=  """f 

900  LET  A-V/5 

540  LET  T"l*  INT(2*V«U>/10 
550LET  A«V*T*5«T«T 

^  «?J"^'lf°*'  '^SOVE  THE  OROUND  WILL  THE  BALL  BE  AFTER  -JT 

570  PRiNr'SECONDS  OF  FLIOHT**!  ^  •     AP^TB«  IT 

580  G0T06  7O 

590  LET  T«I«INTC8«V«U>/10 
600  LET  A»V-10«T 

620  aO-To'*670^        ^"^  VELOCITY  AFTER  "T"  SECONDS  OF  FLI0HT"I 
630  LET  S«*5«INTCV«V«U>/10 
640  LET  A«SQRCV«V-80«S) 

650  PRINT" WHAT  IS  THE  VELOCITY  VHEN  IT  REACHES  A  HEIOHT  or  -J« 

660  PRINT-METERS  ABOVE  THE  OROUND  "I  ^ 

670  INPUT  Q 

630  PHlNr'YOU*Rr*l 

690  IF  ABS((0-A>/A>>.05  THEN  730 

700  LET  C"C«1      '  * 

710  PRINT  -  CORRECT  VI TRIM  -I 

780  GOTO 740 

730  PRINT-  OFF  MORE  THAN  -| 

PRINT-5  PERCENT.  THE  CORRECT  ANSVER  IS  "A- 
790PaiNT  ... 
IMtOtOJOO 
7TS  PMlvr 

no  PRiMr*ouT  OP  -a*  oussTioas*  you  got  -c-  aisiy.- 

1»0  lrC/a>»*7  TWMGIO 

•10  PMIlir^'^  ANYTHlMd  ABOUT  THROIfIM€  TNIMS  UP???- 

bS  IMPUT  m*^^  *°  ANOTHER  5  PROBLEMS  <1-YES*  OHO)   •  -| 

635  LET  U-RND(X> 
640  IP  M«l  THEN' 350 
«50  IF  M4>0  THEN  ilO 
860  EMD 
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DISCIPLINE  PHYSICS 


SUBJECT  LENSES  

PROGRAM  NAME  LENSES 


DESCRIPTION: 


The  focal  length,  object  distance,  image  distance,  image  size,  or  obje 
size,  may  be  calculated  if  sufficient  information  is  entered  by  the  student. 

OBJECTIVES; 

A.  To  solve  for  focal  length  of  a  lens  from  laboratory  data« 

B.  To  check  image  position  and  size  from  lab  data. 

C.  To  solve  lens  problems. 

PRELIMINARY  PREPARATION: 

A.  Student  -  Data  from  a  lens  experiment. 

B.  Materials  -  none 

DISCUSSION: 

If  this  program  is  used  in  conjunction  with  a  lens  laboratory^  the  student 
may  check  his  calculations  of  focal  length. 

He  may  also  check  his  image  size  and  position  from  known  object  size 
and  position. 
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This  PiiOGKAM  MAY  BE  USED  TO  SOLVE  LEMS  PROBLEMS. 
liM  THE  OHDEK  GIVEN  ENTEK  THE  VALUES  FOH  THE  FOLLOWING  I 
FOCAL  LENGTH^   OBJECT  DISTANCE^    IMAGE  DISTANCE^  OBJECT 
SHE*    IMAGE  SI2:E.      INPUT  0   C^EiiO)   FOn  UNKNOWN  VALUES. 
EVERY   TIME  THE  COMPUTEH  ASKS    'HEADY? %   ENTErt   I    IF  YOU  HAVE 
MOHE  PHOBLEMS  TO  DO*   Oti  0   TO  END   THE  PKOGiiAM. 

HEADY   ?  I 

ViHAT  AHE  YOUH  VALUES  FOH  F,  P#   U#    0#    I?  1#2#3#4#5 

YOUn  U  IS  NOT  COHilECT  FOH  THE  F  AND  P  YOU  HAVE  ENTERED 
NOTE  CHANGED  U.      THE  PERCENT  ERROR  ON   YOUR  U  ISx 
5U  PERCENT. 

YOUR  I    IS  NOT  CORRECT  FOR  THE  0  YOU  HAVE  ENTERED 
NOTE  CHANGED   I.      THE  PERCENT  ERROu  ON  YOUR  I  ISx 
25  PERCENT. 

fl, 

F=   I  P=  2  Q«  2  0=5  ^  I«  4 


READY   ?  I 

VHAT  AHE  YOUR  VALUES  FOR  F#  P#   U#   0#    I?    1 # 2# 2 .O^U 3 . 9 

YOUR  Q  IS  CORRECT  TO  WITHIN  2  % 
NOTE  CORRECTED  Q. 

YOUR  I    IS  CORRECT  TO  WITHIN  1 765  % 

NOTE  CORRECTED  I. 

F«   I  P=  2  Qa  2.04  Oe  41  I«  4.06 


READY  ?  I 

VHAT  ARE  YOUR  VALUES  FOR  F#  P#    Q#    0*    I?  0*5*b#4#4 


AO 


6    Copyright  1971,  Polytechnic  Institute  of  Brooklyn 


EKLC 


Physics 
LENSES 


YOUH  I    IS  NOT  COAHECr  FOH  THE  0   iOV  HAVE  ENTERED 
NOTE  CHANGED  I.      THE  PEHCENT  EHHOH  ON  /OUH  I  ISl 
37.5  PERCENT. 

F»  3.076923.      h>»  5  U=  b  0=  ^ 


HEADY  ?  1 

VHAT  AH£  YOUH  VALUES  FOH  F^      ^  0^    I?  46^  53^0  #  34^  3k2 

YOUH  1    IS  NOT  COHHECT  FOH  THE  0  YOU  HAVE  ENTERED 
NOTE  CHANGED  1.      THE  l^EHCENT  ERROR  ON  YOUR  I  IS: 
65.67775  PERCENT. 

F=  ^6  P=  53  U=  3^b.2b57       0=  3^ 


READY   ?  I 

WHAT  ARE  YOUR  VALUES  FOR  F*  P*  0,    11  ^b57^a*6^0*O 

YOUH  li  IS  NOT  CORRECT  FOR  THE  F  AND  P  YOU  HAVE  ENTERED 
NOTE  CHANGED  U.      THE  PERCENT  ERROR  ON  YOUR  U  IS: 
399. b 765  PERCENT. 

F»  ^^1657  P»  2  U»-2. 00062^ 
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100  AEM  JOHN  W.  HOSIE  -  NOHTHPORT  HIGH  -  PHYSICS 
10  1    HEM  REVISED   ll-lb-70#  L.BHAUN 

110  PHINT  "THIS  PHOGHAM  MAY  BE  USED  TO  SOLVE  LENS  PHOBLEMS." 
120PHINT 

130PHINT"IN  THE  ORDEH  GIVEN  ENTEH  THE  VALUES  FOH  THE  FOLLOWING!" 
I^OPAINT 

15OPhINT*'F0CAL  LENGTH^   OBJECT  DISTANCE^    IMAGE  DISTANCE^  OBJECT** 
160PHINT 

170PHINT**SI^E#    IMAGE  Sl^.E.      INPUT  0   (ilEHO)   FOH  UNKNOWN  VALUES.** 
IttOPHINT 

.lb2  PHINT  **EVEHY  TIME  THE  COMPUTEH  ASKS  'HEADY? ENTEH  1  IF  YOU  HAVE" 
ib3  PHINT 

15^  PRINT  "MORE  PROBLEMS  TO  D0#    OH  0  TO  END  THE  PROGRAM." 
166  PRINT 
I5b  PRINT 

190  PRINT  *****  xiEADY  **; 

191  INPUT  r 

192  IF  F=U   THEN  7bU 

193  IF  F<>1   THEN  Ibb 
195PRINT 

196  PRINT  **WHAT  ARE  YOUh  VALUES  FOR  F#  P#  0^  I**; 

^0    INPUT  F^P^U^O^I 
210   LET  P=ABSCP) 
220  LET  OsABS  CO) 
230  PRINT 

240    IF  F«0   THEN  390 
250    IF  PoF  THEN  2b0 

26U  PHINT  **THE   IMAGE  IS  AT  INFINITE** 

k!70   GO  TO  lb6 

2B0   IF  P  »0   THEN  360 

290  LET  ^«P*F/(P-F) 

300   IF  (A^O   THEN  340 

310   IF  THEN  420 

312   IF  ABS(Q-^)<0.05*Z  THEN  344 

320  PRINT  •*Y0UR  Q   IS  NOT  CORRECT  FOR  THE  F  AND  P  YOU  HAVE  ENTERED" 
330  PRINT  "NOTE  CHANGED  Q.     THE  PERCENT  ERROR  ON  YOUR  Q  IS:" 
335  PRINT   100*ABS(2-Q)/ABSC2);   "  PERCENT." 
340.  LET  Q«Z' 
342  GO  TO  420 

344  PRINT**YOUR  U  IS  CORRECT  TO  WITHIN";  100*ASSC  Q-Z) /ABSC^)**%** 

346  PRINT**NOTE  CORRECTED  U.*' 

350   GOTO  420 

360   IF  U"0   THEN  560 

370  LET  P-tt*F/Ctt-F) 

360  GO  TO  420 

390   IF  P-0   THEN  550 

400    IF  Q>0   THEN  490 

410   LET  F"a*P/Ca+P) 

420    IF  0=0   THEN  730 

430    IF  I"0   THEN  4  70 
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^35  LET  2:y=o*u/i^ 

^1^0   IF   I=2:y  THEN  660 

^5   IF  ABSC  1-2:9X0  .US^i'.y  THEN 

^50  PHI  NT  "VOUH  I    IS  NOT  COHHECT  FOU  THE  0  YOU  HAVE  ENTErtED" 
^60  PUINT  "NOTE  CHANGED  I.     THE  PEflCENT  EiiHOti  ON  VOUri  I  IS:" 
^165  PRINT   100*ABS<I-^9)/ABS<2:y);   "  PEHCENT." 
^170  LET  J  =2:9 
^172  GO  TO  660 

^17^  PHINT"YOUa  I   IS  CORHKCT  TO   WI THI N";  luO*ABS<  I -Z.9) /ABSC  z;9  )  "Z" 

^176  PRINT"NOTE  CORHECTED  I." 

A7b  LET  I  =2:9 

^ItiO   GO  TO  660 

^«90   IF  0<>0   THEN  520 

500  PRINT  "IF  F^U^  AND  0  Oti  I   =  O;   CANNOT  CALCULATE  -   TnY  AGAIN 

510   GO  TO  lb6 

520    IF  I»0   THEN  500 

530   LET  W=P*I/0 

540   GO  TO  650 

550   IF  QoO   THEW  590 

560  PRINT  "THE  FOCAL  LENGTH  CANNOT  BE  CALCULATED  IF  BOTH  OBJECT' 

570  PRINT  "AND   IMAGE  DISTANCES  ARE  ilERC." 

5b0   GO  TO   lb6  • 

590   IF  0=0   THEN  610 

600   IF  loO   THEN  640 

610  PRINT  "MUST  KNOW  BOTrt  OBJECT  AND  IMAGE  SIZE  TO  FIND  FOCAL" 

620  PRINT  "LENGTH  AND  OBJECT  DISTANCE." 

630   GO  TO  186 

640  LET  P=U*0/I 

650  LET  F=a*P/<P+U) 

660  PRINT 

665  PRINT  "F="F#  "P="P#   "u="ti#   "0="0*   "I  =  "I 

67Q  PRINT 

6b0  PRINT 

690   GO  TO  186 

700  PRINT  "INFORMATION  ABOUT  EITHExi  FOCAL  LENGTH  OR  BOTH  OBJECT' 

710  PRINT  "AND  IMAGE  SliiE  NEEDED  FOR  COMPLETE  SOLUTION." 

720   GO  TO  186 

730   IF  laO   THEN  760 

740  LET  0«I*P/tl 

750   GOTO  660 

760  PRINT 

765  PRINT  "F=''F*   '•P="P*  "(i="u 
770   GO  TO  6  70 
780  END 
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DISCIPLINE  PHYSICS  

SUBJECT  MASS  DEFECT 

PROGRAM  NAME  MASSD 


DESCRIPTION: 

A  classroom  presentation  that  could  be  used  to  calculate  mass 
defect,  and   give  the  answer  in  terms  of  usable  energy  (kw-hr.  of 
electricity). 

OBJECTIVES; 

A.  To  calculate  and  explain  mass  defect. 

B.  To  introduce  the  concept  of  binding  energy. 

C.  Conversion     of  mass  to  energy,  (atomic  power) 

PRELIMINARY  PREPARATION: 

A.  Student  -  The  student  should  have  an  understanding  of  nuclear 
particles,  and  the  law  of  conservation  of  mass  and  energy. 

B.  Materials  -  The  teacher  should  make  available  a  table  of  ieotopes 
that  lists  the  actual  mass.    (Handbook  of  Chemistry  and  Physics, 
Chemical  Rubber  Company) 


DISCUSSION: 

It  should  be  noted  that  the  masses  used  here  include  the  electrons. 
The  very  small  difference  which  would  be  obtained  if  the  bare  nuclear 
mass  were  known  is  negligible  for  the  purpose  of  this  calculation. 

Time  permitting,  it  would  be  beneficial  to  have  the  student 
investigate  the  conversion  of  atomic  mass  units(AMU)  to  calories  and 
kilowatt -hours  in  order  to  recognize  the  significance  of  the  units  and  the 
magnitude    of  the  numbers  involved. 
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THIS  i^HOGiiAK  IS  DESIGNED  TO   INVESTIGATE  MASS  DEFECT 

WHICH  OF  THE  ELEMENTS   WOULD  YOU  LIKE  TO  CONSlDErt? 
HEMEMSEii  WE  ARE  DEALING   WITH  A  SINGLE  ATOM^  THEKEFOhE 
IN  ADDITION   70   THE  ATOMIC  NUMBEH  WE  ArtE  GOING  TO  NEED  THE 
ACTUAL  MASS   (IN  AMU)   AND  TnE  MASS  NUMBEH  OF  THE  ISOTOPE 
YOU  WANT   rO  WOHK  WITH. 

WHEN  THE  MACHINE  TYPES  A  QUESTION  MAHK  (7)    TYPE  IN 
YOUH  ANSWEH  THEN  HIT  HETUHN  KEY.   USE  NUMBEHb  OF  UP  TO 
SIX  SIGNIFICANT  FIGURES.   tiOUND   IF  NECESSAHY   TO  6  DIGITS. 
IN  THE  VALUES  FOh  MASS  DEFECT. 


THE  ATOMIC  NUMBEn  IS  7  b 
THE  ACTUAL  MASS   IS  7  15.9V^9 
THE  MASS  NUMBExl  IS  7  16 

m 

THE  SUM  OF  TnE  iMASS  OF  THE  b  PxiOTONS  AND   THE  b  NEUTHONS 
PLUS  THE  WEIGHT  OF  THE  b  ELECTiiONS   IS   THE  CALCULATED 
MASS. 

CALCULATED  MASS     -     ACTUAL  MASS     =     MASS  DEFECT 
16. 13199         -       15.99^19  =  .1371 

THE  MmSS  DEFECT  IN   TEHMS  OF  ENEhGY   IS   THE  EQUIVALENT  OF 
2936  X   10  t9  CAL.  PErt  MOLE'  OF  THIS  SUBSTANCE* 
OH   Ib^  X   lUt9  CAL.   PExi  GHAM. 

IF   WE  DIVIDE  THIS  BINDING  ENEHGY  BY    TnE  l\UM;3EH  OF 
PAHTICLES   in   the  NUCLEUS*    WE  GET  A  HATIO  r{!t^Om  AS  THE 
BINDING  ENEHGY  PEH  NUCLEON*    WHICH   IS  A  MEASUtiE  OF  THE 
STABILITY  OF  THE  NUCLEUS.     THE  MOHE  •BINDING' 
PEH  NUCLEON*   THE  MOHE  STABLE  IS  THE  NUCLEUS. 

THE  BINDING  ENEHGY  PEH  NUCLEO^^  IS  :  1  .276744E-5  EhGS.  PEH  NUCLEON*  OH 
3.0^7I21E-I3  CAL.  PEH  NUC .  * 

WHICH   IS  MOHE  COMMONLY  EXPRESSED  AS  bUU  KEV. 

THE  AMOUNT  OF  ENEHGY   (BINDING  ENEHGY)   CONTAINED  IN  ONE 
GHAM  OF   THIS  SUBSTANCE   WOULD  BE  SUFFICIENT  TO  SUPPLY  ALL 
THE  ELECTRICAL  NEEDS  IN  AN  AVERAGE  ONE  FAMILY  HOUSE  USING 
15  KW-HHS.  PER  DAY  FOR  A  PERIOD  OF   I ^2^5  DAYS  OR 
39  YEARS.  \s 

IF   YOU  WOULD  LIKE    TO  RUN  ANOTHER  PROBLEM  TYPE  IN  U 
IF  NOT   TYPE  IN  U. 
7  U 

4i  ######  jdJdJd  3(1 3(1  #  Id  3(1 
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lUJ  HEM  JOHN  MArtCHISOrTO  SUMMEK  69  B(\6iC 

1U5  aEM     uE^ISED  BY   CLOiilK  7-22-7U 
1U6  ilEM     AT  NO=A*   MAS;i«B*   MAdS  N0»C 
1U7  HEr^i     j/iAbb  DEFECV    I  ;i  F 

130  f^rtlNT"        XniS  r^rtOGiiAM   IS  DESIGNED  TO   I  Nv;KST  I  Gi-iTE  MASS  DEFECT" 
i/iO  f^iiliMi- 

150  PltlNT"        WnlCn   OF    IriE  ELEMENIS   WOULD  YOU  LIKE  TO  CONSIDER?  " 
160  PHINT"  uEMEMBEa  WE  AHE  DEALING  WlTn  A  SINGLE  ATOMj  TnEitEFOHE" 
170  PUiNT-    IN  ADDITION  TO   THE  ATOMIC  NUMbEu  WE  AHE    JOING  TO  NEED  TnE' 
IdO  PrtiNT"  ACTUAL  MASS   (IN  AMU)   AND   TnE  MASo  NUMBEK  OF  THE  iSOTOt^E*' 
190  PHINT"   YOU  WANT    fO  WOiin  WITn." 
auO  f^rtlNT 

aiU  prtiNT  "   When   TnE  MaCnlNE   i'Yr'ES  A  uUESTION  MArtK  (?^    l'Yr»E  IN" 
220  PrtiNT       YOUrt  MNoWEH   TnEN  HIT  iiETUitN  KEt.   USE  NUMBErt:?  OF  Uh»  TO'* 
230  PHINT       i>lA  SIGNIFICANT  FIGUhES.  HOUND   IF  NECESSAHIT  TO  6  DIGIT:>." 
237  PiiiNT  ••IM  TnE  VALUES  FOrt  MAS:>  DEFECT." 

'a^O  ^'nlNT 

250  ^'HINT       THE  ATOMIC  NUMBExt  IS 
260    INPUT  A 

270  r»ailNT  "  THE  ACTUAL  MASS  IS 
iibO    INr»UT  C 

290  PHINT       TnE  MASS  NUWBErt  IS 
3U0    INh»UT  h 
310  r»rtlNT 

320  HEM     G   io  AVOGADhO'S  NUi^iBEii 
330   LET  G=»6.023E23 
3/|0   LET  D  =  B   -  A 

350   LET  Ec(  1  .0072b*A)  +  (  1  .U0b67*D)+(5.4b5y7E-^l*A) 
360   LET  F=INT( lE^*(E-C)+.5)/lE^ 

370  l^HlNT  "  THE  SUM  OF  THE  MASS  OF    TnE"A'ViiOTONS  AND  TnE"D"NEU FhONS" 
3ttO  r»HINT       i^LUS  THE   WEIGHT  OF  THE"A"ELECTHONS   IS   THE  CALCULATED" 
390  t^HINT  "  MASS." 
/JUO  PHINT 

ZllO  >^HINT"     CALCULATED  MASS     -     ACTUAL  MASS     =     MASS  DEFECT" 
^20  PrtINT"  "E*"  -     "C;"  =  "F 

430  r»HlNT 

4zi0  HEM       CONVEitSION  FACTOrtS: 
^150   HEM  i.^iy  a   lu-3  ErtGS  r»Ert  AMU 

^160  HEM  ^.19  A   lU    7  EH6S  t^EH  CAL. 

/I70   HEM  3.6     A   lu    13  EHGS  r>EH  KW-n 

HEM  931. U   MEV  *^EH  AMU 

44bO   LET  H«(  1  .i:iyE-3*F*G)/^.  19E7 

^190  PHI  NT  "   THE  MASS  DEFECT   IN  TEHMS  OF  £.NEnGY   IS   THE  EUUIVALENT  OF" 
500  PHINT   INT(H/1E9+.5)"A   10t9  CAL.  PEU  MOLE  OF  THIS  SUBSTANCE*" 
510  PHINT  "OH"INTC  (H/C)/1E9+.5)"X   lOty  CAL.  PErt  GHAM." 

A6 
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511  ^'rtlNT 

512  r'KliNJT  "   IF  WK  Ulv/lUh   Irtli  dlMDlNG  ENh.^iQ^  BY  InL  NUMbEH  OF" 

bl3  t'nlNr       i^ArtflCLEb  TrtE  NUCLEUS*    WE  GET  A  xiAffO  KWUWN  AS  fnE" 

51^  i^Kli\JT  "  BINDING  ENEliGf  i^Ert  NUCLEOM*    WhlCn  lb  A  MEAbUHE  OF  fnE" 

515  i^illiNf  "   SfABlLlTf   OF  TnE  NUCLEUS.      inE  CjOuE  'BliNJDlNG'" 

516  i^rtlNT  "  i^Eii  NUCLEON*    InE  MOilE  STAtiLE   IS    TrlE  CvUCLEUS." 

517  i^rtlNi"  "    fhE  BINDING  ENEuGlT  i^Ezi  NUCLEON   IS  I"; 
5lb  i^rtlNr    I  .^yE-J^F/B^EiiG:?.  r'Ku  NUCLEON*  Ort"; 

blV  i^rtlNi'    I  .i:iyE-J*F/(ri*i:i.iyE7)"CAL.   i^Eii  iMUC*" 

5iciOh»KlNr"  WfllCH  lb  ioOiiE  COinhONLY  EAi^iiE:>:>ED  A:>"  1U0*1N  f  (  ^  Jl  ♦F/a  +  . 5 )*'MEV 
522  LET  o  =    (  (h/C)*i:i.lyE7/J.6El  J)/15 
525  i^hlNl 

5JU  i^rtlWr        FrtE  AMOUNr  OF  ENEKGY    (BINDING  El\ErtG^  )   CONrAlNED  IN  ONE" 
540  i^hlNf       GkAK  UF    iriii,  SUBSTANCE   WOULD  Be  SUFFICIENT    10  SUi^i^Ll  ALL" 
550  PrtlNT       THE  ELECfillCAL  NEED:>   IN  AN  HVEuAGc  ONE  FAwlLlT  nOUbE  U^jlNG' 
56U  i^itlNT        15   KW-riiiS.   t^Kn  DAY  FOn  A  i^EnlOD  OF"  1 N  f  ( u+ .  5  )"DA^5  OU" 
565  i^rtlNf   INf  (  (  J/J65)  +  .5)")rEArtS." 
570  i^nlNT 

5tiU  1^  ill  NT  "   IF   iOU   WOULD  LIKE    10  rtUN  ANOTnErt  *^rtOBLEi*j   iVr'E   IN  1*" 
590  PKlMT  "IF  NOT  TYi^E   IN  U." 
60U    iNVUr  W 
610  i^HlNT 

620  PrtlNT  "  ••,"♦♦♦♦♦*♦♦♦♦♦♦♦♦♦" 

6 JO    IF  i^al    TrtEN  2^0 
640    IF  M<>U   TrtEN  5ttU 
65u  END 
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DISCIPLINE  PHYSICS  

SUBJECT         FORCES  +  DISPLACEMENTS 


PROGRAM  NAME  NEWTN2 


DESCRIPTION: 

A  problematic  situation  is  presented  to  the  student  which  requires 
repeated  applications  of  Newton'  s  2nd  law.    By  selecting  various  angles  and 
forces,  the  operator  can  observe  the  resulting  motion  produced.    To  successfully 
complete  the  program,   the  student  must  complete  a  specified  displacement 
within  ten  attempts. 

OBJECTIVES: 

To  aid  in  the  development  of  skills  in  applying  the  equations  of  motion. 


PRELIMINARY  PREPARATION: 

A.  Student  -  An  awareness  of  Newton*  s  2nd  law  is  required.    In  addition,  some 
familiarity  of  force  components  (resolution  of  vectors)  is  necessary. 

B.  Materials  -  Graph  paper  is  helpful  to  students  with  below-to-average 
ability^ 


DISCUSSION: 

A.  Operational  Suggestions 

This  program  was  designed  for  operation  by  individual  students  or 
small  groups,  but  the  program  may  be  used  with  a  class  as  a     lead-in* • 
demonstration  of  forces  and  vectors.    The  presentation  is  also  helpful  in 
describing  two  dimensional  motion  under  the  influence  of  a  constant  external 
force. 

When  executed  by  small  groups  of  average  students,  it  has  been  noted  that 
programs  of  this  type  stimulate  discussions  and  involvement  for  those 
participating. 

B.  Suggested  Follow-up 

The  student  is  confronted  with  a  situation  which  requires  that  he 
overcome  a  given  force  (the  wind),   in  moving  a  boat  across  a  channel  10  Km. 
wide.    The  magnitude  of  the  force  produced  by  the  wind  on  the  boat  varies  with 
each     run**  ,  but  the  direction  of  the  vector  is  always  southwest,  i.  e    45  deg. 
vith   respect  to  the  direction  EAST     The  student  may  vary  his  paddling 
force  (limited  to  values  less  than  200  Newtons)  ,  and  direction  at  intervals 
during  his  displacement.     After  each  choice  of  variables,  he  is  given  his 
position,  as  well    as  the  resulting  speed  and  direction  of  the  boat.  A 
certificate  is  presented  for  successful  completion  of  the  task. 
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UmTt  WAPK  PAPMA  IS  MlLPrUL  IN  AUNNIlia  THIS  PROiBAM* 


YOU*W  TaYlNtt  TO  ESCAPE  PROM  DEVIL'S  ISLAND  ON  A  SMALL  BOAT* 
OKVIL'S  ISLAMD  IS  LOCATED  AT  COOEDIMAtES  <0#0>« 
TO  SUCCEED^  YOU  MUST  BEACH  A  CHANNEL  50  METERS  VIDE  AND 
10000  METERS  DUE  EAST»  AT  ABOUT  <  10000  #0>« 

IN  ADDITION^  YOU  MUST  QET  THERE  IN  PIVE  MINUTES  OR  LESS  OR 
SUPPER  RECAPTURE  <HEH#HEH#HfiH**> 

WAT  DO  YOU  HEIGH  CIN  P0UNDS>7  170 

YOUR  SITUATION  IS  AS  POLLOVSt 

THE  VIND  IS  BLOVINQ  PROM  THE  NORTHEAST  <A5  DEBRESS)  EXERTINB 
A  PORCE  OP  100  NEVTONS  ON  YOUR  BOAT*  YOU  MAY  PADDLE  VI TH 
MY  PORCE  IN  THE  EASTVABD  DIRECTION  C2ER0  DEGREES-IS  BAST> 
TO  ACCELERATE  YOUR  BOAT  ACROSS  THE  BAY  AND  THUS 
«ACH  THE  OPPOSITE  SHORE  CAND  PREEDOM>  • 

CMOTEt  THE  MASS  OP  THE  BOAT  VITH  YOU  ABOARD  13  177  KIL06RAMS>« 

UTH  WAT  PORCE  CIN  NEVTONS>  AND  DIRECTION  CIN  DEBREES>  VILL 
YOU  PADDLE7  199#8S 

tm  .S  X-  876  Y-  38  VCX>-  16  VCY>-  8 

VWT  TO  CHANGE  PORCE  OR  DIRECTION  C1«YES«  0«N0>  t  7  1 

VITH  WAT  PORCE  CIN  NEVr0NS>  AND  DIRECTION  CIN  DEGREES)  VILL 

YOU  PADDLE7  199#83  _ 

Jm  1  X-  nil  Y-  118  VCX>-  37  VCY>-  3 

HMIT  to  CHANGE  PORCE  OR  DIRECTION  C1«YES#  0«N0>  t  7  1 

VITH  WAT  PORCE  CIN  NEVT0NS>  AND  DIRECTION  CIN  DEGREES)  VILL 
YOU  PADDLE7  199#80 

fm  Xm  8583  Y«  199  VCX>«  57  VCY»  3 

MUIT  TO  CHANGE  PORCE  OR  DIRECTION  C1«YES«  0«N0>  t  7  0 

T-  8  X-  4580  Y-  869  VCX>ii  76  VCY>-  8 

VUrr  TO  CHANGE  PORCE  OR  DIRECTION  Cl«YES«  0«NO>  t  7  0 

T*  8^5  X-  7103  Y-  381  VCX>«  96  VCY>-  1 

m^t  TO  CHANGE  PORCE  OR  DIRECTION  C  1«YES»  0«NO>  t  7  1 

WTH  VHAT  PORCE  CIN  NEVTONS>  AND  DIRECTION  CIN  DEGREES)  VILL 
YOU  PADDLE7  150*10  ^ 
tte  3  X*  10173  Y-  BAG  VCX>-  109  VCT>«-6 

YOU  HAVE  REACHED  THE  OPPOSITE  SHORE# 
BUT  ARE  BAG  METERS  OPP  COURSE* 
ALL  THAT  VORN  POR  MOTHINGI 

YOU'RE  LOST  IN  THE  SHARPS  POREVERi  GOODBYE* 
SEE  IP  YOU  CAN  IMPROVE  YOUR  ABILITY  LATER* 

\ 

READY 
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lOOBXM  A.C.  CAQGIANOi  PATCH06US  H.S.i  DEC.4#66 

105  BXM    BEVISZD  BT  C.LOSXK 

106  BSM    X  AND  Y  COOROXMAtSS  AF.SC  USKD  VXTU  1*TYPE  VAAIABLSS  IN 

107  BIN     X  DIRECTION    AND  S-TYPE  VARIABLES  IN  THE  Y  DIRECTION 
lOa  REM     IT  Is  BEST  TO  CHECK  THE  EOUATIONS  BEtOW 

ilOREN  THIS  IS  A  PHYSICS  PROGRAM  WHICH  ATTEMPTS  TO  DEVELOP  A 
IBOREM         *PEELV  PO  THE  P»HA  RELATIONSHIP 

130  PRINT"HINTt   GRAPH  PAPER  IS  HELPPUL  IN  RUNNING  THIS  PROORAN*" 

i40LETX>O 

150  LET  Y-0 

i60LETVi»0 

ITOLETVa-O 

100  PRINT 

190LET0-0 

flOOPRINT**  ••i-'P*     MA  SPESD#*.«** 

aiOPRINr*         -i-    - 

aMPRiNT 

830PRINT~Y0U*R£  TRYING  TO  ESCAPE  PRON  DEVIL'S  ISLAND  ON  A  SHALL  BOAT.** 
835  PAINT  **DEVIL''S  ISLAND  IS  LOCATED  AT  COORDINATES  (0#0)«~ 
M0PRI»IT'*TG  succeed;   YOU  MOST  REACH  A  CHANNEL  50  METERS  WOE  AND"* 
8S0PRINT"  10000  METERS  DUE  EAST#  AT  ABOUT  (10000#0)«** 
fiiOPRlNT 

870PRINT**IN  ADDITION^  YOU  MUST  GET  THERE  IN  PIVE  MINUTES  OR  LESS  OR** 

BBOPRI NT" SUPPER  RECAPTURE  — *-  <HEH#HEH#U£H— 

890PRINT 

300PRINT**»iAT  DO  YOU  VEIGH  (IN  POUNDS>**l 

310INPUTV 

380  RANDOMIEE 

3MLETP1  ■RND(X)*a 

380LET  1>"80*INT(PU.5> 

390  LET  M«INT( V/8.a«100.5> 

400  LET  TIH) 

410  LET  T-30 

480PRINT 

430PRINr*Y0UR  SITUATION  IS  AS  FOLLOVSt" 
440PRINT 

4S0PRINT"THE  VIMD  IS  BLOVING  PROM  THE  NORTHEAST  (45  DEGRESS)  EXERTING** 

460PRlNT"A  PORCE  OP^P~NEVTONS  ON  YOUR  BOAT.  YOU  MAY  PADDLE  tflTH" 

470  PRINT  -ANY  PORCE  IN  THE  EASTWARD  DIRECTION  (ZERO  DEGREES  IS  BAST)" 

475  PRINT  "^TO  ACCELERATE  YOUR  BOAT  ACROSS  TRE  BAY  AND  THUS" 

477  PRINT  "REACH  THE  OPPOSITE  SHORE  (AND  PREEOOM)  •" 

460PRlNr*(N0TEt  THE  MASS  OP  THE  BOAT  VI TH  YOU  ABOARD  IS"H"KIL06RAMS)  •" 
4MPRINT 

S0OPRlNT"VlTH  WHAT  PORCE  (IN  NEVTONS)  AND  DIRECTION  (IN  DEGBBBS)  VILL" 
510PRlNr*YOU  PADDLE"i 
580  INPUT  P#A 

530  IP  ABS(P*100)<100  THEN  610 

S40LtTQ«G^l 

550  IP  Q>8  THEN  970 

9#0IPQ>1THEN590 

STOPBXNT^OU  MUST  THINK  YOU*RE  SUPERMAN*  BE  PRACTICAL**" 
S80G0T0490 

MOPRXNr'IP  YOU*RE  THAT  STRONG#  JUMP  THE  CHANNEL-*-" 
tf00G0T0490 

610  IP  ABS(A)<90  THEN  640 

iBOPBlNr*YOU*RS  HEADING  THE  WRONG  VAY.  TRY  AGAIN." 

630G0t049O 

640  LET  AO«*0175«A 

660  LBT  Ala<P#C0S(Aa)*«717«P)/M  • 

660  LBT  AB><P*SIN(A0)**717«P)/M 

670  LBT  K*A1*T«T/8^V1*T^X 

660  LET  T-A8«T*T/8^V8«T^Y 
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710  LBT  Ti"tl^«5 

780  PRINT  ••T»**Tl#**X»*'IIIT<X4«5>#**Y»**IIITCY^.5>#**V(X>"**IIIT<Vl^«5># 
m  PRINT  ••V<Y>»**INT<V8^.5> 
788  IF  X»0  THEM  7d0 

784  PRINT  **N0  HELP  THAT  MY.  YOU'RE  601  NO  BACKIMIRDS*'* 

786  00  TO  490 

730  IF  X» 10000  THEN  600 

735  IF  Tl»5  THEN  900 

740  PRINT 

750  PRINT  ••WANT  TO  CHANGE  FORCE  OR  DIRECTION  ( l«YES#  0«N0>   i  **l 

760  INPUT  R 

770  IF  R>1  THEN  490 

780  IF  R-0  THEN  6S0 

790  60  TO  750 

800  PRINT  ••YOU  HAVE  REACHED  THE  0^^^  SHOR£#** 
810  IF  ABSCYX800  THEN  830 

880  PRINT  -BUT  ARE-INT(Y^.5>-HETER8  OFF  COURSE*** 

885  PRINT  -ALL  THAT  VORK  FOR  N0tHlN8l- 

886  PRINT  -YOU'RE  }^Si^  IN  THE  SVAHPS  FOREVERi  OOOOBYS*- 

887  00  TO  950 

830  IF  AB5CYX100  TH£^  850 

840  PRINT  -AND  YOU  MI6HT  MAKE  IT#  THOUGH  YOU  ARE  OFF  COURSE*- 

843  60  TO  950 

850  IF  ABS(Y><85  THEN  670 

860  PRINT  -BOT  YOU^RE  CLOSE  EN0U6H  TO  GET  AVAY.     GOOD  LUCKI- 
863  60  TO  950 

870  PRINT  -AND  HAVE  REACHED  THE  CHANNEL. - 
880  PRINT  -HOV  SVEET  SUCCESS  IS  III- 
890  60  TO  950 

900  PRINT  -YOUR  TINE  IS  UP*- 
910  IF  XolOOOO  THEN  800 

980  PRINT  '^YOU  HAVE  NOT  REACHED  THE  CHANNEL^  AND  ARE  ONLY- 

930  PRINT  INTCSOR(X«X^Y*Y>^.ft>-HETERS  FROM  WHERE  YOU  STARTED*- 

940  PRINT  -YOU  MUST  SUFFER  RECAPTURE .- 

945  PRINT  -SORRY#  CHUN#  BUT  THAT'S  PHYSICS*- 

950  PRINT 

960  PRINT  -SEE  IF  YOU  CAN  IMPROVE  YOUR  ABILITY  LATER*- 
970  MM  ' 
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D  ISC  IP  LINE  PHYSICS  

SUBJECT  PHOTOELECTRIC  EFFECT 
PROGRAM  NAME  PHOTEL  


DESCRIPTION: 

An  experiment  involving  the  photoelectric  effect  is  simulated  by  the  computer, 
to  enable  students  to  develop  a  qualitative  understanding  of  the  phenomenon. 


OBJECTIVES: 

To  demonstrate  a  ^'critical  wavelengtH'  for  photo-electronic  emission, 

PRELIMINARY..  PREPARATION:  

A.  Student 

1,  ^  Prior  tiiscussion  of  tiie  plienomenon  as  an  introduction  to  modern  physics 

2,  Students  must  be  previously  aware  of  such  properties  of  light  as  wave- 
length and  intensity. 

B,  Materials  -  none 


DISCUSSION: 

The  student  is  permitted  to  select  any  one  of  five  metals,  which  is  sub- 
sequently subjected  to  ultraviolet  radiation.     The  electrons  are      counted"   by  an 
ammeter  incorporated  in  the  simulated  experimental  set-up. 

The  data  collected  is  tabulated  for  three  trials,  indicating  the  current 
measured  for  various  wavelengths.  The  data  will  indicate  that: 

1,  The  photoelectric  emission  is  a  function  of  wavelength; 

2,  For  light  of  wavelength  less  than  the  critical  value,  the  number  of  electrons 
emitted  is  dependent  upon  the  incident  light  intensity:  and 

3,  For  wavelengths  greater  than  the  critical  value,  light  intensity  has  no 
effect  on  the  emission  of  electrons. 

The  program  is  designed  for  individual  qualitative  investigation  of  the 
phenomena,  but  may  also  be  utilized  by  small  groups. 

It  should  be  noted  that  this  program  is  advantageous  where  limited  or 
non-existent  lab  equipment  hinders  actual  experimentation* 
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THE  PHOTOELECiaiC  EFFECT 


WEN  LIGHT  OF  SHOrtT   WAVELENGTH  FALLS  ON  A  METAL  SUrtFACE^ 
ELECTHONb  AHE  EJECTED  FHOM  THE  METAL.  ACCOrtDING  TO  THE 
DESCRIPTION  OF  THIS  PHENOMENON  BY  EINSTEIN^   THERE  IS  A 
MAXIMUM   WAVELENGTH  FOR  EACH  METAL  ABOVE  WHICH  NO  ELECTRONS 
ARE  EMITTED.    IN  THIS  EXPERIMENT   WE  WILL  DETERMINE  THE 
CRITICAL   WAVELENGTH  AT   WHICH  THIS  OCCURS. 

THE  METAL  SELECTED   WILL  BE  PLACED  IN  A  VACUUM  WHERE  IT 
WILL  BE  BOMBARDED  BY  SOFT  X-RAYS.   THE  NUMBER  OF  ELECTRONS 
EJECTED  WILL  BE  COLLECTED  AND  COUNTED   WITH  AN  AMMETER. 
(NOTES THE  CURRENT   IS  RELATED  TO  THE  NUMBER  OF  ELECTRONS 
EMITTED  BY  THE  METAL). 

SELECT  ONE  OF  THE  METALS  LISTED  BY  TYPING  ITS  NUMBER. 


1)  SILVER 

2)  BISMUTH 

3)  CADMIUM 

4)  LEAD 

5)  PLATINUM 


MEASURED  CURRENT  (MICROAMPERES) 


WAVELENGTH 

TRIAL  1 

TRIAL  2 

TRIAL  3 

2380 

20.7 

20.3 

20.1 

2500 

20.6 

20.3 

20  .4 

2631 

20.5 

20.1 

i^U.8 

2777 

20.8 

20.6 

20  .2 

2941 

20.1 

20  .8 

20.8 

3125 

20.2 

20 

i^O.8 

3333 

2.2 

3.6 

3 

3571 

41 

2.8 

3846 

1 

3.5 

J. 5 

DO  YOU  WISH  TO  INCREASE  THE  LIGHT  INTENSITY? 
(1-YES^  0-NO)    I    7  1 


BY  WHAT  FACTOR?  ( SELECT  FACTOR  BETWEEN  1  AND  10 j. 
?  7 


MEASURED  CURRENT  (MICROAMPERES) 
WAVELENGTH         TRIAL   1  TRIAL  2  TRIAL  3 


2380 

140 

140 

140 

2500 

140.1 

140.1 

140.1 

2631 

140 

140 

140.1 

2777 

140 

140.1 

140.1 

2941 

140.1 

140 

140.1 

3125 

140.1 

140 

140 

3333 

4.5 

4.9 

3.3 

3571 

1*4 

1.7 

2 

3846 

4 

0 

3.7 
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00  YOU  WISH  TO  XNCREASE 
(l"YES#  0«N0)    :    7  U 


THE  LIGHT  INTENSITY7 


DO  YOU  WISH  TO  THY  ANOTHEH  METAL   (1«YES#  0»N0)    t    7  I 
SELECT  ONE  OF  THE  METALS  LISTED  tii    TYPING   ITS  NUMBEH. 

1)  SILVEH 

2)  BISMUTH 

3)  CADMIUM 

4)  LEAD 

5)  PLATINUM 

7  2 


MEASUHED  CUHHENT  (MICHOAMPEHES) 


WAVELENGTH 

TRIAL  1 

TRIAL  2 

TRIAL  3 

238U 

10.6 

10  .  7 

11.1 

25U0 

10  .4 

11 

10  .5 

2631 

1  1 

1  1 

11  .^1 

2777 

11  .^1 

10.6 

10 

2941 

11.1 

11.6 

10.9 

3125 

3.3 

1-7 

3333 

/I. 2 

3.6 

3571 

3.9 

4.2 

3b46 

i 

1  .  7 

3.3 

00  YOU  WISH 

TO 

INCREASE  THE 

LIGHT  INTENSI 

TY? 

(1-YES*  0-NO) 

:    7  0 

DO  YOU  WISH 

TO 

TRY  ANOTHEH 

METAL   (  1-YES* 

0«N0)  t 

7  0 


NOW  BY  PLOTTING  THE  WAVELENGTH  VS.    THE  MEASURED  CURRENT* 
(AVERAGE  OF  THREE  TRIALS)*   THE  PHOTOELECTRIC  EFFECT  AS 
INSCRIBED  BY  EINSTEIN  WILL  BECOME  APPARENT. 


THANK  YOU. 


READY 
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100  HEM  A.C.   CAGGIAN0;PATCH0GUE  H.S*  PHYSICS;  7-l6-6b 

105  HEM     REVISED  BY  C»LOSIK  b-2l-70 

106  HEM     A   IS   WHICH  METAL*   L  IS  THE  PHINTED  WAVELENGTH, 

107  HEM  N  AHE  THE  CUiiHENTS#  K  IS  INTENSITY*  F  IS  INCHEASING  INTENSITY' 
no  PhINT       'S^THE  PHOTOELECTKIC  EFFECT" 

120PRINT 
130PHINT 

MOPRINT'*WHEN  LIGHT  OF  SHOuT   WAVELENGTH  FALLS  ON  A  METAL  SUHFACE*" 
150PHINT"ELECTH0NS  AKE  EJECTED  Fi<OM  THE  METAL.  ACCOHDING  TO  TrtE" 
l60PHZNT"DESCaiPTlON  OF  THI5  PHENOMENON  BY  EINSTEIN*    THEnE  IS  A" 
l70PaiWT"MAXIMUM  WAVELENGTH  FOH  SACH  METAL  ABOVE   WHICH  NO  ELECTRONS" 
IbO  PHINfAHE  EMITTED.    IW  THIS  EXPERIMENT  WE  WILL  DETERMINE  THE" 
190PHINT"CHITICAL  WAVELENGTH  AT   yiiIGH  THIS  OCCURS." 
200PHINT 

210P^RINT?'THE-  METAL  SELECTED  WILL  BE  PLACED- IN  A  VACUUM  WHERE  IT"  ~ 
220PRINT"WILL  BE  BOMBARDED  BY   SOFT  A-RAYS.   THE  NUMBER  OF  ELECTRONS" 
230PRINT"EJECTED  WILL  BE  COLLECTED  AND  COUNTED  WITH  AN  AMMETER." 
240PRINT"CN0TE:THE  CURilENT  IS  RELATED  TO  THE  NUMBER  OF  ELECTRONS" 
250PRINT"EMITTED  BY  THE  METAL)." 
260PRINT 

270PRINT"SELECT  ONE  OF  THE  METALS  LISTED  BY  TYPING  ITS  NUMBER." 
280PRINT 


290PRINT" 

"# 

"I  ) 

SILVER'^ 

300PRINT" 

"# 

"2) 

BISMUTH" 

310PRINT" 

"# 

"3) 

CADMIUM" 

320PRINT" 

"# 

"^) 

LEAD" 

33G  PRINT" 

"# 

"5) 

PLATINUM' 

3440PRINT 

345  RANDOMISE 

350 INPUT  A 

360   IF  A>1   THEN  360 

370  LET  V0«.3UB 

380   IF  A<>2  THEN  ^00 

390  LET  V0».33b 

400   IF  A<>3  THEN  420 

410  LET  V0=.3lb 

420   IF  A<>4  THEN  440 

430 LET  VO 3.340 

440   IF  A<5   THEN  460 

450  LET  V0«.3B5 

460  LET  K«INT( l^2*RND<X) ) 

470  PRINT 

4bO  PRINT"   "# "MEASURED  CURRENT  (MICROAMPERES)" 

490PRINT  "WAVELENGTH'S "TRIAL   l"i."TRIAL  2"*"TRIAL  3" 

500  FOR  L-.420   TO   .250   STEP  -.02 

510  LET  W-INTC 1000/L) 

520  PRINT  M# 

530  FOR  J»l   TO  3 

540   IF  L>  VO   THEN  5  70 

550  LET   I»SURCINT(25^RND(X) )) 

560   GO  TO  5b0 

570   LET  I*SQR(K*K*lOU+iNT(35*RND(X) ) ) 
580  LET  N»INT( I0*I+.5)/I0 
590  PRINT  N* 
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600  NEXT  J 
610  PKINT 
620  NEXT  L 
630PHINT 

640PHINY"D0  YOU  WISH  TO   INCREASE  THE  LIGHT  INTENSITY?*' 

650  PHINT  "(1-YES*  0«N0)  t 

660   INPUT  G 

670   IF  G»0   THEN  730 

675   IF   G<>1    THEN  650 

680  PAINT 

690  PiiINT"BY   WHAT  FACTOR?    (SELECT  FACTOR  BETWEEN  I   AND  10)«" 
7U0   INPUT  F 

705   IF  ABS(F-5.5)>^.5  THEN  690 

"■710-LET--K«K*F  ^   •  ^ -  '  -  " "  ' 

720   GO  TO  ^70 
730  PRINT 

740PRINT"D0  YOU  WISH  TO  TRY  ANOTHER  METAL   Cl«YES*  U*NO)    J  'S 

750    INPUT  H 

760    IF  H«l   THEN  270 

765  IF  HoO   THEN  7^0 

770  PRINT 

7B0PRINT"N0W  BY  PLOTTING  THE  WAVELENGTH  VS.   THE  MEASURED  CURRENT*" 
790PRINT" (AVERAGE  OF  THREE  TRIALS)*    THE  PHOTOELECTRIC  EFFECT  AS" 
«OOPR1NT"DESCRIBED  BY  EINSTEIN   WILL  BECOME  APPARENT." 
blOPRiNT 

b20PRI NT" THANK  YOU." 
830  END 
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DISCIPLINE  PHYSICS  

SUBJECT  ENERGY  LEVELS 

PROGRAM  NAME  PHOTON 


DESCRIPTION; 

The  student  fires  15  shots,  from  a  photon  gun,  at  a  mythical 
gaseous  element  with  4  randomly-selected  energy  levels.    After  each 
shot^the  computer  prints  out  the  energies  of  photons,  if  any,  emitted 
by  the  gas.    The  student  is  to.construct  an  energy  level  diagram  for 
the  element  from  a  knowledge  of  the  energies  of  the  photons  emitted. 


OBJECTIVES; 

To  promote  a  better  understanding  of  how  energy  levels  are 
determined  from  a  knowledge  of  the  emissions  of  excited  atoms. 


PRELIMINARY  PREPARATION; 

A.  Student  -  It  is  desirable  that  he  have  run  BOHR,      but  it  is  not  a 
neces  sity. 

B.  Materials  -  none 


DISCUSSION; 

The  computer  randomly  selects  4  energy  levels  for  the  element. 
The  energies  range  between  lxlO~-^^  and  15x10"-^^  joules  . 

The  energies  of  the  students'  15  shots  are  picked  at  random, 
but  cover  the  range  from  1  to  15.    MHKenever  one  of  the  photons  shot  by 
the  student  is  capable  of  exciting  the  atom  all  of  the  possible  photon 
emissions  from  that  excited  state  are  printed. 

By  examining  the  photons  emitted  as  a  result  of  the  15  shots  the 
student  can  construct  an  energy-level  diagram  of  the  element  and  account 
for  each  photon. 
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PHOTON 


XNAOINE  THAT  YOU  HAVS  A  PHOTON  QUN  THAT  FIRES  PHOTONS  VITH 
BAMDOMUY  SSLXCTtO  ENSROIES* 

YOU  WNT  TO  riMO  SONS  OF  THE  ENEHQY  LXVSLS  OF  A  OAS  THAT 
YOU  HAVE  ISOLATED  FBON  A  SAMPLE  OF  NOON  HOCK*     YOU  VILL 
DO  ZT  BY  FIRING  PHOTONS  INTO  THE  OAS  AND  MEASURING  THE 
ENERGIES  or  PHOTONS  EMITTED  BY  THf  GAS*     THE  GAS  VILL  EMIT 
ONLY  IF  THE  PHOTON  YOU  FIRED  IS  CAPABLE  OF  EXCITING  ITS 
ATOMS  TO  HIGHER  ENERGY  STATES* 


TO  FIRE  A  BURST  OF  SINGLE  ENERGY  PHOTONS  INTO  THE  GAS  TYPE  i 
TO  CEASE  FIRING  PHOTONS  TYPE  0 

YOU  HAVE  15  SHOTS  TO  DETERMINE  THE  ENERGY  LEVELS* 

SHOT  NUMBER      ENERGY  OF  EMITTED  PHOTONS  €E-I9  JOULES > 


FIREII7 

1 

X 

0 

FIREII7 

1 

8 

0 

FIREI  17 

1 

3 

0 

FXRBtl7 

1 

A 

0 

FIREI  17 

1 

5 

14 

7 

5  3 

FIREI 17 

1 

6 

5 

3 

a  9 

FIREI 17 

1 

7 

3 

9 

F2REI 17 

1 

8 

0 

FIREI 17 

1 

9 

0 

FIREI 17 

1 

10 

0 

FIRBM7 

1 

XX 

0 

FIREI  17 

1 

IS 

7 

5 

3  4 

F2REI 17 

1 

13 

0 

FIREI IT 

1 

14 

0 

FIREI 17 

i 

15 

0 

FIND  THE  ENERGY  LEVELS  OF  OUR  ELEMENT  -  NYSTBRIUN 
AND  ACCOUNT  FOR  EACH  OF  THE  EMITTED  PHOTONS  BY  DRAWING 
AN  ENERGY  LEVEL  DIAGRAM  AND  SHOVING  VHICH  TRANSITIONS 
GIVE  RISE  TO  THE  PHOTONS* 


flBADY 


PHOTON 


110  BKM      JOHN  V.  HOSIE  «  NORTHPOAT  HIGH  *  PHYS15S  8/1/69 

113  RKM    RXVISSO  BY  L*BRAUN  6-80-70 

115  RXN    a(I>  ARB  THK  XamGY  LSVXLS 

laO  RANDOMISE 

185  DIM  R(ft5>#X(l5>#E(6> 

130  rOR  «M>  TO  6 

140  LET  E(J>-0 

150  NEXT  J 

170  PRlNr*IlfAalllS  THAT  YOU  HAVE  A  PHOTON  GUN  THAT  riRES  PHOTONS  VlTH*" 
180  PRINT**RANDOMLY  SELECTED  ENERGIES.** 
190  PRINT 

flOO  PRINT**Y0U  IIANT  TO  FIND  SOME  OF  THE  ENERGY  LEVELS  OT  A  GAS  THAT" 
810  PRINT**YOU  HAVE  ISOLATED  FROM  A  SAMPLE  OF  NOON  ROOK*     YOU  VILL** 
880  PRlNT**DO  IT  BY  FIRING  PHOTONS  INTO  THE  GAS  AND  MEASURING  THE*" 
830  PRINT~ENERGIES  Of  PHOTONS  EMITTED  BY  THE  GAS*     THE  GAS  VILL  EMIT** 
840  PRINT-'ONLY  IF  THE  PHOTON  YOU  FIRED  IS  CAPABLE  OF  EXCITING  ITS** 
850  PRINr*ATOMS  TO  HIGHER  ENERGY  STATES*" 
860  PRINT 
870  PRINT 

30O.REM    THIS  GENERATES  A  RANDOM  NO*  IN  RANGE  0-15 

310  LET  K«INT(15*RN0(X>^*5> 

380  FOR  I"8  TO  5 

330  IF  K«E(I^  THEN  310 

340  NEXT  I 

350  FOR  U«8  TO  5 

360  IF  ECJ>«0  THEN  390 

370  BEXT  J 

380  GO  TO  410 

390  LET  E(J>"K 

4M  GO  TO  310 

410  FOR  J-1  TO  4 

480  FOR  I-J^l  TO  5 

430  IF  E(J><E(I>  THEN  470 

440  LET  K"E(J> 

490  LET  E(J>"E(I> 

460  LET  E(I>«K 

470  NEXT  I 

480  NEXT  J 

490  PRIHr*TO  FIRE  A  BURST  OF  SINGLE  ENERGY  PHOTONS  INTO  THE  OAS  TYPE  1 
900  PRlMT^TO  CtASE  FIRING  PHOTONS  TYPE  0" 

510  PRiNt**YOU  HAVE  IS  SHOTS  TO  DETERMINE  THE  ENERGY  LEVELS*" 
930  PRINT 

940  PRINT  **  ''^"SHOT  NUMBER" ENERGY  OF  EMITTED  PHOTONS  (E-19  JOULES)" 
990  PRINT 

960  IF  D«15  THEN  950 

570  PAINT  "FIRE  1 1  "I 

980  INPUT  F 

983  IF  rmO  THEN  990 

986  IF  F<»1  THEN  570 

990  LET  D»D«t 

600  LET  N-0 

680  LET  P-INT(19«RBID(X>^*5> 

630  FOR  I-l  TO  15 

660  IF  P«K(I>  THEN  680 

690  BEXT  I 

660  LET  K(D>-P 

670  FOR  I-l  TO  5  . 

680  IF  P«E(I>  THEN  780 

690  NEXT  I 

100  PRINT  "  "#D#"0" 

710  GO  TO  560 

7B0  FOR  HmX  TO  I 
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730  roa  omi  TO  i 

740  LXT  N-N^l 

790  LET  RCN)«ECI^1«J>-E(H) 

no  NEXT  J 

770  NEXT  H 

no  FRIMT"  ••#0* 

790  rOR  !•!  TO  85 

aOO  ir  R(I>>0  THEN  630 

010  LET  R(I>-0 

MO  00  TO  $70 

030  roa  Jmi  TO  85*1 

040  ir  RC1><»B(1^J>  THEN  860 

090  LET  R(X^«l>«0 

040  NEXT  J 

070  NEXT  1 

080  roa  N-1  TO  85 

090  ir  aCN>«0  THEN  980 

900  PRINT  RCN>i 

980  NEXT  N 

930  PRINT"  " 

940  80  TO  940 

990  PRINT 

940  PRINT 

970  PMWT'^im  THE  ENERQY  LEVELS  Or  OUR  ELEMENT  •  NYSTERIUN** 
980  PRlNT~ANP  ACCOUNT  POR  EACH  OP  THE  EMITTED  PHOTONS  RY  OaAVlNCr 
990  PBlHT'SkM  SNEROY  LEVEL  D1A4BAM  AMD  SHOVING  WICH  TRANSITIONS" 
1000  PRINT^QIVE  RISE  TO  THE  PHOTONS." 
1010  END 
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DISCIPLINE 
SUBJECT 


 PHYSICS  

PHOTOELECTRIC  EFFECT 


PROGRAM  NAME  PLANK 


DESCRIPTION: 

This  program  simulates  an  experiment  to  determine  Planck' s 
constant,  threshold  frequency,  and  work  function  of  a  metal. 

OBJECTIVES; 

A.  To  enable  the  student  to  do  an  experiment  on  the  computer  that  he  is 
not  likely  to  be  able  to  do  in  a  high-school  laboratory. 

B.  A  better  understanding  of  the  photoelectric  effect. 

PRELIMINARY  PREPARATION: 

A.  Student 

1.  He  should  have  read  and  studied  about  threshold  frequency,  cut'off 
potential,  and  know  (schematically)  how  the  experimental  apparatus 
used  in  such  an  experiment  works. 

2.  It  is  des  irable  that  he  have  run   PHOTEL*  though  not  a  necessity, 

B.  Materials  -  Graph  paper 


DISCUSSION: 

The  student  may  choose  one  of  the  five  metals  in  the  program,  the 
intensity  of  the  x-rays  used,  and  the  number  of  different  x-ray  frequencies 
he  would  like  to  use.    The  computer  then  randomly  chooses  an  x-ray 
frequency,  and  prints  it  for  the  student  to  see.    The  student  enters  voltages 
to  be  used  as  retarding  potentials  in  the  simulated  tube  and  the  computer 
prints  a  current  for  each  potential  entered  until  the  current  is  zero  when 
the  cut-off  potential  is  reached.    A  new  frequency  x-ray  is  then  used  and  the 
student  again  tries  to  find  the  correct  potential  for  cut-off. 

Finally,  a  table  of  frequencies  and  cut-off  potentials  are  printed 
and  an  assignment  given  (plot  a  graph  and  answer  questions). 

The  student  may  then  run  the  program  again  with  a  different  in- 
tensity and  the  same  metal,  or  he  may  change  the  metal  and  intensity. 
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IN  THIS  EXPERIMENT  YOU  VI LL  BE  GIVEN  THE  PaEQUENCY  OF  THE 
X-*RAYS  BEING  USED  AND  YOU  ARE  TO  DETEHHINE  THE  VOLTAGE  SET- 
TING (RETARDING  POTENTIAL)  NECESSARY  TO  CAUSE  THE  COLLECTOR 
CURRENT  TO  DECREASE  TO  ZERO* 

FIRST  CHOOSE  THE  METAL  YOU  VISH  TO  USE  FOR  YOUR  PHOTO* 
SENSITIVE  SURFACE* 

I  SILVER#     2  BISMUTH#     3  CADMIUM#     4  LEAD#     5  PLATINUM 

WICH  METAL  DO  YOU  CHOOSE?  4 

WAT  INTENSITY  OF  X-RAYS  VILL  YOU  USE  (FROM  I  TO  5)7  3 

HOV  MANY  DIFFERENT  X*RAY  FREGUENCIES  VOULD  YOU  LIKE  TO 
USE  TO  RADIATE  YOUR  SAMPLE  CFROM  5  TO  6)7  7 

THE  X*RAY  FREQUENCY  IS  U«59  EI5 

VOLTAGES  HIGHER  THAN  CUT  OFF  VILL  GIVE  CURRENT  READINGS  OF 
2ER0  SO  TAV  LOVER  ONES*     I'LL  AOTIFY  YOU  OF  CUT  OFf; 
FIND  THE  CUT  OFF  <STOPPlNQ>  VOLTAGE* 


V"7 

84 

1*0 

Vhi7 

80 

I-  9*700638 

E*6 

V"7 

83 

I-  8*838173 

E*6 

V-7 

83*5 

I-  * 9988859 

E*6 

Vta7 

83*6 

Im  .747686 

E-6 

Vta7 

83*6 

CUT  OFF  1*0 
WE  X*RAY  FREQUENCY  IS  18*84      El 5 
FIND  THE  CUT  OFF  CSTOPPING)  VOLTAGE* 


84 

I-  83*08  785  E-6 

V^T 

88 

I-  16*97117  E-6 

W^T 

35 

I-  6*16513  E-6 

W^T 

40 

I-O 

V^T 

38 

Im  1.580819  E-6 

^1 

39*5 

I«0 

39 

CUT  OFF  ImO 

THE 

X-RAY 

FREQUENCY  IS  9*06 

FIND  THE  CUT  OFF  (STOPPING)  VOLTAGE* 
V^T  10 

1-0 

V^T  5 

1-0 

V»7  1 

CUT  OFF  1-0 
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THS  X*RAY  rRXaUENCY  IS  13.8  Kl5 

Fim  THE  CUT  OFF  (STOPPING)  VOLTAGE. 
V^7  80 

I«0 

I-  3.755741  E*6 

V^T  19 

I-O 

V^7  18 

I-  .4778505  E*6 

V^7  18.5 

1-0 

V*7  18-8 

CUT  OFF  I«0 
THE  X-aAY  FBEQUENCY  IS  18.44  EI5 

FIND  THS  CUT  OFF  (STOPPING)  VOLTAGE. 
\A>7  15 

CUT  OFF  I«0 
1HE  X-BAY  FREQUENCY  IS  9.43  EI5 

FIND  THE  CUT  OFF  (STOPPING)  VOLTAGE. 
V^7  10 

1-0 

Vta7  5 

1-0 

V^7  8 

I-  18.50934  E*6 

V^T  3 

I»0 

\M7  8.7 

1-0 

V^7  8.5 

CUT  OFF  1-0 
mS  X-RAY  FRX8UENCY  IS  8.65  S15 

FIMP  THE  CUT  OFF  (STOPPING)  VOLTAGE. 
V^T  1 

I"0 

Vml  .4 

I-O 

V^T  .8 

WIS  FREQUENCY  IS  TOO  LOV  TO  CAUSE  PHOTOELECTRIC  EMISSION 
1*LL  GIVE  YOU  A  NBV  FREQUENCY. 

WE  X-RAY  FREQUENCY  IS  10.55      El 5 

FINP  THE  CUT  OFF  (STOPPING)  VOLTAGE. 


VN7 

10 

I-O 

• 

I-O 

5 

I-  18.15371 

E-6 

6 

I-  9*785334 

E^6 

y^i 

7 

I-  1.385315 

E-6 

7.S 

I-O 

Vb7 

7.3 

I-O 

7.8 

CUT  OFF  I-O 
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PLANK 


FRSQUINCY 
SIS  rps 


CUT  OFF 
VOLTAOE 
VOLTS 


14.59 
I6.84 

13*8 

18.44 

9*43 

10*55 


83*6 
39 


I 


I8*8 
15 


8«5 
7*8 


PLOT  A  GRAPH  OP  CUT  OPP  V0LTA6SS  CY  AXIS>  VS«  PRSQaSUCY  . 

WAT  IS  THI  MCANIlia  OP  THE  POIMT  AT  WICH  THE  IJITRAPOLATKD 
GRAPH  IliTEaCEPTS  THE  VOLTAGE  AXIS? 

lilAT  IS  THE  LOVEST  PEEQUENCY  THAT  VILL  CAUSE  EMISSION  OP 
PHOTOELECTRONS  PROH  THIS  METAL? 

HEMIWIER  THAT  THE  RETARDING  POTENTIAL  APPLIED  BETVBEN  THE 
miTTEB  AND  THE  COLLECTOR  AT  CUT  OPP#  EXPRESSED  IN  ELECTRON 
VOLTS#  IS  EQUAL  TO  THE  KINETIC  ENERGY  OP  THE  PASTBST 
ELECTRONS  ESCAPING  PEON  THE  EMITTER*     PI ND  THE  SLOPE  OP  THE 
GRAPH  BUT  EXPRESS  THE  STOPPING  POTENTIAL  IN  JOULES* 

WAT  IS  THE  VALUE  OP  THE  SLWE  OP  THE  'RAPH  AND  WAT  SPECIAL 
MNE  IS  GIVEN  TO  THIS  CONSTANT? 

1UE  SANE  METAL  VITH  A  OIPPERENT  INTENSITY  IS  VORTH 
INVESTIGATING*     WEN  YOO  00  THIS  EXPLAIN  TBE  MEANING 
OP  ITS  GRAPH  WEN  COMPARED  TO  THE  PREVIOUS  ONE* 

YOU  HAY  ALSO  VI SH  TO  TRY  A  DIPPERENT  METAL  AND  EXPLAIN 
1ME  NEANING  OP  ItS  GRAPH  WHEN  COMPARED  TO  YOUR  OTHER' ONES# 
OR  COMPARED  VI TR  THOSE  OP  ANOTHER  STUDENT* 

DO  YOU  VI SH  TO  TRY  A  DIPPERENT  INTENSITY  OR  A 
DIPPERENT  METAL  (l-YES#  0-NO)  t  ?  0 


READY 
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100  BBM  MUM  V*  UOSIS    -  NORTHPORT  UIQH  -  7/89/69 

109  REH    RtVISBD  BY  C*L0S1K  6-81-70 

106  REH    M  IS  WICU  MSTALiC  IS  X-RAY  lirrSllSITY#  K  IS  MO*  OT  rRKAS* 

107  RIM    r(S)  ARt  THE  TBM^S*  UStD^  VCS)  ARE  THE  CUT  OFF  POIilTS 

110  LpET  P«0 
180  PRINT 

130  PRINT  ~     IN  THIS  EXPERIMENT  YOU  VILL  BE  GIVEN  THE  rREQUENCY  OF  THE*" 
l4aPRIflT  "X-RAYS  BEINQ  USED  AND  YOU  ARE  TO  DETERMINE  THE  VOLTAGE  SET-** 
190  PRINT  "TING  (RETARDING  POTENTIAL)  NECESSARY  TO  CAUSE  THE  COLLECTOR" 
160  PRINT  "CURRENT  TO  DtCREASK  TO' ZERO*" 
170  PRINT 

160  PRINT  "    FIRST  CHOOSE  THE  METAL  YOU  VISH  TO  USE  FOR  YOUR  PHOTO-" 
190  PRINT  "SENSITIVE  SURFACE*" 
800  PRINT 

810  PRINT  "     1  SILVER^     8  BISMUTH*     3  CADMIUM*     4  LEAD*     5  PLATINUM" 
880  PRINT 
830  LET  KmO 

840  PRINT  "UHICH  METAL  DO  YOU  CHOOSE"! 

890  INPUT  M 

860  IF  H>ml  THEN  860 

870  GO  TO  430 

860  IF  M>1  THEN  310 

890  LET  F0«9*74 

300  GO  TO  490 

310  IF  H»8  THEN  340 

380  LET  F0«6;66 

330  GO  TO  490 

340  IF  M»3  THEN  370 

390  LET  F0«9*43 

360  GO  TO  490 

370  IF  n>4  THEN  400 

360  LET  F0«6;68 

390  60  TO  490 

400  IF  M»9  THEM  430 

410  LET  F0-7*79 

480  GO  TO  490 

430  PRINT  "SORRY  -  THE  METALS  HAVE  NUMBERS  FROM  1  TO  9" 

440  GO  *  TO  840 

490  DIM  F(10>#V(10> 

460  PRINT 

460  PRINT  "WAT  INTENSITY  OF  X-RAYS  VILL  YOU  USE  CFROM  1  TO  9>"l 

480  INPUT  C  ' 

900  IF  C»9  THEN  480 

910  IF  C<1  THEN  460 

980  LET  S^ 

930  PRINT 

940  PRINT"HOV  MANY  DIFFERENT  X-RAY  FREGUENCIE5  MOULD  YOU  LIKE  TO" 
990  PRlNT"08E  TO  RADIATE  YOUR  SAMPLE  (FROM  S  TO  6)"l 
960  INPUT  K 
970  PRINT 

960  IF  K»-9  THEN  610 

990  PRINT  "1  SAID  BETVEEN  9  AND  6  FREQUENCIES*" 
too  GO  TO  930  ' 
610  IF  X<«6  THEN  660 

680  PRINT  "TOO  MANY  TRIALS  FOR  THE  AVAILABLE  TIME*" 

630  GO  TO  930 

690  RANDOMIZE 

670  LET  R«0 

660  FOR  I«l  TO  100 

^90  LET  F-RNDCX) 
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iDO  LST  r«iirr(£aoo*r^*s>/ioo 

710  IF  r>7  THXlf  730        "  * 
lao  fBBXT  X 

730  LBT  V«4«l4«(r«r0> 
740  LET  JmO  ' 

750  PaWT  "TOK  X-HAY  rRXQUKHCY  XS"r"  E15- 
7S0  PRINT 

770  ir  B>0  7UKN  000 

790  PRIEfT  ""VOLTAOS  HIWR  TUAN  CUT  OFF  WILL  QIVB  CUaHtllT  READINOS  OF** 

790  PRlMT  ""ZSaO  SO  TRY  LOVtB  OHU*     I  *U.  iMTIFY  YOU  OF  CUT  0FF;~ 

aOO  PRINT        FIND  TUI  CUT  OFF  (STOPPING)  VOLtAOS«" 

SIO  PRINT  ' 

«tO  PRINT  "V«**J 

N30  IWUT  ?1 

040  LET  RvR^I 

09a  LBT  >ij^l 

040  LST  I«(aO*C*(V*VI>>/V^«09«RND(X> 
070  IF  I<C*a0.5  THEN  690 
060  LET'I«tO*C^*i4RMD(X> 
090  IF  V*VI>0  THEN  910  ~ 
900  LET  I«0 

910  IF  4BS(V-VI><.I  THEN  1000 

990  IF  VH)  THEN  950 

930  LET  I«0 

940  IF  >3  THEN  1080 

950  IF  I»0  THEN  960 

940  PRINT  I-"I"  E-6" 

970  0O  TO  6&0 

960  PRINT  I«0~ 

990  00  TO  680 

1000  PRINT  ~  CUT  OFF  1-0" 

1010  QO'TO  1060 

1080  PRINT  "THIS  FREQUENCY  IS  TOO  LOV  TO  CAUSE  PHOTOELECTRIC  ENISSION** 
1030  PRINT  <*I*LL  OIVE  YOU  A  NEV  FREQUENCY.**  ... 
1040  PRINT 
1090  00  TO  660 
1060  LET  amSU 
1070  LET  F(S>-F 
1060  LET  V<S)«V1 
1090  PRINT 

1100  ir'$<>K  THEN  660 

1110  PRINT  ••    R-RAY*»#*»CUT  OFF" 

1180  PRINT  '*FaSQU8NCY<*#**VOLTA0E~ 

113a  PRINT  **  E19  FPS~;~  VOLTS'* 

1140  PRINT  — -•• 

1190  PRINT 

1140  FOA  S-1  TO  K 

1170  PRINT  F(S>#V(S> 

1160  NEET  S 

1190  LET  P«P^1 

ItiO  PRINT 

1080  PRINT*    PLOT  A  08APH  OF  CUT  OFF  VOLTA0ES  (Y  AXIS)  VS«  FREQUENCY** 
1830  PRINT  '  ' 

183S  IF'P»>1  THEN  1440 

1840  PRINT^INIAT  IS  THE  MEANIN0  OF  THE  POINT  AT  HHICH  THE  EXTRAPOLATED** 
1890  PRlNr*0RAPH~INTtROEPTS'THE  VOLtAOE  AXIS7**  * 
1860  PRINT 

1870  PRINT^VHAT  IS  THE  LOVBST  FREQUENCY  THAT  VILL  CAUSE  EHISSXON  OF** 
1860  PRlNr*PaOTOELECTRONS  FROM  THIS  NETALt** 
1090  PRINT 

1300  PRlNr*EENENNER  THAT  THE  RETARDIN6  POTENTIAL  APPLIED  BETWEEN  THE** 
1310  PRlNr*EMITTER  AMO  TME'COLLECTOA  AT  CUT  OFF#  EXPRESSED  IN  ELECTRON** 
1380  PRlNT**VOLTS#  IS  EQUAL  TO  THE  KINETIC  ENBR0Y  OF  THE  FASTEST**  ' 
1330  PRINT^BLSCTRONS  ESCAPIN6  FftOM  THE  tNITTERe     FIND' THE  SLOPE' OF  THE** 
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1340  PRIIir*aRAPH  BUT  EXPBXSS  THE  STOf^PINa'POTSNTIAL  IN  JOUUS*~ 
1350  PRXNT 

1360  PRXlir^WAT  IS  THE  VALUE  OP  THE  SLOPE  OP  THS  OBAPH  AND  WAT  SPECIAL** 
1370  PRXNr*NAllS  XS  OIVEN  TO  THIS  CONSTANT?" 
1380  PRXNT 

1390  PRXNl^THE  SANS  NETAL  VITH  A  DIPPBRBNT  INTENSITY  IS  VORTH" 
1400  PRXNr*INVEStiaATINd*     «HBN  TOO  DO  THIS  EXPLAIN  THE  HSANIN6~ 
1410  PRXNr*OP  ITS' GRAPH  VHEN  COHPARSD  TO  THE  PREVIOUS  ONE." 
14S0  PRINT' 

1430  PRXNT"Y0U  NAY  ALSO  VISH  TO  TRY  A  OIPPSRENT  NETAL  AND  EXPLAIN** 
1440  PRXNr*THE  HSANINO  OP  XtS  QRAPH  WEN  CONPARBD  TO  YOUR  0THER'0NES#** 
1490  PRXNT  **0R  CONPARED  VltH  THOSE  OP  ANOTHER  STUDENT*** 
1440  PRXNT 

1410  PRXNT  -DO  YOU  VISH  TO  TRY  A  DIPPERENT  INTENSITY  OR  A** 

14E0  PRXNT  **DIPPERENT  NETAL  ( 1«YES;  0«N0)  9  '**i 

1490  INPUT  0 

1900  IP  Q-1  THEN  170 

1510  IP  Q<>0  THEN  1460 

1980  END 


DISCIPUNE  PHYSICS  

S  UB  J  EC  T  PROJECTILE  MOTION 

PROGRAM  NAME  PRJTL 


DESCRIPTION: 


By  entering  the  firing  angle  and  initial  speed,  the  computer  calculates 
the  coordinates,  vertical  and  horizontal  velocities,  and  speed  of  a  projectile 
for  equal  time  intervals. 


OBJECTIVES: 


To  show  the  independence  of  the  horizontal  and  vertical  velocities  of  a 
projectile,  and  to  facilitate  the  plotting  of  its  path  by  eliminating  tedious 
cal  culations. 


PRELIMINARY  PREPARATION; 

A.  Student  -  Knowledge  of  motion  at  constant  velocity  and  at  constant  acceleration; 
and  the  vector  nature  of  velocity  and  acceleration. 

B.  Materials  -  graph  paper 


DISCUSSION: 

The  student  enters  an  angle  and  an  initial  speed  of  a  projectile.    A  table 
of  time,   X  and  Y  coordinates,    horizontal  and  vertical  velocities,  and  speed  of  the 
projectile  is  printed. 

The  student  may  then  plot  a  graph  of  the  position  of  the  projectile,  and 
draw  vectors  at  each  coordinate  point  to  show  the  vertical  and  horizontal  components 
of  its  velocity. 
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SUPPOSE  YOU  ABE  GOINQ  TO  PlRS  A  PAOJXCTILB  INTO  THE  Aia« 
IF  YOU  ENTER  A  VALUE  FOR  ANOLE  OF  ELEVATION' AND  INITIAL 
(«LOCITY#  THE  RANQS  AND  HtlQHT  VILL  BE  EVALUATED*  ENTER 
YOUR  INFORMATION  IN  THE  FORN  A»V  AFTER  THE  OUBSTION  MARK* 
<RENENBERj  THE  AN6LE  IS  IN  OEORBES  AND  THE  INITIAL 
VELOCITY  IS  IN  NETERS/SECOND*  > 


UHAT  ARE  YOUR  VALUES?  30 «  800 


WE  TOTAL  FLIGHT  TIME  VAS  80*39431  SECONDS 

THE  RANOE  IMS  3538; 399  METERS 

THE  MAXIMUM  HEIGHT  IMS  509*6573  METERS 

BECAUSE  THERE  IS  NO  FRICTION^  THE  HORIZONTAL  VELOCITY  IS 
CONSTANT*     HORIZONTAL  VELOCITY  ■173.8051 

THE  FOLLOVING  ARE  POINTS  ON  THE  CURVE  AT  VARIOUS  TIME  INTER  MLS  I 


VERTICAL 

TIME 

X«C00RD 

Y-COORD 

VELOCITY 

SPEED 

0 

0 

0 

99*99998 

800 

1*854088 

381*1878 

168*5479 

81*61618 

191.5974 

3*706056 

648*8543 

303*3861 

63*63638 

164«j^a53 

5*568084 

963*3815 

404*5148 

45*45451 

179*0708 

7*416118 

1884.509 

471*9338 

87*87871 

175*3391 

9*87014 

1605*636 

505*6438 

9*090908 

173*4435 

11*18417 

1986*763 

505*643 

-9.090901 

173*4435 

18.9788 

8847.89 

471*9338 

-87*87871 

17!(«3391 

14.83888 

8569.017 

404*5138 

-45*45451 

179*0708 

16*68685 

8890*144 

303*3848 

-63*63631 

184.5853 

18*54088 

381U878 

168*5468 

-81*81818 

191.5574 

80*39431 

3538*399 

0 

-99.99998 

1^0 

1HE  ANGLE  AT  VHICH  YOU  FIRED  THE  PROJECTILE  DOES  NOT  YIELD  THE  MAX 
WUM  RANGE.     WAT  ANGLE  DOES?  45 

45  DEGREES  GIVES  THE  MAXIMUM  RANGE  OF  4077.654 

WOULD  YOU  LIKE  ANOTHER  RUN  VITH  DIFFERENT  A  AND  V? 
C1>YES#  0>N0>  I  ?  0 


RMDY 
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100  JtSM  O.CAaACCI0L0#  LONQVOOD  H.S*#   IO-86-68#  BASIC 

101  RXH  BSVISED  8/85/70  (C.  LOSIK) 

110  BBN  PHYSICS  PaOJBCTILBNOTION 

IM  PRINT  ""SUPPOSE  YOU  ARE  OOINQ  TO  riaS  A  PaOUECTILE  IMTO  THE  AIH.** 
130  PAINT  ""ir  YOU  ENTER  A  VALOE  rOR  AflCU  OF  ELEVATION' AND  INITIAL" 
140  PRINT  '*VSLOCITY#  THE  RAN6E  AND  HEIOHT  VILL  BE  EVALUATED*  ENTER" 
ISO  PRINT  "YOUR  INPOBNATION  IN  THE  r0AN  A#V' AFTER  THE  QUESTION  HARK;" 
160  PRINT  "(^tElfEiDER#  THE  AN6LE  IS  IN  DEGREES  AND  THE  INITIAL" 
170  PRINT  "VELOCITY  IS  IN  METERS/SECOND. 
ISO  PRINT 
190  PRINT 

aOO  PRINT  "UHAT  ARE  YOUR  VALUES**! 

aao  INPUT  A#vo 

830  IP  yOmO  THEN  690 
840  IP  A»0  THEN  690 
8S0  IP  V040  THEN  780 
860  IP  A<0  THEN  780 
870  IP  A»90  THEN  750 
880  LET  A-A*3. 14159/180 
890  LET  IC«V0*SIN(A> 
300  LET  L-V0*C0S(A> 
310  LET  T«a*i€/9 .80665 
380  LET  R«8*K*L/9 .80665 
330  LET  H«(Xt8>^I9.6I33 
340  PRINT 
350  PRINT 

360  PRINT"THE  TOTAL  PLIGHT  TINE  VAS"iri**SECONDS" 
370  PRINr*THE  RAN0E  VAS** I Rl "METERS" 
380  PRINT"THE  NAXIMJH  HEIQHT  IMS"IUI"NETERS" 
390  PRINT  ■ 

393  PRINT  "BECAUSE  THERE  IS  NO  PRICTI0N#  THE  HORIZONTAL  VELOCITY  IS" 
396  PRINT  "CONSTANT.     HORIZONTAL  VELOCITY  «~L  -       .  . 

400  PRINT  - 

410  PRINT"       THE  POLLOVIHQ  ARE  POINTS  ON  THE  CURVE  AT  VARIOUS  "I 
480  PRINT  "TIME  INTERVALSt" 
430  PRINT 
440  PRINT 

44S  PRINT  "  VERTICAL  " 

450  PRINT"  TINE  "#"  X*COORD  "#"  Y-COOHO  "#"  VELOCITY  "#"  SPEED 

460  PRINT"  — —  "#"  —  ••^•^  i—   •• 

470  LET  N»T/II 
480  LET  TI«T 

490  POR  T^)  TO  Tl  STEP  N 

491  LET  0-K*T*4»90333*Tt8 
498  IP  QM)  THEN  495 

493  LET  0-0 

495  LET  VI-X-9.80665*T 

900  PRINT  T«L*T#Q#Vi#SQR(Vl*Vi'fL*L> 

910  NBl^T  T 

580  IP  ABSCA-** 785398 X. 0000 i  THEN  610 
930  PRINT 
940  PRINT 

990  PRINT"T1IE  ANOLE  AT  WHICH  YOU  PIRED  THE  PROJECTILE  DOES  NOT  "I 

960  PRINT'^-^IELD  THE  MAX  I  ROM  RAN6E;     WAT  ANGLE  OOtS"! 

980  INPUT  A  ' 

990  LET  A«A#3*  14199/180 

600  80  TO  sao  ~ 

610  PRINT 

680PRI>T"49  DEGREES  GIVES  THE  MAXIMUM  RANGE  0F"8*( VO  t8>«( .  707t8>/9.8066 
640  PRINT  ... 
648  PRINT  ""tfOULD  YOU  LINR  ANOTHER  RUN  VITH  DIFPERRNT  A  AND  V7" 
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6M  PRXirr  ^iimrms^  o«iiO>  •  **! 

649  INPUT  VI 

M6  IP  VI THIN  780 

6M  IP  Viol  THIN  644 

649  Print 

690  print**intkr  nxv  values  por  a#v  aptsr  the  question  nark.** 

660  00  TO  160 

690  PRINT        DON'T  ENTER  VALUES  OF  2ER0«**I 
100  00  TO  160 

790  PRINT  ^    NO  NEOATIVB  VALUES*    PLEASE  ENTER  THEN  CORRECTLY**! 
730  00  TO  160 

790  PRINT  **     OREAT  SHOT*     YOU  COULD  KILL  YOURSELF  THAT  VAY#  YOU  KNOW*** 
760  PRINT        TRY  AQAIN  (NOT  TO  KILL  Y0URSELF#  THAT  IS)  **i 
770  80' TO  180 
760  END 
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DI  SCI  PLI  NE  PHYSICS  

SUBJECT     PRINCIPLE  OF  LEAST  TIME 


PROGRAM  NAME  REFLCT 


DESCRI  PTION: 

An  analogy  is  given  for  a  light-ray  reflected  from  a  plane  surface 
to  demonstrate  the  * Meast-time' '  principle  and  its  relationship  to  the  reflection 
laws  of  light. 


OBJECTIVES: 

To  demonstrate  the  consequences  of  the  "  least-time''  principle. 


PRELIMINARY  PREPARATION: 

A.  Student   -  Should  be  familiar  with  the  reflection  laws  of  light. 

B.  Maite rials  -  graph  paper 


DISCUSSION: 

Given  points  P^  and  P^  and  the  line  1,  the 
student  can  vary  the  point  P^  to  note  thee  ffects  on 
angles  P  and  Q  and  their  relationship  to  the  time 
required  to  traverse  the  path  P^P^P^. 

The  program  is  presented  as  a  game  in 
which  a  horse  (lightray)  must  complete  a  journey 
within  a  specified  time.     The  student  is  limited 
to  seven  choices  of  P^  to  complete  the  task. 
After  a  successful  journey,  the  student  may  vary  the  point  P^  to  further 
establish  the  principle  of  least  time. 

This  program  has  been  extremely  helpful  in  developing  the  least-time 
concept  and  its  relationship  to  the  laws  of  reflection. 

It  is  applicable  to  a  classroom  situation  as  well  as  small  study  groups. 
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YOU  ARK  CimPINQ  OUT  VIST  IN  COORDINATK  NATIONAL  PABK  ON 
OBDINATK  NOU«TAIN«  LOCATBO  10  MI LIS  NORTH  Of  THS 
KStRTIO  TOVN  Of  ORISIM«  WHICH  18  CONVKNIBNTLY' LOCATED 
AT  (0«0>  ON  THS  LOCAL  NAP.  '  ' 

A  CALAMITY  STRIKKSI     THE  NEAREST  HELP  IS  AT  THS 
EAR  30130  RANCB«  LOCATED  AT  COORDINATES  (30«30>* 
to  aST'TUEBE*  You  HUST  RlDS  AN  OLD  HORSE 
CNAMED  LI8HTRAY>     WO  I  ' 

A>  VILL  ONLY  HALK  S  MILES  PSR  HOUR 

B)  ViLL  CEASE  TO  HALK  (AND  EXIST)  AFTER  10  HOURS 

C)  HOST  HAVE  A  DBINK  OT  HATER' SOfiSVUERS  AL0N6  THE 
ABSCISSA' RIVBR«  VRICH  (IF  YOU  HAVEN'T  OUESSED)  RUMS 
ALONtt  THE  ABSCISSA  IN  COORDINATE  PARK 

HEBE  IS  YOUB  PROBLEMi     YOU  MUST  PICK  A  SPOT 
(FROM'O  TO  30>  ALONO  THE  ABSCISSA  BlVSB  DURINO  THE 
TRIP  TO  aiVE  LI8HTRAY  A  DRINX;  AND  STILL  MAKE  IT  TO 
WE  BAB  30130  friTHIN  THE  TINE  ALLOVEO*     LIBHTBAY«  USINB 
H08SE  SENSX«  KNOHS' ALL  THE 'ANCLES*  SO  VE  ftiLL  OIVE  ' 
1HEM  TO  YOU*'  TOO. 

WERE  VILL  LIQHTRAY  STOP  FOR  A  DRINK?  7 

ANSLE  APPROACHINQ  RIVER  IS  55  DEORBES. 
ANGLE  LEAV2N0  RIVER' IS  S3  DEflBftK;?. 

WERE  VILL  LIOHTRAY  STOP  FOR  A  DRINK7  7.aS 

MiOLE  APPROACHINQ  RIVER  IS  54  DEOREES. 
MfOLS  LEAVINB  filVER'IS  53  DESRSES. 
WLL*  YOO  ARS  closer  THAN  LAST  TINS. 
MOP  AM  EYE  ON  THOSE  ANOLES;  THOOOH. 
LET'S  M  BACK  FOB  ANOTHER  HORSE. 

WERE  VILL  LIOHTRAY  STOP  FOB  A  DRINK?  7.3 

MIOLE  APPROAGHINO  RIVER  IS  54  DEOREES. 
ANU  LEAVlNf  RIVER' IS  53  DEOREES. 
C*NOH  —  YOU  TRIED  THAT  LAST  TINE. 

WSRE  VILL  LISHTBAY  STOP  FOB  A  DBINK?  7.35 

AMBLE  APPBOACHINI  BIVEB  IS  54  DEOBEBS. 
AMOLE  LEAVINB  BIVEB' IS  53  OEOBEES. 
C*HOM  —  YOU  TBISD  TBAT  LAST  TIME. 

WEBS  VILL  LI6HTBAY  STOP  FOB  A  DBINK?  7.4 

iMOLE  APPBOACHINO  BIVEB  IS  53  DEBBEBS. 
ftimr  LEAVINB  BIVEB' IS  S3  BBOBBES. 
BICE  VOBX.'  YOU'MADE'IT* 
IBS  TBXP  TOOK  ABOUT  10.00007  HOUBS. 

VOV  CAB  SEE  THAT  US! MB  MOBSE  SSNSK*  LIWTBAY  XHOVS  THAT 
1MB  AMBLES  HAVE  TO  BE  EBUAL  OF  BEFLBCtlON  FOR  A 
MtMIMUM  TIME  TRIP. 

IF  YOU  MMIT  TO  MBVB  THE  BANCH*  TYPE  I 
IF  YOU  HMIT  TO  SEE  SflilETHlNB  ELSS*  TYPE  8 
IF  YOU  HANT  TO  QUIT*  TYPE '3 
t  3 

THANK  YOU  FOB  PLAYIN8. 


aSAOY 

a  2* 
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100  BMH    PROORAM  BY  OfiBABD  M*  OAIOfl#  WMMHCH  HS0  8/M 

101  BSH    RKVISKO  BY  C*L0SIK  6*16-70 
110  DIM  A<7>;B(7>;C(7> 

US  BMm  INTBODUCTION' 

IBO  PBINT  "YOU  ARB  CAMPING  OUT  WST  IN  COORBINATB  NATIONAL  PARK  ON** 

130  PRINT  "ORDINATE  MOUNTAIN^  LOCATED  10  Ml  LBS  NORTH  Of  TNT* 

lAO  PklMT  "DBStRTBD  TOW  OP  0RI6IN«  VHICU  IS  CONVXNiBNTLY  LOCATKD" 

ISO  PRINT  **AT  <0#0>  ON  THB  LOCAL " NAP ^ 

ISS  PRINT 

140  PRINT  "A  CALAMITY  STRIKES  I     THB  NEAREST  HELP  IS  AT  THE" 

170  PRINT  "BAR  30 1  SO  RANCB#  LOCATED  AT  COORDINATES  (30#30>*" 

180  PRINT  "TO  QET'TUERB#  TOU  MUST  RIDE  AN  OLD  HORSE** 

190  PRINT  "(NAMED  LIOHTRAY)     WO  I"* 

BOO  PRINT  "  ";**A>  VILL  ONLY  VALK  5  MILES  PER  HOUR** 

BlO  PRINT  "  "#"B)  VILL  CEASE  TO  VALK*  (AND  EXIST>  APTER  10  HOURS" 

BBO  PRINT  "  "#"C)  MOST  NAVE  A  DRINK  Of  HATER' SOME  WERE  ALONB  THE" 

830  PRINT  "  "^"ABSCISSA  RIVBB#  MICH  (IP  YOU  HAVEN'T  QUBSSED)  RUNS" 

840  PRINT  "  "#**AL0N8  THE  ABSCISSA' IN  COORDINATE  PARK" 

84S  PRINT 

850  PRINT  "HERE  IS  YOUR  PROBLnil     YOU  MUST  PICK  A  SPOT" 

860  PRINT  "(PROM  0  TO  30)  AL0N8  THE  ABSCISSA  RIVER  DURIM8  THE" 

810  PRINT  "TRIP  TO  81 VE  LIOHTRAY  A  DRINK;  AND  STILL  MABB  IT  TO" 

mo  PBINT  "THE  BAR  30130  tITHIN  THE  TIME  ALLOVED;    LIWTRAY<  USIN8" 

8M  PBINT  ""HORSE  S8NSB#  KMOVS'ALL  THE'AN8LES«  SO  W  VILL  8IVB"  ^ 

a9S  PRINT  •THEM  TO  YOU#  TOO." 

300  REM    PIRST  RUN#  INITIALIZE  RANCH 

310  LET  A-30 

380  LET  B»30 

330  LET  T9-10 

33S  LET  Bvl80/3.14159 

340  80  TO  500  ' 

345  REM    SECOND  RW  (OPTIONAL) 

350  PRINT 

360  PRINT  "ENTER  TVO  NUMBERS*  SEPARATED  BY  A  COMMA*  POR  THE  MEV" 

370  PBINT  "RANCH  COORDINATES  "I 

380  INPUT  A#B 

390  LET  X-104A/(B^10> 

400  LET  T9«(S0BCX*Z^100>^SQR((A«X>*(A«X>^B«B>>/5 

410  PBINT  *"0.K**  LIWTRAY  VILL  LAST  ABOOr*T9f;001  "HOURS  THIS  TIME.** 
499  BBM    LOOP  POR  SEVEN  TRYS  «  EXIT  LOOP  IP  CORRECT 
900  POR  I«l  TO  7 
905  PRINT 

510  PRINT  "WERE  VILL  LIOHTRAY  STOP  POR  A  DRINK"! 
980  II^UT  X  -     -  - 

530  LET  A(I>»INT(R«ATN(10/X>^.5> 
935  PRINT     ■  * 

540  LBt  B(I>«IHT(B*ATN(B/(A*X>>^.5> 

980  PBINT  *AMaLE  APPB8ACRIM8  RIVER' IS"A(  I  >"DE8REES." 
960  PRIMT  *"AH8LB  LBAVIH8  BIVER  IS**B(I>"Dt8RBES." 
970  IP  A(I>«B(I>  THBH'660 
980  UT  C(I>«ABS(A(I>*B(I>> 

989  IP  I-rTMBM  TOO"" 

990  IP  C(I>»C(I*1>  THEN  630 
998  IP  C¥I><C(I*1>  THEN  600 

994  PRINT' ""C'NOM'-*  YOU  TBIBD  THAT  LAST  TIME.** 
986  80  TO  700 

800  PRINT  **VBLL«  YOU  ARE  CLOSER  THAN  LAST  TIME*" 
610  PRiMT  *"KEBP  AN  EYE  ON  THOSE  AN8LES«  TH008H.** 
615  PRINT  ""LET'S  80  BACK  POB  ANOTHER  HORSE."  ' 
680  80*  TO  700  ' 

630  PRIMT  "HEY  *  THIS  TRIP  TAKES  L0N8BRI" 
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MO  PRINT  **TOU  HAVt'A  OlAO  HORSE  ON  YOUR  HANDS*     TRY  A0AXN.** 
«0  iO'TO  700 

6«0  PR2NT  **N1CE  V0RK#     YOU  MADE 

670  PRINT  **T8B  TRIP  TOOK  ABOUT* (SaR€X*X^  100  > tSORC  (A-X>*(A-X>^R«E>  )/5l 
675  PRINT  hours;** 

6M  PRINT  **Y0U  CAN  SEE  THAT  USINO  HORSE  SEMSEp  UOHTRAY  KNOWS  THAT** 
«0  PRINT  **THB  ANGLES  HAVE  TO  ftE  EAUAL  OP  RBPLECtlON  POR  A** 

PRINT  '*NlNlMUIf  TIM  TRIP#** 
695  M' TO  600 
700  NEXT  1 
710  PRINT' 

TftO  PRINT  **T00  MANY  QUESSESI  VE  ARB  OUT  OP  HORSES.** 
800  PRINT 

810  PRINT  **ir  YOU  VANT  TO  NOVS  THE  RANCH#  TYPE  1** 

880  PRINT  **IP  YOU  VANT  TO  SEE  S0HETHtN8  ELSE#  TYPE  8** 

830  PRINT  "IF  YOU  VANT  TO  aUIT#  TYPE' 3** 

840  INPUT  X' 

850  IP  X»l  THEN  350 

860  IP  X-a  THEN  900 

870  IP  X«3  THEN  980 

880  80  TO  840 

900  PRINT  **TIMI  POR  AN  ACTUAL  LI8KTRAY  TO  COMPLETE  THE  TRIP  ISl** 
910  PRINT  CSQR(X*X^100>^SQRC(A-X>^(A*X)^B*B))/U86E5l**  SECONDS*** 
980  PRINT 

930  PRINT  **  **#~THANK  YOU  POR  PLAYING*** 
960  END 


DISCIPLINE 


PHYSICS 


SUBJECT 


YOUNG'  S  DOUBLE  SLIT  EXI^ 


PROGRAM  NAME  SLITS 


DESCRIPTION; 

Young'  s  Double  Slit  Experiment  is  simulated  by  the  computer  to 
permit   greater  exploration  of  the  influence  of  wavelength  and  slit-separation 
on  the  interference  pattern.    (This  is  a  plotting  program). 

OBJECTIVES: 


To  determine,  qualitatively,  the  effects  of  slit-separation,  inter-screen 
spacinjji  distance         and  wavelength  (w),  in  altering  the  location  of  the  maxima 
and  minima       of  the  intensity  bands  ot  light. 

PRELIMINARY  PREPARATION: 

A.  Student    -  An  inrrTuction  sheet  is  helpful  in  leading  the  student 
through  a  logic- 1  approach.    It  is  also  recommended  that  students 
understand  the  superposition  of  waves  before  executing  this  program. 

B.  Materials  -  none 


DISCUSSION: 

A.  Operational  Suggestions 

1.     The  objectives  of  this  program  are  best  accomplished  with  small 
groups  (3  to  4  students)  to  permit  discussion  and  development  of 
ideas  concerning  the  relationships  involved. 

The  program    has  worked  well  with  highly-motivated  students  and 
has  often  led  into  detailed  discussions  of  related  topics.  However, 
it  has  been  found  to  be  relatively  ineffectual  with  poorly-motivated 
students. 

B.  Suggested  Follow-up 


This  program  permits  the  exploration  of  the  parameters  involved 
in  double-slit  interference  patterns  without  the  requirement  of  extensive 
equipment  and/ or  set-ups.    It  is  recommended  that  this  simulated 
experiment  be  employed  after  the  student  has  familiarized  himself  with 
the  normal  lab  experiment. 
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Follow-up  (  con' t) 

To  enhance    the  operation  of  this  program,  it  is  further 
recommended  that  an  instruction  sheet  (see  attachment)  be  con- 
structed to  enable  efficient  exploration   of  this  phenomenon.  By 
varying  the  slit-separation  (d),  the  student  can  observe  the  effects 
by  noting  the  relative  separations  between  adjacent  maxima.      In  a 
similar  manner,  changes  effectuated  by  the  various  wavelengths  can 
also  be  noted. 
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Computer  Instruction  Sheet  for 
Young'  3  Double -Slit  Experiment 


The  crucial  experiment  for  the  establishment  of  the  wave  nature 
of  light  was  Young'  s  double -slit  experiment.    The  experiment  clearly 
demonstrated  diffraction  and  interference  of  light:    a  phenomenon  characteristic 
of  a  wave -like  nature.    Realizing  this  wave  property  of  light,  we  can  now 
use  the  double-slit  set-up  to  further  study  light  sources. 

Young'  s  double-slit  experiment  is  illustrated  in  figure  1,  showing 
a  symmetrical  layout  about  line  AB.    The  slits  are  located  on  an  opaque 
screen  a  distance  L  from  the  observation  screen.     The  slits  are  separated 
a  distanced  from  center   to  center. 

A  wave  front  from  the  coherent  light  source  reaches  the  opaque 
screen  as  a  train  of  plane  waves.    Each  slit  then  acts  as  a  new  light  source 
(in  phase  with  each  other)  which  interfere  with  each  other  creating  rays  of 
high-intensity  light  (constructive  interference);  and  rays  of  low-intensity 
light  (destructive  interference).     These  rays  are  nrost  easily  observed  on 
the  screen. 

In  this  program  we  will  attempt  to  determine  the  effects  of  the  slit- 
separation  distance    (d)  and  the  wavelength  of  the  light  on  the  interference 
(intensity)  pattern. 

ADDRESS  COMPUTER  PROGRAM  SLITS 


Observation 
sc  reen 


Opaque 
sc  reen 


Coherent  light 
source  is  located  on 
center  line 
^^way  out  vonder- 


-B 


Figure  1 

After  addressing  the  program,   type  RUN.    The  teletype  will  then 
print  out  the  intensity  pattern  observed  when; 

L  =  2  meters;  d  =  .  5  millimeters;  and  W  =  6000  Angstroms. 
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The  left-hand  margin  shows  the  distance  measured  above 
(positive)  and  below  (negative)  the  center  line.    This  measurement  (x) 
is  in  centimeters.    This  measurement  is  used  to  determine  the  position 
of  the  maxima    (points  of  high- intensity  light)  and/or  minima  (points  of 
low-intensity  light). 

The  teletype  will  now  ask  you  to  specify  a  new  value  of  d. 

STUDY:    How  is  the  intensity  pattern  affected   by  changing  the  slit 

separation  distance?    (try  several  values,  if  necessary,  to 
determine  its  effect). 

DETERMINE:      What  happens  to  the  distance  x  between  maxima  and 

minims    as  d  is  halved  or  doubled?   Can  you  determine 
this  relationship? 

When  you  have  varied  d  to  your  satisfaction,  type  100  when 
asked  to  specify  a  new  value  of  d.    The  teletype  will  then 
ask  you  to  specify  a  new  wavelength. 

STUDY:  How  is  the  intensity  pattern  affected  by  changes  in  the  wavelength? 
(Try  several  values  if  necessary). 

DETERMINE:     What  happens  to  the  distance  between  maxima  and 

minima    as  W  is  halved  or  doubled?    Can  you  determine 
this  relationship? 

You  can  test  your  ideas  by  typing  100  when  asked  to 
specify  a  new  wavelength.    You  will  then  be  asked  to  pick 
one  of  four  light  sources  whose  wavelength  is  unknown  to 
you.    You  will  also  be  asked  to  specify  the  value  of  d  you 
will  use  in  determining  the  unknown  wavelength.    You  will 
have  the  opportunity  of  changing  the  d  if  you  so  desire. 

If  you  are  successful,  or  if  time  permits,  you  may  try  all  four 

tests . 


NOTE:    To  terminate  the  program  during  operation,  type  STOP  after  any 
of  the  question  marks  that  appear;  then  return  carriage. 

To  sign  off  the  air,  type  BYE. 
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YOUNG'S  DOUBLE  SLIT  EA^'EHIMENT 


L  =  2  METERS 

W  = 

DISTANCE  CMM'S 

-•26 

-.22 

-.2 

-.lb 

-.16 

/ 

-.12 

-.1 

\ 

•'^ 

-.Ott 

-.06 

-.02 

.02 

.04 

.06 

.Ob 

.1 

.  *  ^ 

.12 

.14 

.16 

.lb 

.2 

.22 

.24 

.26 

6000  ANGSTriOWS 


D  =   .5  MILLIMETEHS 


►INTENSITY. 


ABOVE   IS  AN  ILLUSTRATIVE  RUN   WITH  PRE-DETEHMINED 
VALUES  FOH  WAVELENGTH   CW)j    DISTANCE  BETWEEN  SLITS 
AND  SCREEN   CL)^   AND  SLIT  SEPARATION  -  CENTER  TO 
CENTER  CD).     NOW  YOU  MAY  VARY  THESE  PAHAMETEHSj 
ONE  AT  A  TIME. 

:(e4i 
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WHAf    IS  THE  NEW  bLIT  SEPAHATION   CD)    IN  MILLIMETEK:>7  1 


L  «  2  METEHS 


W  -  6000  ANGSTtiOMS 


D  =   I  MILLIMETEHS 


DISTANCE  (MM'S  FKOW  CENTEH) 

-.22 
-.2 
-.lb 
-.16 
-.M 
-.12 
-.1 
-.Ob 
-•06 
-.0^ 
-.02 


.02 

.04 

.06 

.Ob 

.1 

.12 

.M 

.16 

•  16 

.2 

.22 

.24 

.26 


* 


.INTENSITY. . . 


WOULD  YOU  LIKE  TO  TRY  ANOTHER  VALUE  OF  D  <1-YES*  0-NO)?  1 
WHAT   IS  THE  NEW  SLIT  SEPARATION   CD)    IN  MILLIMETERS?  .25 


2  METERS 


W  ^  6000  ANGSTROMS 


D        .25  MILLIMETERS 
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DISTANCE  CMM»S  FKOM  CENTEk) 


-.26 

f 

-.24 

-.22 

i 

-.<i 

-.lb 

-.16 

-.14 

-.12 

-.  1 

-.Ob 

-  .06 

-  .U4 

-  .02 

.02 

.04 

.06 

.Ob 

.  1 

.12 

•  14 

•  16 

•  lb 

.2 

.22 

.24 

.26 

N 


INTENSITY. 


* 

i 

•t 

* 


WOULD  you  LIKE  TO  THY  ANOTHEK  VALUE  OF  D  (1-YES*  O-NOJ?  0 
UHAT   IS  THE  NEW  WAVELENGTH   ( W)    IN  ANGSTHOMS?  3000 


82 


Copyright  1971,  Polytechnic  Institute  of  Brooklyn 


ERIC 


Physics 
SLITS 


2  METExiS 


W  s   3000  ANGSTfiOMS 


D  =    .5  MILLIMETEH^a 


DISTANCE 

CMM'S  FROM 

•  26 

•  24 

•  22 

•  2  • 

•lb  *cir 

•  16  •^"^^ 

•  14 

•  12 

•  1 

•  Ob        •  ^ 

•  06       *  • 

•  04        •^  ' 

•  02 

•  02 

•  04 

•  06 

•  Ob 
.  1 
.12 
.14 
.16 

.lb 

.2 
»22 
»24 
»26 


VOULD  YOU  LIKE  TO  TRY  ANOTHER  VALUE  OF  W  Cl-YES^  O-NO)?  1 
VHAT   IS  THE  NEW  WAVELENGTH  C  V)    IN  ANGSTROMS?  15000 
A  WAVELENGTH  OF     15000      IS  INFRARED  LIGHT  AND  NOT  VISIBLE, 
THE  INTERFERENCE  PATTERN  WILL  BE  VISIBLE  USING  DETECTORS 
ONLY^      TRY  ANOTHER  WAVELENGTH • 

WHAT   IS  THE  NEW  WAVELENGTH   CW)    IN  ANGSTROMS?  6900 
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D       .5  MIl-LIMETERS 


DISTANCE  CMM' 

s  fkom 

-  .26 

• 

-  .24 

• 

-  .22 

* 

.  -.2 

-.lb 
-.16 

.* 

-.M 
-.12 

-.1 

-  .ub 

• 

-  .06 

• 

-  .04 

-.02 

.02 

.04 

.0  6 

.06 

.1 

.12 

.14 

** 

.16 

.lb 

.22 

.24 

.26 

ilWTENSITY  * 


WOULD  YOU  LIKE  TO  THY  ANOTHEH  VALVE  OF  W  Cl-YES^   0-NO)?  0 

WHAT   IS  THE  NEW  DISTANCE  FHOM  SLITS  TO  SCKEEN   CD    IN  WETEHS7  5 
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L  =  5  METEHb 


W  =   6UU0  ANGSTHOMb 


D  =    .5  MILLIMETERS 


DISTANCE  CMM'S 
-.26 

-.22 

-.2 

-.lb 

-.16 

-.1/1 

-.12 

-.1 

-.Ub 

-  .u  6 

-  .0/1 
-.02 


.02 

•  0/1 
»06 

•  Ob 
.  1 
.12 

•  M 

•  16 

•  lb 
.2 
»22 
»2/l 
>26 


KOM  CEiNiTER) 


V 


\ 


V 


.  INTENSITY. 


WOULD  YOU  LIKE  TO  TRY  ANOTHEH  VALUE  OF  L  Cl-YES^   0-NO)?  0 

iliiliiliiliif. 


YOU   WILL  NOW  BE  GIVEN  A  LIGHT  SOURCE  OF  UNKNOWN 

UAVELENGTH.      YOU  WILL  SPECIFY  THE  SLIT  SEPARATION  CD)^ 

AND  THE  DISTANCE  FROM  SLITS  TO  SCREEN  CD. 

WHAT   IS  THE  NEW  SLIT  SEPARATION   CD)    IN  MILLIMETERS?  .5 

UHAT   IS  THE  NEW  DISTANCE  FROM  SLITS  TO  SCREEN  CD    IN  METERS?  3000 

ALTHOUGH  ANY  DISTANCE  LARGER  THAN     5.000000E-3  METERS 

IS  VALID,  ABOVE  5  METERS  BECOMES  HARD  TO  SEE.     TRY  ANOTHER  VALUE. 

VHAT   IS  THE  NEW  DISTANCE  FROM  SLITS  TO  SCREEN   CD    IN  METERS?  4 
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L  =  4  METERS  W  =  ?  AwGSTHOMS 
DISTANCE   (WW'S  FrtOK  CENTEK) 


D  =    .5  wILLIMET^xiS 


-  .26 

f 

_     .->  y, 

1 

-  .  i  o 

-  •  i  o 

• 

-  .  i  ** 

• 

.     1  o 
—  .  i 

• 

-  .  i 

* 

^  •{JO 

* 

-  .06 

• 

-  .04 

• 

-  .Uc 

• 

.0^ 

.04 

.06 

.Ob 

.  1 

.1^ 

.  14 

•  16 

.18 

.2 

.22 

.24 

.26 

\ 


•INTENSITY. 


WDULD  YOU  LIKE  A  PLOT  FOR  OTHER  VALUES  OF  D  AND  L  C  l-^yES*  0-NQ)?  0 

WHAT  DO  YOU  THINK  THE  UNKNOWN  WAVELENGTH   ^W)    IS?  6000 

PRETTY  GOOD I      THE   WAVELENGTH  WAS     6000  ANGSTROMS. 

WOULD  YOU  LIKE  TO  TRY  ANOTHER  UNKNOWN  WAVELENGTHCl -YES*  0-NO)?  0 

WOULD  YOU  LIKE  A  PLOT   WITH  YOUR  OWN  VALUEij  FOR  WAVELENGTH 

CW)*    SLIT  SEPARATION   CD)*  AND  DISTANCE  FROM  SLITS  TO 
SCREEN   (L)    (l-YES*   0-NO)?  1 

WHAT   IS  THE  NEW  WAVELENGTH  (W)    IN  ANGSTROMS?  5500 

WHAT   IS  THE  NEW  SLIT  SEPARATION   CD)    IN  MILLIMETERS?  .75 

WHAT   IS  THE  NEW  DISTANCE  FROM  SLITS  TO-SCREEN   (L)    IN  METERS?  3 
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L  =  3  WETEkS 


W  s   5500  ANGSTHOMS 


D  «   .75  MILLIMETERS 


DISTANCE  CMM*S  FROM  CENTEH) 
-.26 
-.24 
-.22 
-.2 
-.16 
-.16 
-.1/4 
-.12 
-.1 
-.Ob 
-.06 

-.02 


.02 

.04 

.06 

.Ob 

.  I 

.12 

.  14 

.16 

.  lb 

.2 

.22 

.24 

.26 


INTENSITY  ?^ 


ANOTHER  ONE  (l-YES^  0-NO) 
?  0 

3ft  3ft  3ft  3ft  3ft  3ft  3fl 

HOPE  YOU  HAD  FUN! 


READY 
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lUO  rtEM  YOUNG'S  DOUBLE  SLIT  EXPErtlMENT 
lUl   HEM  A.C-  CAGGIANO 

102  AEM  REVISED   7/2b/70    CL-  BHAUN^   D.  PESSEL) 

IU3  HEM  IMPOHTANT  VAKIABLES:     L-DISTANCE  BETWEEN  S^ITS+SCrtifENi 
iOA  nEM  W-WA'v/ELENGA'rt;    D-SLIT  SE^^AitA'VlONCGENTeH  TO  CENTSa)  ■ 

105  HEM 

106  HEM  U:      PHI NT  PAHAMETEH  FOH  UNKNOWN  WAVELENGTH 

10  7  LET  U=0  < 
no  PHIiMT  "  "YOUNG'S  DOUBLE  SLIT  EAPEKlMEiMr' 

III  PHINT 

120  xiEM   ILLUSTHATIVE  HUN 

130  LET  L=2 

UO  LET  W=60U0 

150  LET  D=»5 

160  HEM  PLOT  HOUTINE 

170  GOSUB  tt50 

171  PHINT 

IbO  PHINT  "ABOVE   IS  AN   ILLUSTHATIVE  HUN   WITH  PHEyDETEHMiNEU" 
lb  I  PHINT  "VALUES  FOH  WAVELENGTH  CW)*   DISTANCE  BETWEEN  SLITS" 
lb2  PHINT  "AND  SCHEEN   CL)^   AND  SLIT  SEPAiiATIQN  -  CENTEH  TO" 
lb3  PRINT  "CENTER  CD).     NOW  YOU  MAY  VARY  TnESE  PARAMETEHS*" 
lb4  PHINT  "ONE  AT  A  TIME." 
Ib6  PHINT 
lb7  PHINT 
Ibb  PHINT 

190  HEM  D   INPUT  SUBnOUTINE 

200   GOSUB  920 

210  HEM  PLOT  ROUTINE 

220  GOSUB  b50 

221  PHINT 

230  PHINT  "WOULD  YOU  LIKE  TO  TRY  ANOTHER  VALUE  OF  D   Cl-^ES^  0-NO)"i 

2/tO    INPUT  Ul 

250    IF  Ql>0   THEN  190 

260  PHINT 

261  PRINT 

262  PRINT 

270   REM  RESET  D 
2b0  LET  D=*5 

290   REM  W  INPUT  SUBROUTINE 

300   GOSUB  942 

310  REM  PLOT  SUBROUTINE 

320  GOSUB  b50 

321  PRINT 

330  PHINT  "WOULD  YOU  LIKE  TO  ThY  ANOTHER  VALUE  OF   W  C l-YES^  U-NO)"; 

340    INPUT  U2 

350    IF  U2>0   THEN  290 

360  PRINT 
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361  PrtINT 

362  PHI NT 

^  370  HEM  RESET  W 
360  LET  W«6000 
390   REM  L  INPUT  SOBHOUTINE 
400   GOSOB  900 
410  HEM  PLOT  SUBROUTINE 

420  GOSUB  650 

421  PRINT 

430  PRINT  "WOULD  YOU  LIKE  TO  TRY  ANOTHER  VALUE  OF  L   (1-YES,  0-NO)' 

440    INPUT  a3 

450    IF  U3>0   THEN  3^0 

460  PRINT 

461  PRINT 

462  PRINT 

470  REM  RESET  L 
4b0   LET  L=2 

4^0  PRINT  "YOU  WILL  NOW  BE  GIVEN  A  LIGHT  SOURCE  OF  UNKNOWN" 

491  PRINT  "WAVELENGTH.      YOU  WILL  SPECIFY  THE  SLIT   SEPARATION  CD)^" 

492  PRINT  "AND  THE  DISTANCE  FROM  SLITS  TO  SCREEN  (L)." 
50  7  REM  a5  DETERMINES  IF   W  IS  TO  BE  CHANGED 

50b  LET  U5=0 

520  REM  D  INPUT  SUBROUTINE 
530   GOSUB  920 

550  REM  L  INPUT  SUBROUTINE 
560   GOSUB  900 

565  REM  CHANGE  W? 

566  IF  U5>0   THEN  600 

570   REM  RANDOMLY  DETERMINE  WAVELENGTH 
5bO  RANDOMI^IE 

590  LET  W=1000*lN'f C3*RiMDCX)+44*5) 

600  REM  PLOT  SUBROUTINE   (UNKNOWN  W) 

601  LET  U-1 

605  GOSUB  b50 

606  PRINT 

610  PRINT  "WOULD  YOU  LIKE  A  PLOT  FOR  OTHER  VALUES  '  OF  D  AND  L  "; 

611  PRINT  "(1-YES*  0-NO)"; 
620   INPUT  Q5 

630    IF  U5>0   THEN  520 

640  PRINT  "WHAT  DO  YOU  THINK  THE  UNKNOWN  WAVELENGTH   ( W)  IS"; 
650   INPUT  Wl 

660   IF  ABSC  W1-W)<.1*W  THEN  '700 

670  PRINT  "YOU  ARE  MORE  THEN   10%  OFF*      TO  HELP  YOU^   YOU  MAY  "; 
6bO  PRINT  "OBTAIN  MORE  PLOTS*" 
690   GO  TO  610 

700  PRINT  "PRETTY  GOOD!      THE  WAVELENGTH  WAS  "W"  ANGSTROMS." 

7Ji  PRINT  "WOULD  YOU  LIKE  TO  TRY  ANOTHER  UNKNOWN  WAVELENGTH"; 

702  PRINT  "(1-YES^  0-NO)"; 

70  3   INPUT  U6 

704   IF  U6<1   THEN  967 

•?05  PRINT  "YOU  MAY  SPECIFY  A  NEW  SLIT  SEPARATION   CD)  AND  DISTANCE" 
7U6  PRINT  "FROM  SLITS  TO  SCREEN  (L)." 
70  7  GO  TO  50b 
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ii£M 

bSO  HEM  PLOT  rtOUflNE 
b55  PHI  NT 
656  PHINT 

b57  HEM  U>U   DO  NOT  PHINT  WAVELENGTH 
b5b   IF  U>0   THEN  b7l) 

660  PHINT  "L  ="L"METEHS  W  ="  WANGS I'HOWS         D  K"D"WiLLf  IMETEHS" 

b61  PHINT 
b65  GO  TO  b75 

b70  PHINT  "L  ="L"METEHS  W  =   ?  ANGSTHOMS         D  ="D"WX LLIMETEHS" 

tt71  PHINT 

b75  PHINT  "DISTANCE   Cm'S  FuOM  CEfyirgH)" 

bbO  HEM  A:PL0T  LOWEH  limit   CMM'S);   B:UPPEH  limit  <MM'S) 
bbl   LET  A=-.26 
bb2  LET  B=.26 

bb3  HEM  H:PHELIMINAH^  CALC.   FOH  intensity;    lUE4;CONVEHSiON  FACTOH 
6b4  LET  H«(3. M16*D*10E4)/C W*L) 

bbS  HEM  LOOP   TO  CALCULATE  PATTEHN  AND  PLOT  IT 
bb6  FOH  A=A  TO  B  STEP  .02 
bb7  HEM  Y: INTENSITY 

obb  HEM  20:  SCALE  FACTOH  rOH  PLOTi   AlUIS'fANCE  CMM'S) 
bby  LET  Y«2U*C0S(H*X)*C0S<H*X) 

690  IF  ABSCXX.OOOl    THEN  693 

691  PHINT  TAB(B);  INTCA*100  +  .5)/lU0;TAb<  15);    ".";   TA^C  y+ 1 5  »  5  )  )  ; 

692  GO  TO  695  ' 

693  PHINT  "  0.  ...  INTENSITY  

695  NEXT  X 

696  LET  U=0 
69  7  PRINT 
696  HETUHN 

899  HEM 

900  REM  L  INPUT  SUBROUTINE 

902  PkINT  "WHAT   IS  THE  NEW  DISTANCE  FROM  SLITS  TO  SCREEN  <L)  "; 

903  PHINT  "IN  METERS"; 
90A   INPUT  L 

905  HEM   1000:      CONVERT  L(METERS)   TO  L(MILLIMETERS) 

906  IF   1000*L>=   10*D  THEN  912 

90  7  PHINT  "THIS  DISTANCE   IS  TOO   SMALL  FOH  GOOD   INTERFERENCE  PATTERNS. 

906  PHIN;'  "TRY  ANOTHER  VALUE." 

910   GO  TO  902 

yi2   IF  L<=5  THEN  916 

913  PHINT  "ALTHOUGH  ANY  DISTANCE  LARGER  THAN  "10*D/1000"  METERS" 

914  PHINT  "IS  VALID*   ABOVE  5  METERS  BECOMES  HARD  TO  SEE*"; 

915  PHINT  "     THY  ANOTHER  VALUE." 

916  GO  TO  902 
916  RETURN 

919  REM 

920  REM  D   INPUT  SUBROUTINE 

922  PHINT  "WHAT   IS  THE  NEW  SLIT  SEPARATION   (D)    IN  MILI^lMETERS"; 

924   INPUT  D 

926   IF  D>=.1    THEN  932 

926  PRINT  "SLITS  ARE   SO  CLOSE  THEi  APPHOXlflATE  A  SINGLE  SLIT." 
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b*29  PRINT  "TRY  ANOTHEK  VALUE." 
930   GO  TO  920 

932  IF  D<=#l*lOOO*L  THEN  9^0 

933  PHINT  "FOR  A  VALID  INTEHFEHENCE  PATTERN^   THE  SLIT  SEPARATION" 
93^  PRINT  "SHOULD  BE  LESS  THAN  ".l*lOuO*L"  MILLIMETERS*  TRY"; 
935  PRINT  "  ANOTHER  VALUE." 

938   GO  TO  920 
9^0  RETURN 

941  REM 

942  REM  W  INPUT  SUBROUTINE 

944  PRINT  "WHAT   IS  THE  NEW  WAVELENGTH   ( W)    IN  ANGSTROMS"; 

946  INPUT  W 

947  IF   W>=300   THEN  954 

948  IF   W<1000   THEN  959 

949  PRINT  "A  WAVELENGTH  OF  " W   IS  ULTRAVIOLET  LIGHT  AND  NOT  VISIBLE. 

950  GO  TO  956 
952   GO  TO  944 

954  IF   W<=8000   THEN  965 

955  PRINT  "A  WAVELENGTH  OF  "W   IS   INFRARED  LIGHT  AND  NOT  VISIBLE." 

956  PRINT  "THE   INTERFERENCE  PATTERN  WILL  BE  VISIBLE  USING  DETECTORS" 

957  PRINT  "ONLY.      TRY  ANOTHER  WAVELENGTH." 

958  GO  TO  944 

^59  PRINT  "A  WAVELENGTH  OF  "W"   IS  X-RAYS  AND  NOT  VISIBLE." 
960   GO  TO  956 

965  RETURN 

966  REM 
967.  PRINT 

968  PRINT 

969  PRINT 

970  REM  MISCELLANEOUS  RUNS 

972  PRINT  "WOULD  YOU  LIKE  A  PLOT  WITH  YOUR  OWN  VALUES  FOR  WAVELENGTH' 

973  PRINT  "    (W)>   SLIT  SEPARATION   CD)*   AND  DISTANCE  FROM  SLITS  TO" 

974  PRINT  "SCREEN   CD    C I -YES*  0-NO)"; 
9  76   INPUT  Q9 

980   IF  Q9<1    THEN  995 
982   GOSUB  942 
984   GOSUB  920 
986  GOSUB  900 
988   GOSUB  850, 

990  PRINT  "ANOTHER  ONE   C l-YES*  0-NO)" 

992  INPUT  Q8 

993  IF  Q8>0   THEN  982 

994  REM 

995  PRINT 

996  PRINT 

997  PRINT 

998  PRINT  "HOPE  YOU  HAD  FUN!" 

999  END 

READY 
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DISCIPLINE  PHYSICS 


SUBJECT  SNELrLr*  S  LAW 


PROGRAM  NAME  SNELL 


DESCRIPTION; 

Snell'  s  law  is  presented  pictorially  by  plotting  the  path  of  a  light  ray 
as  it  crosses  a  boundary  separating  two  different  media. 

OBJECTIVES: 

To  permit  students  to  *'see"  the  refraction  of  light,  including  the  case 
when  the  critical  angle  is  exceeded  and  reflection  occurs. 

PRELIMINARY  PREPARATION; 

A.  Student  -  The  terms  associated  with  Snell' s  law,  such  a9  refraction,  media, 
normals ,  etc.  ;  must  be  presented  prior  to  the  running  of  this  program. 

B.  Materials  -  No  additional  supplies  or  materials  are  neceflsary. 
DISCUSSION; 

Snell' s  law  can  be  investigated  independently  by  students  by  altering  the 
angle  of  incidence,  and/  or  the  indices  of  refraction.    The  pictorial  presentation 
is  especially  beneficial  to  students  with  reading  problems,   since  the  concepts 
implied  by  the  mathematical  relationships  are  presented  hueristically. 

In  addition,  the  critical  angle  may  be  approached  and  exceeded,  in  the 
special  case  where       (second  medium)  is  less  than  nj  (initial  medium). 

Queries  are  included  as  part  of  the  program  to  reinforce  the  concepts. 

The  program  is  well  suited  for  small  groups  or  individuals,  but  may  be 
utilized  for  large  group  presentation  without  program  modification. 
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BSTRACTIOM  OF  LlOHT— 

THIS  PROORAM  VIUL  HSLP  YOU  VISUM^IZE  THS  RSrAACTION 
or  LIOHT  AS  IT  CROSSES  A  BOUNDARY  SEPARATINQ  TVO  DiriPftRIlfT 
MKDIA. 

WE  PXA6RAM  BSLOV  SHOVS  LIGHT  INCIOBNT  TO  TWL  BOUNDARY  AT 
45  0S6RUS.     THK  INDICES  Or  RETRACTION  ARE    NI-UO  AND 
mm  I  .  5    RESPECT  I VSLY  • 


♦ 

♦ 

♦ 

♦ 

MEDIUM  l#  Nl«  1 
MEDIUM  2#  N8«  1*5 

•  * 

•  * 

WAT  DO  YOU  THINK  THS  ANGLE  OP  RETRACTION  IS7  30 

YOU  ARE  VI  THIN  10  PERCENT  • 

1HB  ANGLE  or  REPBACTION#  A8«  88*186 

DO  YOU  UAMT  TO  CONTINUE  (|«YES#  0»N0>   I  7  1 

NOV  TOU  CAN  CHANGE  THE  INCIDENT  ANGLE.  THE  REPBACTIVE 
INDICES  VILL  REMAIN  AS    Ni»i;0     AND    N8»i.5  • 


ItU  ONLY  POSITIVE  ANGLES  BETVEEN  0  AMD  90  DEGREES  ARE 
PBMNISSIBLE  ENTRIES* 
S0#  VHAt  ANOJC  DO  YOU  VANT?  60 


*  m 

MEDIUM  i#  nXm  X 
MEDIUM  a#  N8»  U5 

•  0 

m  * 

m  m 

m  0 

•  0 


WAT  DO  YOU  THINK  THE  ANGLE  Of  RETRACTION  IS?  35 

YOU  ARE  VITHIN  10  PERCENT. 

THE  AMGLB  OP  RETRACT  1 0«#  A8»  35.864 
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DO  YOU  UANT  TO  CONTIMUE  Cl«YCS#  0«IIO>   I  7  I 

NOV  SPECIFY  NEV  VALUES  FOR  AND  ANGLE  i< 

SEPAHATE  VITH  COMMAS.     OKAY#  VUAT  VALUES?  a#3.5#l5 
\MLUE  OF  N2  IS  UNREASONABLE. 
YOU  MUST  RE-TYPE  ALL  THREE  NUMBERS. 

OKAY#  WHAT  VALUES?  I*S#S*5#I5 

N 

* 

*  • 

*•  MEDIUM  X,  Ni"  1*5 

.*  MEDIUM         NS"  8.5 

.* 

.* 

.* 

.  * 

WAT  DO  YOU  THINK  THE  ANGLE  OF  REFRACTION  IS?  10 
YOU  ARE  MORE  THAN  10  PERCENT  OFF. 
THE  ANGLE  OF  REFRACTION^  AS-  6*934 

00  YOU  WANT  TO  CONTINUE  (1«YES#  0«N0>  t  ?  1 
SPECIFY  NEV  VALUES  fOR    Nl#  N8#  AND  ANGLE  1* 
SEPARATE  VITH  COMMAS*     01CAY#  WAT  VALUES?  *05«1#4S 
VALUE  OF  Nl   IS  UNREASONABLE* 

YOU  MUST  RE^tYPE  ALL  THREE  NUMBERS* 

OICAY#   VHAT  VALUES?  .85^1 
\MLUB  OF  Nl  IS  UNREASONABLE* 
YOU  MUST  RE*tYPE  ALL  THREE  NUMBERS* 

OICAY#  WAT  VALUES?  *S#1#45 
mum  OF  Nl  IS  UNREASONABLE* 

1  SUMSST  YOU  LEARN  MORS  ABOUT  REFRACTION  SO  YOU  CAN 
BNTSR  MORE  MEANINGFUL  INDICES  AND  ANGLiS. 


READY 
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 KEFHACTION  OF  LIGHT  

THIS  PKOGHAM  WILL  HELP  YOU  VISUALIilE  THE  HEFHACTION 
OF  LIGHT  AS  IT  CROSSES  A  BOUNDAHY  SEPAHATING  TWO  DIFFEHENT 
MEDIA. 

TOE  DIAGHAM  BELOW  SHOWS  LIGhf   INCIDENT  TO   THE  BOUNDARY  AT 
45  DEGREES.     THE  INDICES  OF  REFRACTION  ARE     Nl-l.O  AND 
N2- I . 5     RESPECT I VELY • 


N 


MEDIUM   U   NI»  I 
MEDIUM  2j   N2«  1.5 


WAT  DO  YOU  THINK  THE  ANGLE  OF  REFRACTION  IS?  30 

YOU  ARE   WIT:^IN   10  PERCENT. 

TRS  ANGLE  OF  REFRACTION^  A2«  2b. 126 

DO  TOU  «%NT  TO  CONTINUE  <l-YES>  0»N0)    I   7  I 

m\i  YOU  CAN  CHANGE  THE  INCIDENT  Ai*iGLE.   THE  REFRACTIVE 
INDICES  VILL  REMAIN  AS     Ni«1.0     AND     N2>1.5  • 
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riEMEMBER^   ONLY  POSITIVE  ANGLES  BETWEEN  0  AND  90  OEGHEES  AHE 

PEiiMISSIBLE  ENTKIES* 

SO*    WHAT  ANGLE  DO  YOU  WANT?  60 

N 


MEDIUM   1^   NI»  I 
MEDIUM  2jf   N2»   I  »5 


VHAT  DO  YOU  THINK  THE  ANGLE  OF  REFHACTION  IS?  35 

YOU  AHE   WITHIN   10  PERCENT. 

THE  ANGLE  OF  REFRACTION*   A2=  35.264 

DO  YOU  WANT   TO  CONTINUE   Cl=»YES*  O^NO)    :    7  I 

NOW  SPECIFY  NEW  VALUES  FOR     NU   N2*  AND  ANGLE  1. 
SEPARATE  WITH  COMMAS.     OKAY*    WHAT  VALUES?  2*3.5*15 
VALUE  OF  N2   IS  UNREASONABLE. 
YOU  MUST  HE-TYPE  ALL  THREE  NUMBERS. 

OKAY*    WHAT   VALUES?  1.5*2.5*15 

N 


MEDIUM  1*  Nl»  1.5 
MEDIUM  2*   N2«  2.5 
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WAT  DO  YOU  THINK  THE  ANGLE  OF  AEFHACTION  IS?  9 

YOU  ARE  WITHIN  10  PERCENT* 

THE  ANGLE  OF  REFRACTION^  A2«  8*934 

DO  YOU  WANT  TO  CONTINUE   (l-YES^   0°N0)    S    7  1 
SPECIFY  NEW  VALUES  FOR     NW   N2^  AND  ANGLE  1* 
SEPARATE  VI TH  COMMAS*     OKAY#    WHAT  VALUES?  2#1#75 

N 


MEDIUM   1#   Nl»  2 


MEDIUM  2^   N2»  1 
YOU  WENT  PAST  THE  CRITICAL  ANGLE* 

VHAT  DO   YOU  THINK  THE  ANGLE  OF  REFLECTION  IS?  75 
THAT'S  RIGHTS   THE  ANGLE  OF  REFLECTION  IS   75  DEGREES < 


DO  YOU  WANT   TO  CONTINUE   (1«YES^   O^NO)    S    ?  0 


READY 
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100  R£H    BICHARD  F.  PAV        PATCHOQUE  H*S*  0CT.*66. 

110  RXM    THIS  PROQAAM  IS  DESIGNED  TO  HELP  A  STUDENT  VISUALIZE 

180  REM     SWELL'S  LAV. 

130  REM     REVISED  BY  CLOSIK  6-25-70 

140  REM    A  AND  Al  ARE  ANGLES#  Ni  AND  N3  INDICES  OF  REFRACTION 

160  PRINT   REFRACTION  OF  LIGHT  

170  PRINT 

160  PRINT  **  THIS  PROGRAM  VI LL  HELP  YOU  VISUALIZE  THE  REFRACTION** 

190  PRINT  **0F  LIGHT  AS  IT  CROSSES  A  BOUNDARY  SEPARATING  TWO  DIFFERENT** 
aOO  PRINT  **MEDIA.*' 
810  PRINT 

880  PRINT  -THE  DIAGRAM  BELOV  SHOVS  LIGHT  INCIDENT  TO  THE  BOUNDARY  AT'* 

830  PRINT  **45  DEGREES.     THE  INDICES  OF  REFRACTION  ARE     Nl«i.0  AND** 

840  PRINT  **N8«1.5  RESPECTIVELY;** 

850  PRINT 

860  LET  Nl«l 

870  LET  N2-1.5 

880  LET  A-45 

890  GOSUB  880 

300  PRINT 

310  PRINT  **  NOV  YOU  CAN  CHANGE  THE  INCIDENT  ANGLE.  THE  REFRACTIVE** 

380  PRINT  **INDICES  VILL  REMAIN  AS     Nl«i  .0     AND     N8«i.5  •** 
330  PRINT 

340  PRINT  **REMEMBER#  ONLY  POSITIVE  ANGLES  BET  VEEN  0  AND  90  DEGREES  ARE** 

350  PRINT  **PERMISSIBL£  ENTRIES;** 

360  PRINT'^SO^   WHAT  ANGLE  DO  YOU  VANT**i 

370  INPUT  Al 

360  LET  A"  A I 

390  IF  A<90  THEN  490 

400  Let  A-60 

410  GOSUB  880 

480  GO  TO  580 

430  PRINT 

440PRINT**Y0UR  VALUE  FOR  THE  INCIDENT  ANGLE  C**JAii*"DEaREES)  DIDN'T  MAKE*' 

450  PRINT  -SENSE  SO  I  AUTOMATICALLY  MADE  IT  60  DEGREES.** 

460  PRINT 

470  LET  AI-60 

480  80  TO  1580 

480  IF  A<0  THEN  400 

510  GO  SUB  880 

S80  PRINT 

S30  PRINT  **  NOV  **J 

540  PRINT  **5PECIFY  NEV  VALUES  FOR     Ni#  N8#  AND  ANGLE  1.** 
550  PRINT  ** SEPARATE  VI TH  COMMAS.  **J 
570  PRINT  **  01CAY#  WIAT  VALUES**! 
580  INPUT  NI#N8#A 
990  IF  Nl<«3  THEM  630 

610  PRINT  *VALUE  OF  Ni  IS  UNREASONABLE.** 

680  GOTO  640 

630  IF  NKI  THEN  610 

640  IF  N8<«3  THEN  670 

650  PRINT  **VAXaiE  OF  NS  IS  UNREASONABLE.** 

660  GOTO  6iO 

670  IF  N8<i  THEN  650 

»0  IF  A<90  THEN  710 

690  PRINT  **^M.UE  OF  ANGLE  1   IS  UNREASONABLE.** 

TOO  GOTO  7B0 

710  IF  A<0  THEN  690 

780  IF  Ml>3  THEN  780 

730  IF  Ni<l  THEN  780 

740  IF  Na>3  THEN  780 

750  IF  N8<1  THEN  780 

76d  MOBIM  BftO 

770  GOTO  540 

780  LET  BmB*X 

765  IF  B»3  THEM  1730 

790  PRINT  **YOU  NUST  RE*TYPE  ALL  THREE  NUMBERS.** 
aOO  PRINT 

610    ^  TO  570         O  . 

'  >  { !) 
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830  PRIMT  ^^^^ 
MO  PRINT 

6S0  LET  C«(NI/N8>*SXNCA«U74!I33K*8> 

840  Zr  C>«l  tHSN'1300 

870  OOSUB  1580 

880  FOR  YmB  TO  I  ST8P  -I 

890  LIT  X«8«Y«((SXN(A«U74$33I-a>>/(C0S(A«l*74333S*8)>> 

900  IF  X>16  TH£M  960 

9X0  PRINT  TAB(l6*X>i**«~i 

950  OOtO  970 

960  LIT  X"I6 

970  PRINT  TAB(|6>i~*** 

1010  NEXT  Y 

lOaO  PRINT  **  0.  MEDIUM  U  N1-*^INI 

1030  PRINT  "  ♦  .  1 

1040  PRINT  .0  MEDIUM  8#  N8""iN2 

1050  POR  Ymi  TO  8  STEP  I 

i060  LET  X«8*Y«C/SQR(I-C*C> 

1070  PRINT  TAB(l6>J~***i 

1110  IP  X»40  THEN  1160 

liao  PRINT  TAB<17^X>i~***i 

1160  PRINT  ••  " 

1170  NEXT  Y 

1180  PRINT 

1190  60SUB  1560 

1800  PRINT  "THE  ANOLE  OF  REPBACTION#  A8«~iA8 

1810  PRINT 

181 1  PRINT  **D0  YOU  UANT  TO  CONTINUE  (  1"YES#  0«N0>   t  **i 
1818  INPUT  J 

1813  IP  J-0  THEN  1750 

1814  IF  Jol  THEN  1810 
11880  RETURN 

1830  PRINT  **  «•«  MEDIUM  1#  N1"**N1 

1840  PRINT  "  ♦  " 

1850  PRINT  MEDIUM  8#  N8"'*iH8 

1860  PRINT  "YOU  VENT  PAST  THE  CRITICAL  ANQL£«" 
1870  OOSUB  1650 

1880  PRINT  "THE  AN8LE  OF  REFLECTION  I S"iAi "DEGREES*" 
1890  BOtO  1810 
^  1300  FOR  Y«8  TO  1  STEP  *1 
1310  LET  Xii8«Y*(<SlNCA*l*74533E*8>>/(C0S(A*l«74533E*8>>> 
1380  LET  X8-X 
1330  IF  X»16  THEM  1390 
1340  PRINT  TABC16*X>i"*"i 
1380  80T0  1400 
1390  LET  X-16 
1400  PRINT  TABCl6>i"*"i 
1440  IF  X8»40  THEN  1490 
1450  PRINT  TABCl7^X8>i"«"i 
1490  PRiMT  "  • 
ISOO  NEXT  Y 
IS  10  WTO  1830 
1S80  LET  F*C/SQRCI*C*C> 
1530  LIT  C«ATNCF> 

1540  LIT  Ai«INTClOOO*<8/l*7453;»S»8>^«5>/1000 

1550  RITU8H  ' 

1560  IF  Al»«90  THIN  430 

1570  IF  A1<0  THIN  430 

1580  PRINT  "VHAT  DO  YOU  THINK  THI  AN8LE  OF  REFRACTION  I5"i 
1590  INPUT  A3 

1600  IF  ABSCA8*A3>»*1«A8  THIN  1630 

1610  PRIHt  "YOU  ARI  VITMIN  10  PnCUIT." 

1680  iOtO  1640 

1630  PRINT  "YOU  An  MORI  THAN  10  PIRCINT  OFF*" 
1640  tttURN' 
1650  PRIHT 

1660  PRIMT  "WAT  M  YOU  THINK  THE  AM8LI  OF  RIFLICTION  IS"i 

1670  INPUT  A4 

1680  IF  A4<>A  THIN  1710 

1690  PRIHT  "THAT'S  RI8MT#  "i 

1700  OOTO  1780  ' 

1710  PRINT  "YOU  HAD  SKTTIR  STUDY  THI  LAVS  OF  RIFLICTION*" 
1788  RRtURN' 

1730  PRIHT  "I  SUOHUT  YOU  LSARH  HMI  A80UT  RIF8ACTI0H  SO  YOU  CAN" 
1740  PRIHT  "tHTn  MR!  HIAHIH8FUL  IHDICIS  AHD  AHtLlS*" 

1750  IHD 
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DISC  - PLINE     PHYSIC  S  

SUB  J  EC  T      ORBITAL,  MOTION 
PROGRAM  NAME  SPACE 
AVa  EXECUTION  TIME  3  min> 

DESCRIPTION: 

The  effects  of  speed  on  orbital  motion  can  be  demonstrated  by 
incrementally  altering  the  tangential  velocity  of  an  orbitting  spa9ecraft. 
Limiting  cases  are  included,   i.  e.  exceeding  the  escape  velocity  and/or 
crashing  into  the  earth, 

OBJECTIVES: 

To  demonstrate  the  effects  of  speed  on  orbital  motion. 

PRELIMINARY  PREPARATION: 

A.  Student  -  Student  should  be  familiar  with  circular  motion,  central 
forces,  and  have  some  knowledge  of  conic  sections. 

B.  Materials  -  None 


DISCUSSION: 

Orbital  motion  is  described  in  terms  of  the  eccentricity  (E)  of 
the  orbit  .  the  period  (T),  and  the  maximum  and  minimum  tangential 
velocities.    The  student  selects  the  initial  apogee  and  perigee  (in  miles) 
to  define  the  orbit. 

After  describing  the  initial  orbit  the  limiting  changes  required  to 
produce  circular  and  parabolic  orbits  are  given,  as  well  as  the  changes 
required  to  produce  an  orbit  that  will  be  tangent  to  the  earth*  s  surface. 

The  speed  at  the  apogee  and  perigee  is  given  and  the  student  may 
alter  either  of  these  values  (+  or  -)  incrementally.    The  new  orbit  will 
again  be  described  in  terms  of  E,  T,  and  the  velocities. 
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SPACECRAPT  ORBITS 


WAT  IS  THE  MINIMUM  AND  MAXIMUM  ALTITUDE  OF  THE  SPACECBATT 
ABOVE  THE  SURTACE  OF  THE  EARTH  IN  MILES?  i50#d30 

THE  ECCENTRICITY  OP  THE  ORBIT  IS  9«640677£-3 

1HE  VELOCITY  AT  THE  PERIQEE  IS     &S593.36  FEET/SECOND* 

1HE  VELOCITY  AT  THE  AP06EE  IS     85104.58  PEET/SECOND. 

TOE  PERIOD  OP  THE  ORBIT  IS    90*50486  MINUTES* 

ADDING  A  VELOCITY  INCREMENT  TO  THE  PERIGEE 
or     10487 •89    PT/StC  VOULD  RESULT  IN  A 

PARABOLIC  ORBIT—  CAUSING  THE  SPACtCBAPT  TO  PLY  OPP  INTO  SPACE. 

A  CHANGE  OP  -188*4863    PT/SEC  VOULD  PRODUCE  A 
CIRCULAR  ORBIT.  HOVEVER#  A  VELOCITY  INCREMENT 
or  -360.3736     PT/SEC  VOULD  PRODUCE  AN  ORBIT 
TOAT  VOULD  BE  TANGENT  TO  THE  EARtH^S  SURPACE. 

ADDING  A  VELOCITY  INCREMENT  TO  THE  APOGEE 
or     10571.05    PT/SfiC  VOULD  RESULT  IN  A 

PARABOLIC  ORBIT--  CAUSING  THE  SPACtCRAPT  TO  PLY  OFF  INTO  SPACE. 

A  CHANGE  OP     181.8978    PT/SEC  VOULD  PRODUCE  A 
CIRCULAR  ORBIT.  HOVEVER#  A  VELOCITY  INCREMENT 
or  -836*6951     PT/SEC  VOULD  PRODUCE  Afl  ORBIT 
THAT  VOULD  BE  TANGENT  TO  THE  EARTH SURPACE. 


DO  YOU  VAMT  TO  ADD  A  VELOCITY  INCR^mjIl  AT  THE 
PERIGEECTYPE  1 )  OR  AT  THE  APOOEECTYPE  8)     7  1 

WAT  VELOCITY  INCREMENT  IS  TO  BE  ADDED?  -850 

THE  NEV  ORBIT  IS  ELLIPTICAL 
VI TH  AN  ECCENTRICITY  OP  9.987444S-3 

WE  POINT  VUERt  THE  VELOCITY  INCREMENT  VAS  ADDED 

OORRESPOilDS  TO  THE  APOGEE* OP  THE  NEV  ORBIT 

THE  PERIGEE  OP  THE  NEV  ORBIT  IN  MILES  IS  68.73486 

THE  VELOCITY  AT  THE  PERIGEE  IS    85854.69  PT/SEC. 

WE  PERIOD  OP  THE  NEV  ORBIT  IS     87*8788  MINUTES. 

BASED  ON  YOUR  ORIGINAL  ALTITUDES  OP     150    AMD    830  MILES 
VDULO  YOU  LIKE  TO  TRY  DIFFERENT  VELOCITY  IMCREMSMTS 
(1*YBS#  O-HO)?  0 

WULD  YOU  LIKE  TO  RUN  THE  PROGRAM  AGAIN  (1-YES#  0-NO)?  0 


READY 
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100  REM  SPACECIiAFT  ORBITS#  M«  V1SICH#   JR«#  18/09/66 

10 1  RXM  aSVISEO  a/85/70     <0«  PESSEL) 
120  DIM  V<2)#R(8) 

130  HEH  THIS  PROQAAM  CAN  BE  USED  TO  DETERMINE  THE  EFFECT  OF 

140  REM  ADDING  A  VELOCITY  INCREMENT  TO  A  SPACECRAFT  INITIAiXY  IN 

150  REM  AN  ELLIPTIC  ORBIT  AROUND  THE  EARTH*  VELOCITY  INCREMENTS 

160  REM  CAN  ONLY  BE  ADDED  AT  THE  APOOEE  OR  PERIGEE  OF  THE  INITIAL  ORBIT 

170  REM  AND  ONLY  IN  A  DIRECTION  TANGENT  TO  THE  INITIAL  ORBIT. 

171  LET  Q5-0 

173  LET  Y-1.40753E16 

175  PRINT  TAB (aO)i** SPACECRAFT  ORBITS** 

176  PRINT 

160  PRINT  "VHAT  15  THE  MINIMUM  AND  MAXIMUM  ALTITUDE  OF  THE  SPACECRAFT** 
190  PRINT** ABOVE  THE  SURFACE  OF  THE  EARTH  IN  MIL£S**i 
800  INPUT  H1#H2 

805  IF  H1>0  THEN  808 

806  PRINT  **BOTH  ALTITUDES  MUST  BE  POSITIVE  I** 

807  60  TO  160 

806  IF  H2>0  THEN  810 

809  60  TO  206 

210  PRINT 

880  GOSUB  960 

885  IF  Q5>0  THEN  30  7 

830  PRINT**TH£  ECCENTRICITY  OF  THE  ORBIT  IS**  E 
840  PRINT 

850  PRINT**TH£  VELOCITY  AT  THE  PERIGEE  IS  **V1**  FEET/SECOND*'* 
870  PRINT 

860  PRINT**TH£  VELOCITY  AT  THE  APOGEE  IS  "VS**  FEET/SEC0NO«** 
300  PRINT 

304  PRINT**TH£  PERIOD  OF  THE  ORBIT  IS  **T'*  MINUTES*** 

X5  PRINT 

307  LET  VC1)-V1 

306  LET  Vca>-V8 

309  LET  RC1>-R1 

310  LET  RC8)-R8 

311  IF  Q5>0  THEN  334 

318  LET  VC8>-V8 

313  LET  RCO-Rl 

314  LET  RC8>-R8 

315  FOR  J«l  TO  8 

316  PRINT^AODINa  A  VELOCITY  INCREMENT  TO  THE  "J 

317  IF  J-1  THEN  380 
316  PRIHr'APOGSE" 

319  60T0381 

380  PRIirr*PBRI0ES-' 

381  PRINTTOF  "SQRCS^Y/RC J)>-VC J)**  FT/SEC  VQULD  RESULT  IN  A** 

388  PRlirr*PAAAaOLIC  ORBIT--  CAUSING  THE  SPACECRAFT  TO  I^LY  OFF  INTO  SPACE 

383  PRINT 

384  PRINT^A  CHANGE  OF  "SORC  Y/R(  J)  )-V(U>**  FT/SEC  VOULO  PRODUCE  A*" 

385  PRINT^CIRCULAR  ORBIT.  H08SVER#  A  VELOCITY  INCREMENT  ** 
387  LET  R-5860«3959 

319  LXT  E8-CR-RCU))/CR^R( J)> 

330  Pailir*OF  ''SQRCT«C1^E8)/R(U)>-V(U)**  FT/SEC  VOOLD  PRODUCE  AN  ORBIT**. 

331  Pailir*TNAT  VOULO  BE  TAN€Eirr  TO  THE  EARTH'S  SURFACE*" 
338  PRINT 

333  mUT  W 

334  PRINT 

340  PRlNr*DO  YOU  HMTT  TO  ADD  A  VELOCITY  INCREMENT  AT  THE" 
390  PRlffr*PBRI GEE C TYPE  1 )  OR  AT  THE  APOQtE(TYPE  8)*# 
360  INPUT  N 
370  PRINT 

360  IF  (N-l)«<N-8)»0  THEN  480 
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SPACE 


400  PaillT'*YOU  WBRt  TO  PICK  SITHSR  1  OR  8-TaY  AOAIir 
410  SO  TO  340 

4a0  PRIIIT^WHAT  VELOCITY  INCBBMIIIT  IS  TO  BI  AODftD~l 

440  IIVUT  V3 

4S0  PRINT 

460  GOSUB  1050 

470  PRIirr^TUE  NSV  ORBIT  IS 

400  IP  Si-0  THEN08O 

490  Ir  Ci«i  THEM  900 

SOO  IP  Ci»l  THEN  930 

905  PRINT^SLLIPTICAL 

910  PRINT**  VI TH  AN  ECCENTRICITY  Or**EI 
S80  PRINT 

530  IP  V9>i  THEN  600 
540  IP  H3<0  THEN  660 

550  PRINT**TUE  POINT  VHSRE  THE  VELOCITY  INCREMENT  mS  ADDED** 
560  PRINT**C0RRESP0NDS  TO  THE  AP06EE  OP  THE  NEV  ORBIT** 
570  PRINT  **THE  PERIGEE  OP  THE  NEV  ORBIT  IN  MILES  IS**H3 
500  PRINT 

590  PRINT**  THE  VELOCITY  AT  THE  PERIQEE  IS  **V1**  PT/SEC«** 
600  PRINT 
610  LET  R8"R3 
680  QOSUB  1010 

640  PRINT**THE  PERIOD  OF  THE  NEV  ORBIT  IS  **T**  MINUTES*"* 
650  GO  TO  1830 

660  PRINT** YOU  CRASHED  INTO  THE  EARTH** 
670  GO  TO  1830 

600  PRINT**THS  POINT  VHERE  THE  VELOCITY  INCREMENT  VAS  ADDED** 
690  PRINT**C0RRSSP0NDS  TO  THE  PERlQEt  OF  THE  NEV  ORBIT** 
TOO  PRINT 

710  PRlNr*THE  APOGEE  OF  THE  NEV  ORBIT  15  **H4**  MILES«** 
780  PRINT 

730  PRINT**THE  VELOCITY  AT  THE  APOGEE  IS  **V8**  PT/SEC«** 
740  PRINT 
750  LET  R8-R4 
760  GOSUB  1010 

700  PRINT**tHE  PERIOD  OF  THE  NEV  ORBIT  IS  •*T**  MINUTES*** 

790  PRINT 

000  GOTO  1830 

000  PRINT'*CIHCULAR«~ 

090  GOTO  1830 

900  PRIMT**PARAB0LIC#  ** 

910  PRINT  **VITH  Afi  ECCENTRICITY  0P'*E1 

980  GO  TO  1830 

930  PRINT**HYPBRB0LIC#  ** 

940  PRINT  **VITH  AN  ECCENTRICITY  0P**E1 

950  00  TO  1830 

960  LET  R1-(H1O959)*580O 

970  LET  R8«(H8^3959>«580O 

900  LET  E«(B8*R1>/(R1^R8) 

990  LET  Vl-SQH(Y*(l^e)/Rl) 

1000  LET  V8«V1«R1/E8 

1010  LET  A-CRlfR8>/8 

1080  LET  P"39*4794iA«A«A/Y 

1030  LET  T"SQR(P)/60 

1040  RETURN 

1050  IP  N*l  THEN  1000 

1060  LET  VI -VA 

1070  LET  Rl«Rt 

1000  LET  V5«V1^V3 

1090  LET  V7«S8R(Y/R1) 

1100  LET  V9«V5/V7 

1110  LET  E1«ABS(V9«V9-1) 

1180  IP  V9»l  THEN  1100 

1140  LET  R3«(l-El)«Rl/(l^En 
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1150  L£T  Hd-R3/5260*3959 
1160  UET  V1«V5«R1/Rd 
1170  GOTO  ia20 

1180  LST  AA-d^ED^Rl/d-El) 
1200  LET  H4-R4/5a80*3959 
laiO  UCT  V2«V5«Rl/a4 
1220  RETURK 

1230  PRINT 

1231  PRINT 

1232  PRINT 

1234  PRINT  **BASKD  ON  YOUR  ORIGINAL  ALTITUDES  OP  **H1*<  AND  *«H2*«  MILES'* 

1235  PRINT  **VOULO  YOU  LIKE  TO  TRY  Dirr£RENT  VELOCITY  INCREMENTS^ 
12^C»  PRINT  **(1*YES#  0*NO)**i 

1237  INPUT  25 

1238  PRINT 

1241   IP  Q5>0  THEN  220 

1250  PRINT  **VOULJ)  YOU  LIKE  TO  RUN  THE  PROGRAM  AGAIN  (i*YES#  0-NO)**l 

1251  INPUT  26 

1252  PRINT 

1253  PRINT 

1254  PRINT 

1255  IP  26>0  THEN  180 
1260  END 
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DISCIPLINE 


PHYSICS 


SUBJECT     ELECTRICAL  POTENTIAL 


ENERGY 


PROGRAM  NAME 


VFIELD 


DESCRIPTION; 

This  program  plots  a  picture  of  the  relative  potential  field  strengths  of 
regions  surrounding  two  point  charges. 


OBJECTIVES: 


To  give  the  student  a  feel  for  how  the  electric  potential  field  is  altered 


by  changing  the  positions  of  two  point  charges. 
PRELIMINARY  PREPARATION: 

A.  Student    -  The  concept  of  electric  potential  for  a  point  charge  should  be 
understood ,  as  well  as  equipotential  lines  and  potential  hills  or  wells. 

B.  Materials  -  none  needed 
DISCUSSION: 


One  run  of  this  program  requires  much  time,  so  it  is  not  advised  for 


use  with  a  whole  class.    Individual  students  or  small  groups  will  derive  the 
greatest  benefit,  or,  alternatively,  the  teacher  may  make  several  runs  before 
class  and  display  the  resulting  plots  during  a  class  discussion. 


The  coordinate  plane  occupied  by  the  charges  is  30    x  30. 


NOTE: 


The  numbers  in  the  plots  indicate  relative  fiekj  >»tTengths* 
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THIS  PHOGKAH  PLOTS  A  PICTURE  OF  THE  HELATIVE  ELECTRICAL 
POTENTIAL  FIELD  STRENGTHS  IN  THE  REGION  SURROUNDING  TWO 
POINT  CHARGES*     THE  CHARGES  ARE  IN  A  COORDINATE  PLANE 
30  BY  30.     THE  CHARGES  MAY  HAVE  ANY  VALUE  WHOSE 
MAGNITUDE  IS  LESS  THAN  10  #  AND  MAY  BE  ANYWHERE  BETWEEN 
0  AND  30  ON  THE  X  AND  Y  AXE3. 

THE  MAGNITUDE  OF  THE  FIELD  DECREASES  FROM  9  TO  1#  0#  A  TO 
TOAT  IS,  9  TO  1    IS  A  POSITIVE  POTENTIAL*  0   IS  ROUGHLY  0# 
AMD  A»-l#  B»-2#    ...  J«-9.   (THERE  IS  NO  M'.) 

WAT  VALUES  OF  CHARGES  DO  YOU  WISH  TO  STUDY? 

TO  STUDY  ONLY  ONE  CHARGE*  MAKE  THE  SECOND  CHARGE  0. 

SUTKR  TW  VALUES  OF  CHARGE  t   7  l0#-3.5 

WMS  SHALL  THE  FIRST  CHARGE  BE  LOCATED?  15^15 

WERE  SHALL  THE  SECOND  CHARGE  BE  LOCATED?  15,85 


30 

29 

88 

87 

86 

25 

84 

83 

22 

81 

20 

19 

18 

17 

16 

15 

14 

13 

18 

11 

10 

9 

6 

7 

6 

5 

4 

3 

8 

1 

0 


mO 
m 


18 


16 


24 


30* 
-I* 
** 
* 


000000000000000000000 

*  000000000000000000000 

*  000000    AAA     000000  * 

*  00000  AABBBAA  00000  * 

*  in  000  A  CDSDC  A  000  HI  * 

*  UllllllUlll  000  ABD  -  DBA  000  114.1111111111  * 
*llllllllllllllll  00  ABDEDBA  00  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  * 
*1111111111111111111  00  AAA  00  lllllllllllllUUll* 
:  lllllllllUllllllUllU* 
viililllllllUll  lllllllUllllil* 
♦111111111111  8888888  8888882  1 1 1 1 1 1 1 1 1 1 1 1  • 
*llllllllli  88882  333  444  333  88888  1111111111* 
*11 11 11111  8888  33  4455  6  5544  33  8888  UlllllU* 
*11111111  8888  33  45  69996  54  33  8288  11111111* 
*11111111  8888  3  4  79  97  4  3  8888  11111111* 
*1111111  8888  33  4566  ^  6654  33  8888 
*1111111  2822  33  45679  97654  33  8888 
*1111111  8888  334456769  967654433  8888 
*1111111  88888  33  4455666665544  33  28888 
*11  111111  88888  333  444  444  333  88888 
*llllllli         88888     3333           3333  88888 

*  1 1 1 1 1 1 1 1 1         888888     333333333  888888 

*  1 1 1 1 1 1 1 1 1 1         88828888  88888888 


*lllllllllll 
*1111111111111 
*111111111111111 
*111111111111111 
*1111U111111111 
*11  UllllllUlll 
*llli;illlllllll 
*111111111111111 
*1  -~1  


8888888888888888888 
888888888888888 
8 

ill  Hi 
111111111111111111111 
.lllllllllllllllllUJ 
.lllllllllllllllllUJ 

lllllllllllllllllllJ 


1111111* 
1111111* 
iiuiii* 

11  11  HI* 
lUllUl* 

11111111* 

UlllllU* 
IIUIUIU* 


lUUUUU* 
llUUlllUU* 
UUlUUlllU* 
IIUUUUIIU* 
IIIUUIUUU* 
lUlilUUUU* 
11  lUllUUlU* 
UUIUUIUU* 

— 1  -—I* 


DO  YOU  VISH  TO  VIEV  ANOTHER  PLOT  (1«YSS#  0«N0>   t   ?  0 


READY 


30  7 
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100  REM     JOHN  HOSIS  -  NORTHPORT  HS  -  7-8-69 
105  REM    REVISED  BY  C*LOSIX  8-81-70 

110  REM    YOU  HAVE  MY  BLESSING  TO  USE  COMPUTED  GO-TO«S  AND 

111  REM     STRINGS  IP  YOU  HAVE  THEM  ( VE  DIDN'T) 

113  REM     V  IS  THE  FIELD  STRENGTH^  RI#RB;QI;QB  ARE  STANDARD  NOT* 

116  REM     THIS  MAY  B£  CHANGED  TO  ALLOV  HIGHER  VALUED  CHAFr0'^S 

117  LET  a9«IO 

IBO  PRINT  *«THIS  PROGRAM  PLOTS  A  PICTURE  OP  THE  RELATIVE  ELECTRICAL** 
130  PRINT  *«POrENTIAL  FIELD  STRENGTHS  IN  THE  REGION  SORROUND I NQ  TVO" 
140  PRINT  **POINT  CHARGES.     THE  CHARGES  ARE  IN  A  COORDINATE  PLANE" 
150  PRINT  "30  BY  30.     THE  CHARGES  MAY  HAVE  ANY  VALUE  (HOSE" 
160  PRINT  "MAGNITUDE  IS  LESS  THAN"Q9"#  AND  MAY  BE  ANYVHERE  BETWEEN** 

170  PRINT  "0  AND  30  ON  THE  X  AND  Y  AXES*" 

171  PRINT  "THE  MAGNITUDE  OP  THE  PISLD  DECREASES  PROM  9  TO  l#  0#  A  TO  J** 
m  PRINT  "THAT  IS«  9  TO  I   IS  A  POSITIVE  POTENTIAL^  0  IS  ROUGHLY  0#" 
173  PRINT  "AND  A«-l#  B»-8#  J«-9«  <TH£RE  IS  M  *I*«>" 

^  178  PRINT  .  »  .  . 

179  PRINT  "VHAT  VALUES  OP  CHARGES  DO  YOU  WISH  TO  STUDY?" 

180  PRINT  "TO  STUDY  ONLY  ONE  CHARGE «  MAKE  THE  SECOND  CHARGE  0." 
185  PRINT  "ENTER  TVO  VALUES  OP  CHARGE  t  "i  * 

190  INPUT  QI#Qa 

195  IP  ai«0  THEN  180 

GOO  IP  ABS(QI><«G9  THEN  230 

810  PRINT  "VALUES  MUST  BE  IN  THE  RANGE  ( "-Q9"«"Q9") •" 
880  GO  TO  185 

830  IP  ABS(Q8>>Q9  THEN  810 

838  REM     FOR  EFFICIENCY^   VE   *HIDE*  THE  ELECTROSTATIC  CONSTANT  HERE 
833  LET  8I«8*QI 
836  LET  Q8«8*Q8 

840  PRINT  "VHERE  SHALL  THE  FIRST  CHARGE  BE  LOCATED"! 

850  INPUT  XI#YI 

860  LET  XI-INTCXI't-.S) 

870  LET  YI«INT(Yl4-.5> 

880  IP  ABS(X1-I5><«I$  THEN  310 

890  PRINT  "VALUES  MUST  BE  IN  THE  RANGE  (0«30)t" 
300  GO  TO  840 

310  IP  ABS(YI-I5>>I5  THEN  890 
380  IP  Q8-0  THEN  410 

330  PRINT  "WERE  SHAXO*  THE  SECOND  CHARGE  BE  LOCATED**! 

340  INPUT  X8#Y8 

350  LET  X8«INT(X8^.5) 

360  LET  Y8«INT(Y8^.5> 

370  IP  ABS(X8-I5><«I5  THEN  400 

380  PRINT  "VALUES  MUST  BE  IN  THE  RANGE  (0#30>*" 
390  GO  TO  330 

4)0  IP  ABS<Y8-I5>>I5  THEN  380 
410  PRINT 
480  PRINT 

430  PRINT  **  "#"«0  6  18  18  84  30*" 

440  PRINT  "  "#"♦1  1  -I  1  1—  1*" 

450  FOR  Y-30  TO  0  STEP  -I 

453  PRINT  "  "IINTCY^.5)#"*"I 

456  LET  Y6-(Y-YI)*(Y-?I) 

457  LET  Y7-CY-Y8)*(Y-Y8> 

459  REM    THIS  IS  FOR  50  ITERATIONS 

460  FOR  X«0  TO  30  STEP  •6 
465  LET  X6-X-XI 

470  . LET  RI«SGR(X6«X6't'Y6> 
475  LET  X7-X-X8 
480  LET  R8«S8R(X7*X7't'Y7> 
4B3  IF  Rl<*5  THEN  800 
486  IF  R8<.5  THEN  850 
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486  aSM     THE  ELECTROSTATIC  CONSTANT  IS  2 

490  LET  V«Q1/R14.QS/R2 

49S  FOR  J— 9  TO  9  ' 

SOO   IF  ABSCV-JX.35  THEN  508 

S02  NEXT  J 

504  PRINT  - 

506  60  TO  700 

508  IF  J>0  THEN  610 

510   IF  Jo-9  THEN  520 

513  PRINT 

516  GO  TO  700 

580  IF  Jo-8  THEN  530 

583  PRINT  -H-i 

586  QO  TO  700 

530   IF  J<>*7  THEN  540 

533  PRINT  -G'^i 

536  GO  TO  700 

540   IF  Jo-6  THEN  550 

543  PRINT  "F^'i 

546  GO  TO  700 

550  IF  Jo-5  THEN  560 

553  PRINT  ••E'W 

556  60  TO  700 

560  IF  Jo-4  THEN  570 

563  PRINT 

566  60  TO  700 

570  IF  Jo-3  THEN  580 

573  PRINT  -C"i 

576  60  TO  700 

580  IF  Jo-2  THEN  590 

583  PAINT  -B"J 

586  60  TO  700 

590  IF  Jo-1  THEN  600 

593  PRINT  ••A-i 

596  60  TO  700 

600  IF  U<>0  THEN  610 

603  PRINT  ••0-i 

606  60  TO  700 

610  IF  Jol  THEN  680 

613  PRINT  -1-i 

616  60  TO  700 

680   IF  J<>8  THEN  630 

683  PRINT  '*8'*i 

686  60  TO  700 

630  IF  U<»3  THEN  640 

633  PRINT  -3-i 

636  60  TO  700 

640  IF  0<>4  THEN  650 

643  PRINT  -4-i 

646  60  TO  700 

650  IF  J<>5  THEN  660 

653  PRINT  -5**'i 

656  60  TO  700 

660  ir  U<»6  THttN  670 

663  PRINT  **6**i 

666  60  TO  700 

670  IF  J<>7  THEN  680 

673  PRINT  ••7^1 

676  60  TO  700 
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600   IF  J<>8  THEN  690 

6S3  PRINT  ••0"i 

606  60  TO  700 

690  IF  U<>9  THEN  504 

693  PRINT  -9-1 

700  mXT  X 

710  PRINT 

7a0  NEXT  Y 

730  PRINT  -  "^••♦I  —I  —  J  .-—.J  . 

740  PRINT 
750  PRINT 

760  PRINT  -DO  YOU  tflSH  TO  VIEW  ANOTHER  PLOT  <l«yES#  0-N0>  t  -i 
770  INPUT  ai 

775  PRINT 

776  PRINT 

780  IF  THEN  178 

790  IF  THEN  999 

795  60  TO  750 

600  IF  ai>0  THEN  630 

810  PRINT 

820  60  TO  700 

830  PRINT 

840  60  TO  700 

850  IF  02^0  THEN  490 

860  IF  Ofi>0  THEN  830 

870  60  TO  810 

999  END 
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DISCIPLINE  PHYSICS  

SUBJECT       INSTANTANEOUS  VELOCITY 


PROGRAM  NAME  VLOCTY 


DESCRIPTION: 

A  graph  of  distance  vs.  time  is  plotted  for  a  body  accelerating  at 
Im/sec/ sec.     The  average  velocity  is  found   for  a  point  on  the  graph  several 
times  using  V  average  =(d2  -  ^]i/i^2i  '^l^^^     Z  "•T^'jgets  smaller  and  smaller. 

The  program  prints  the  instantaneous  velocity  at  the  points  and  allows 
the  student  to  change  some  of  the  parameters  involved. 


OBJECTIVES: 

To  aid  the  student  in  understanding  the  meaning  of  instantaneous  velocity 
and  taking  a  limit. 


PRELIMINARY  PREPARATION: 

A.  Student  -  should  know  the  definitions  of  average  and  instantaneous  velocity 

B.  Materials  -  none 


DISCUSSION: 

A  good  tutorial  program  or  teaching  aid.    Student  should  realize  that  the 
slope  of  the  line  drawn  ^>etween  the  points  dl,   Tl,  and  d2,   T2  is  the  average 
velocity.    As  the  second  p.jint  is  made  to  approach  the  first,  the  slope  of  this  line 
approaches  the  value  of  the  slope  of  the  tangent  line  drawn  to  the  first  point  - 
which  is  called  the  instantaneous  velocity. 

The  student  may  then  change  the  acceleration,  time  at  which  he  wants  to 
know  the  average  speed,  and  the  time  interval,  delta  T. 

A  more  theoretical  view  of  this  same  problem  will  be  obtained  by  running 
the  program  SLOPE. 
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AVERAGE  AND  INSTANTANEOUS  VELOCITY 

1HIS  PROGBAM  CONSIDERS  DISTANCE  AS  A  FUNCTION  OF  TIHEj 
IT  VILL  CALCULATE  THE  AVERAGE  VELOCITY  DURING 
THE  TIME  INTERVAL  Tl#T2  BY  EVALUATING  D  AT  TftOSE  TIMES 
GIVING  Dl  AND  D2.     THE  RESULT  OF  (D&»D1 >/(Ta»Tl >  YIELDS 
1ME  AVERAGE  VELOCITY.     AS  Tfi  IS  aROUGHT  *  CLOSER  AND  CLOSER 
TO  Tl  THE  RESULTANT  AVERAGE  VELOCITY  VILL  APROACH  THE 
INSTANTANEOUS  VELOCITY  AT  Tl. 

AFTER  THE  PROGRAM  STOPS«   TYPE  IN  THE  FOLLOVINGt 

(END  EACH  LINE#   INCLUDING  *RUN*«   VITH  THE   'RETURN*  KEY) 

1   GO  TO  300 

300  DEF  FND(T>«..*.(YOUR  FUNCTION  OF  TIME) . . . • 
RUN 

FOR  EXAMPLE^  TO  USE  THE  EQUATION  D«A*T*T  VITH  A-i 
YOU  VOULD  TYPE  AS  FOLLOVSl 

1   GO  TO  300 

300  DEF  FND(T>«1*T*T 

RUN 

YOU  MIGHT  TRY  THAT  AS  YOUR  FIRST  RUN. 

FOR  SUBSEQUENT  RUNS«  YOU  NEED  ONLY  CHANGE  LINE  300  FOR 
A  NEV  FUNCTION^  FOLLOVED  BY  'RUN'. 


J5)>^DY 

1  GO  TO  300 

300  DEF  FND(T>-1*T*T 

HUN 


VHAT  ABE  YOUR  VALUES  OF  Tl  AND  T2  (SMALLER  FiRSTt'  TijT2>7  5jS0 

THE  DISTANCE  TRAVELED  DURING  THE  INTERVAL  IS  2475 
THE  AVERAGE  VELOCITY  IS  55 

VOULD  YOU  LIKE  TO  CHANGE  T2  (  1*YSSj  0-*NO>7  1 

WAT  IS  YOU  NEV  VALUE  FOR  T2  (T2  MUST  BE  OBEATER  THAN  Tl>7  105 

IHE  DISTANCE  TRAVELED  DURING  THE  INTERVAL  IS  11000 
WK  AVERAGE  VELOCITY  IS     110  ' 


VOULD  YOU  LIKE  TO  CHANGE  Ta  (1*YESj  0-*H0>7  0 

MV  MATCH  THE  AVERAU  VELOCITY  AS  T2  APPROACHES  Tl  . 


Tl   «  5 

Dl   m  25 

T2 

T2-T1 

D2 

D2*D1 

CD2*D1>/(T2*T1> 

105 

100 

11025 

11000 

110 

55 

50 

30  25 

3000 

60 

30 

25 

900 

875 

35 

17.5 

It. 5 

306*25 

281 .25 

22*5 

11*25 

6.25 

126*5525 

101.5625 

16*25 

i.l25 

3.125 

66^01563 

41  .01563 

13^125 

6*S685 

1*5625 

43^06641 

18.06641 

11*5625 

5.7tl25 

•76125 

33^42265 

6.422852 

10^76125 

5-390625 

.390625 

29.05664 

4.056836 

10^39063 

5.195313 

.1953125 

26*99127 

1^991272 

10^19531 

5-0976S6 

•09765625 

25^966l 

•9860992 

10^09766 

5.048886 

•04902613 

25^49067 

•4906654 

10^04883 

5*024414 

•02441406 

25.24474 

•2447367 

10*02441 

5.012207 

•  01220  703 

25.12222 

•1222193 

10^01221 

5.006104 

6^103516E-3 

25.06107 

•0610  7235 

10^00609 

5.003052 

3*051758S*3 

25*03053 

*030  52668 

10^00305 

5.001526 

1^5256  79E*3 

25.01526 

•0152611 7 

10^00156 

5.000763 

7.629395E-4 

25^00  763 

7^629871E*3 

10.00063 
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MOTE  THAT  THE  AVEHAGE  VELOCITY  CHANGES  VERY  LITTLE 
AS  T2  APPAOACHES  TU     T2  CAM  NEVER  EQUAL  Tl  SINCE 
(D2-Dn/CT2-Tn   WOULD  THEN  RESULT  IN  A  DIVISION  BY  ZERO. 


WOULD  YOU  LIKE  TO  TRY  DIFFERENT  VALUES  OF  Tl  AND  Ta 
Cl-YES#  0-N0>7  0 

TO  CHANGE  YOUR  FUNCTION  SEE  THE  INSTRUCTIONS* 

IF  YOU  ARE  FINISHED*   TYPE   M'*  AND  THE   'RETURN'  KEY 

AFTER  THE  PROGRAM  STOPS • 


««««« 


READY 


1 
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100  REM  VELOCITY^   J.  HOSI£#         J*  0*CONNOR#  6/18/68 

101  REM  REVISED  6/86/70   <D«  PESSEL) 

102  REM  IMPORTANT  VARIABLES!     S*SECANT  SLOPEi  P-PERCENT  CHANQEi 

103  REM  D* INVERSE  OF  CHANGE  IN  Xi  Y*CHANGE  IN  Y 

104  REM  SEE  SLOPE  FOR  A  MORE  THEORETICAL  APPROACH  TO  THE  SAME  PROBLEM 

105  LET  Sl-0 

110  PRINT  TABC 10)  J  "AVERAGE  AND  INSTANTANEOUS  VELOCITY** 
120  PRINT 

130  PRINT  "THIS  PROGRAM  CONSIDERS  DISTANCE  AS  A  FUNCTION  OF  TIMS#** 

131  PRINT  "D«F(T>.     IT  VILL  CALCULATE  THE  AVERAGE  VELOCITY  DURING** 

132  PRINT  "THE  TIME  INTERVAL  TlgrQ  BY  EVALUATING  D  AT  THOSE  TIMES** 

133  PRINT  "GIVING  Dl  AND  D2*     THE  RESULT  OF  CD2*D1  >/CT8'^Tl  >  YIELDS" 

134  PRINT  "THE  AVERAGE  VELOCITY.     AS  T2  IS  BROUGHT  CLOSER  AND  CLOSER** 

135  PRINT  '*T0  Tl  THE  RESULTANT  AVERAGE  VELOCITY  VILL  APROACH  THE" 

136  PRINT  "INSTANTANEOUS  VELOCITY  AT  TU" 

138  PRINT 

139  PRINT  "AFTER  THE  PROGRAM  STOPS#  TYPE  IN  THE  FOLLOVINGs'* 

140  PRINT  "(END  EACH  LIN£#   INCLUDING   'RUN*#   VITH  THE   'RETURN*  KEY)** 


141  PRINT 

142  PRINT  "  1   GO  TO  300** 

143  PRINT  **  300  DEF  FND(  T>«  •  •  •  •  C  YOUR  FUNCTION  OF  TIHE>...." 

145  PRINT  "  RUN" 

146  PRINT 


147  PRINT  "FOR  EXAMPLE^   TO  USE  THE  EQUATION  D«A'l'T4iT  VITH  A«l" 

148  PRINT  "YOU  WOULD  TYPE  AS  FOLLOVSt" 

149  ;:^RINT 

150  PRINT  "  1   GO  TO  300" 

151  PRINT  "  300  DEF  FND<T>-1*T*T" 

153  PRINT  "  RUN" 

154  PRINT 

155  PRINT  "YOU  MIGHT  TRY  THAT  AS  YOUR  FIRST  RUN." 

156  PRINT  "FOR  SUBSEQUENT  HWSm  YOU  NEED  ONLY  CHANGE  LINE  300  FOR" 

157  PRINT  "A  NEW  FUNCTION^  FOLLOWED  BY  *BUN*." 
160  STOP 

290  REM  CALCULATION  OF  SLOPE  AND  PRINTOUT 

300  DEF  FNDCT>«14iT4iT 

301  PRINT 

302  PRINT  "♦♦♦♦♦" 
X3  PRINT 

305  PRINT  "VUAT  ARE  YOUR  VALUES  OF  Tl  AND  T2  (SMALLER  FIRSTS  Tl«T8>"i 

306  INPUT  T1#T2 

307  IF  T2>Tl  THEN  310 

306  PRINT  "T2  MUST  BE  GREATER  THAN  Tit" 

309  GO  TO  305 

310  PRINT 

311  PRINT  "THE  DISTANCE  TRAVELED  DURING  THE  INTERVAL  IS  "FND( T2>*FND( Tl > 

312  PRINT  "THE  AVERAGE  VELOCITY  IS  **(FND(  t2>*FND(Tl  >  >/(T2*Tl ) 

313  PRlMT 

314  PRINT  "VOULD  YOU  LIKE  TO  CHANGE  T2  (1*YES«  0*NO>"i 

315  INPUT  91 

316  IF  QKl  THEN  330 

317  PRINT  "VHAT  IS  YOU  NEV  VALUE  FOR  T2  (T2  MUST  BE  GREATER  THAN  Tl  >"i 

318  INPUT  T2 

319  if  t2>t1  then  310 

320  Print  "T2  must  be  greater  than  tii" 

381   go  to  317 

330  PRINT 

331  PRINT  "NOV  VATCH  THE  AVERAGE  VELOCITY  AS  T2  APPROACHES  Tl." 
335  PRINT 

344  LET  D1«FND(T1> 

345  PRINT  "  Tl  -  '•Tl*"  "*"  Dl  -  "FNDCTl) 

346  PRINT 
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360 
352 
361 
370 
360 
362 
364 
390 
400 
401 
402 
470 
480 
490 
495 
496 
496 
500 
510 
520 
530 
540 


PRIMT  -  T2">"  T2-Tr%"  D2'S'* 

PRINT  "  •  

L£T  D2>FNDCT2> 

PRINT  T2#T2-TUD2>D2-D1>(D2- 
IF  ABS(T2-T1><.001  THEN  390 
LET  T2»T2-.5*CT2-Tl> 
60  TO  361 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


D2-D1'%"  CD2-D1>/(T2-TI>" 


D1>/<T2-T1> 


**NOT£  THAT  THE  AVERAGE 
"AS  T2  APPROACHES  Tl. 
••(D2-D1  >/(T2-Tl>  WOULD 


VELOCITY  CHANGES  VERY  LITTLE'* 

T2  CAN  NEVER  EQUAL  Tl  SINCE"  

THEN  RESULT   IN  A  DIVISION  BY  ZERO." 


-«WOULD  YOU  LIKE  TO  TRY  DIFFERENT  VALUES  OF  Tl  AND  T2' 
••(1-YES#  0-NO)"l 

as 

IF  a5>0  THEN  300 

PRINT  "TO  CHANGE  YOUR  FUNCTION  SEE  THE  INSTRUCTIONS." 
PRINT  -IF  YOU  ARE  FINISHED*   TYPE   'I**  AND  THE   'AETURN*  KEY»^ 
PRINT  -AFTER  THE  PROG^iAM  STOPS." 
END 
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DI  SCI  PLI NE  PHYSICS 
SUBJECT  WAVES 


PROGRAM  NAME  WAVES 


DESCRIPTION: 

This  program  finds  the  sum  of 
program,  and  the  other  determined  by 
either  displaying  both  vaves  and  their 

OBJECTIVES: 

To  enable  the  student  to  study,   independently,   the  effect  of  changes  in 
wavelength,  amplitude, and  phase  on  the  superposition  pattern  formed  by 
two  waves. 


PRELIMINARY  PREPARATION: 

A.  Student  -  Some  experience  vith  "SLINKY"  wave  superposition:  knovledge 
of  phase,  amplitude,  and  wave  length. 

B.  Materials   -  none 


DISCUSSION: 

The  student  controlled  wave  {"  B'^  may  have  v  avelengths  ranging  from 
2  to  8,   though  only  a  v  ave  length  of  4  may  be  fully  displayed.    Its  amplitude 
can  be  varied  between  5  and  11,  and  its  phase  can  be  any  decimal  part  of  a 
wavelength. 

The  fixed  wave  ("A"  )  has  a  wavelength  of  4,  and  an  amplitude  of  10. 
The  display  consists  of  both  waves,   side  by  side,  and  their  superposition, 
or  just  their  superposition. 
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two  waves:  one  predetermined  by  the 
the  student.     There  are  options  of 
sum,  or  just  their  sum. 


Physics 
WAVES 


DO   tOU  NEED   iiNiSriwOCnONS   (l=i£6>   U=iMO)    :    ?  i 


rriiS  i^/iOGiiAM  ^OU  OBSExWE   inE  EFFEUTi>  OF 

CnANGiiSiG   WAVcILEwCrn^    AM^'LI  iUOEj   AND  r»nAi>E  O  '.    i  WO 
WHv/Eo  and  on    iriiiliv  5JFi    (On  5Ur»Eiir'05i  fi  ON )  • 

WAVE    'H'    i:j  FiAiiD-      i  i*;?   wAVELENGm   i  i>  i  i  i>  rtMi^LirUDE 

X6    1U>    AND    1        i^nAo£    15  U« 


WAVE    'ii*    NHt   aE  CnANGED  lUU.      FOu  bE6T  4iEi>JLTb  : 

WAVELENGfn  (L)  BETWEEN  ^  AND  ^^1 
AM^Li  i*UDE  (^A)  dEXWEEN  6  AND  lu 
h^rlASE   (r^)    bETWEEN  U   AND  1 

(FOiw  EAAiMi^LE>    •S  r>nAi>E  =    1 /ki    WAVELENG fn 


IT   16  EAi>iE:?i'    I'O   bEE    fnE  EFFECIb   OF  C;nANGEi>   IN  EACH 
r'AriAKElErt   iF    fOU  rlOLD    TwO  CONS f ANT  AND  VAiii    THE  OinErt^ 
ALThOUGrl  ALL  TnuEE  ^AY  BE   VAitiED  AT  ONCE. 


wHAr    16   iOUn  CnOlCE   Or    WAVELENGfn^   Ai\r>LlTJDEj   AND  r'nAbE?  kijlUjU 


NOrAfiON:  A  =    'A'  WAVE 

d  =    'B'  WAVE 
i>  =   SJHExu^OSi  1*1  ON  WAVE 


A   ( CM • ) 

U 

•  6 

•  b 

I 
1 

1  .^1 
1  -6 

1  .b 

2-  ^ 

i:i  .6 

2  .b 

3 

3  -kd 
3  -A 

3-  6 
3  -b 
4 
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WAVES  AND  THElrt  SUPEHHOSI Tl ON 
DO  YOU  NEED   INSTHUCTIONS   <l=Y£i^   0=N0)    :    7  U 

WHAT   16   tOau  CHOICE  OF  WAVELENGTH^   AMf'LlTUDii*   AND  PHkSEl  3#5#U.25 


notation; 


A  =  'A'  WAVE 
B  =  'B'  WAVE 
S  =   SUPEHi^OilTlON  WAVE 


WANT  TO  THY  ANOTHER  SET  OF  VALUES   (l=YES#  U=NO)  : 


1" 
7  0 


HEADY 
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00   iOO  i'^tLti'O  iiiUC  ri  OMo   (l  =  it:j>   J  =  i\iO)    s    ?  u 

i3   =    :DUje£rU^0611  ION  WA\;E 

 i  X  -I  1 —  -I  I 


u 

.2 

•  4 

•  6 

•  d 

1 

1  .ci 

1  .i^l 

1  .0 

1  .D 

ci 

2. a 

•  6 

2  •© 

J 

J. 4 

3.6 

3«b 

4 

A 


 I  I. 


WANT    fO   TriY  ANUTriKit  SIlT   OK  ^yALUKii   Cl  =  irh:5>    'J-^vO)    S    ?  U 


liliADY 
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wOrATlUiNji 


H  =    'A'  wA\;E 


A     (  (Jl'l  •  ) 

0 

.A 
.6 
•  d 

1 

1  *^ 
I  .4 
1  .6 

1  .ti 

2 

2.6 

2  •  o 

J 

3.^ 
3.6 
3.ti 
4 


-1  1  i  1  

WANT  TO   Till'  ANOTriEK  SET  OF  VALUES   (  1  ='r ESj   U=i\)0)    :    ?  I 
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A  (CM.) 

0 

•  ci 

•  4 
.6 

•  tt 

i 

1 

1  .6 
1  .b 

2 

2.2 

3 

J. 6 
3  •  6 


-i  • 


-20 


-iu 
•i-' 


u 

-I- 

A 


+  10 


A. 


'A  b 

a 

✓  • 

~1>  A 
A 


a  .A 
*    *  * 

■t ' 
A' 

k 


*B  "'A 


•A 


-I- 


-1  i  i  

WANT  TO   lt\\  ANOlriEu  SET   OF  V/ALUE^   Cl  =  ^E:>-r  O  =  i\0)    :    ?  0 


UEADY 
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100  HEM     JOHN   W.   HOSIE^   NORTHPOAT  HS*  PHYSICS^  b/9/68 
105  REM     REVISED  BY  C.LOSIK  B-17-70 

I  10  REM     WE  SORT  THE  WCI)   TO  PLOT  THE  WAVE  VALUES. 
115  HEM     L^A^P  ARE  WAVELENGTH^   AMPLITUDE^   AND  PHASE 
120   DIM  WC3) 

124  HEM     TWO  PI  f 

125  LET  P2»2*3.M159 

130  PRINT  "   "^"WAVES  AND  THEIK  SUPERPOSITION" 

140  PRINT  "DO  YOU  NEED  INSTRUCTIONS  <  1»YES*   0=N0)    :  "; 

150    INPUT  A 

160    IF  A=0   THEN  350 

170   IF  Aol    THEN  140 

180  PRINT 

190  PRINT  "IN  THIS  PROGRAM  YOU  MAY   OBSERVE  THE  EFFECTS  0?**' 
200  PRINT  "CHANGING  WAVELENGTH^   A^.^LITUDEr  AND  PHASE  ON  TWO" 
210  PRINT  "WAVES  AND  ON  THEIR  SUii  (OR  SUPEh.^^03ITlON) 
220  PRINT 

230  PRINT  "WAVE    'A»    IS  FIXED.      ITS   WAVELENG^      IS  4^    ITS  i?.rJ^LIXl'DE 
240  PRINT  "IS    10^   AND   ITS  PHASE  IS  0." 
250  PRINT 

260  PRINT  "WAVE    'B»   MAY  BE  CHANGED  BY    YOV*      FOR  QESI  RESUf.TS  si" 
270  PRINT  "  "^"WAVELENGTH  (L)   BETWEEN  2  AND  4'^ 
280  PRINT  "   "^"AMPLITUDE   (A)   BETWEEN  5  AND  10" 
290  PRINT  "  "> "PHASE   CP)   BETWEEN  0  AND  1'* 

300  PRINT  "  ">"CFOR  EXAMPLE*    .5  PHASE  ^   \/2  WAVELENGTH" 
310  PRINT 

320  PRINT  "IT   IS  EASIEST  TO  SEE  THE  EFFECTS  v     CHANG25  i^?  EAC>4" 
330  PRINT  "PARAMETER  IF  YOU  HOLD  TWO  CONSTANT  AND  VARY  THE  OTHFiR> 
340  PRINT  "ALTHOUGH  ALL  THREE  WAY  B£  VARIED  AT  ONCE." 
350  PRINT 

360  PRINT  "WHAT   IS  YOUR  CHOICE  OF   WAVELENGia^   i^i^LXTUPtJ'*   AND  PRAS 
370   INPUT  L>A>P 
373   IF  L>0   THEN  380 

375  PRINT  "WAVELENGTH  13  ALWAYS  A  POSITIVE  ^r^ANtf T V • " 

377  GO  TO  350 

380    IF  L<»b  THEN  410 

390  PRINT  "YOUR  WAVELENGTH  IS  TOO  LONG  FOR  GOOD  DISPLAY;." 

400   GO  TO  350 

410    IF  L>=1    THEN  415 

412  PRINT  "YOUR  WAVELENGTH  IS  TOO  SHORT  FOR  GOOD  DI  SPL.V:o' 

413  GO  TO  350 

415   IF  ABS<A)<«15   THEN  440 

420  PRINT  "YOUR  AMPLITUDE  IS  TOO  LARGE  FOR  DISPLAY." 

'430   GO  TO  350 

440    IF  ABS(P-.5)<=.5    THEN  470 

450  PR-INT  "YOUR  PHASE  CAN  ONLY  BE  BETWEEryi  0  AND  1." 
460   GO  TO  350 
470  PRINT 


Phvsice 

WAVi;S 


ilBO  PHINT  "NOTATION:"  j"A  a    'A'  WAVE" 
^90  PHINT  "  "i."B  =    'B'  WAVE" 
500  PHINT  "  ","i)  «   SUPEHPOSITION  WAVE" 
510  PRINT 

520  PRINT  "  X  <CM.)"^"  -20  -10  0  +10  ■ 

530  PRINT  "   "*"-!  1  1  1  1  1  1" 

5^0   FOR  X«0   TO  ^   STEP  .2 

5^5  PRINT  "  ";    INTC 10*X+.5)/lO j"-"; 

550   LEX   W(  n«lNTC  10*SlNCP2*X/^)  +  .5  > 
560  LET  WC2)-lNTCA*SlNCP2*CX/L+P))^-.5) 
570  LET   V(  3)«1NT(  WC  n+WC2)  +  -5) 

5bO  REM     FIND  WHICH   IS   SMALLEST^    THEN  PRINT   IT  AND  MAXIMIZE  IT 

600   FOR  a=l    TO  3 

60  5  LET  K=1E20 

610   FOR  lal    TO  3 

620    IF  WC1)>K  THEN  6^0 

630   LET  K»W(1) 

6^0   NEXT  1 

650  PRINT  TAB(K+^0); 
660   FOR  1=1    TO  3 

670    IF  ABSCWCD-KX.OOOl    THEN  700 
680   NEXT  X 
690  STOP 

700    IF  lol   THEN  730 

710  PRINT  "A"; 

720   GO  TO  760 

730    IF   I<>2  THEN  760 

7^0  PRINT  "B"; 

750   GO  TO  7bO 

760   IF   I<>3  THEN  690 

770  PRINT  "S"; 

7b0  LET  WCI)«1E25 

790  NEXT 

795  PRINT  "  " 

BOO  ne;ct  X 

«iU  f^RXNT   1  1  1  --I^  ---I  1" 

tk,0  PRJ-^'T 

3:;0  ?>RINT  ''WANT  TO  TRY  ANOTHER  SET  OF  VALUES   C  I-YESj   0=N0)    I  "; 

a-£|0  INPUT  A 

850  IF   A-1    THEN  350 

860  IF  A<>0   THEN  B20 

B7Q  )i:ND 

READY 
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HU  NTING  TO  N     COM  PU  TER    PR  O  JEC  T 

A  TEACHER'S  MANUAL 
(COMPUTER  -  RELATED  MATERIALS) 

S  econd  Edition 
January  31,  1971 

Director:   Dr.   Ludwig  Braun 
Assistant  Director:    Dr,    Marian  Visich,  Jr, 

Polytechnic  Institute  of  Brooklyn 
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Developed  by  the  Huntington  Computer  Project  during  the  period 
May,  1968  and  September,  1970.    This  effort  was  supported   by  the 
National  Science  Foundation  under  Grant  No.  J000079. 
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The  enclosed  material  is  a  compilation  of  computer  programs 
developed  during  the  period  May,   1968  to  September,   1970.  These 
programs  were  developed  by  teachers  and  students  in  the  high  school 
which  participated  with  us,   and  by  the  Project  staff. 

All  of  the  enclosed  programs  have  been  tested  on  a  Digital 
Equipment  Corporation  TSS-8  time-shared  computer  during  the  summer 
of  1970.       To  the  best  of  our  ability,  we  have  assured  ourselves 
that  the  pro2:rams  actually  run.     It  should  be  pointed  out,  however, 
that  we  were  not  able  to  make  an  exhaustive  exploration  of  the  pro- 
grams.    There  may  be  undiscovered  bugs   (if  there  aren^t,   it  may  be 
the  first  time  in  the  history  of  computing) .       We  would  appreciate 
hea ;  Lng  of  any  which  emerge  in  the  future. 

These  programs  run  in  the  version  of  BASIC  which  existed  on 
the  TSS-8  in  August,    1970,   and  should  run  on  most  other  versions  of 
BASIC.     The  major  potential  problem  on  other  machines  is  the  output 
format   (DEC  uses  14  columns  per  print  zone,   while  some  other  manu- 
facturers use  15;  we  used  the  TAB  function,   which  doesn^t  exist  in 
al!  BASIC  compiles).     It  may  be  necessary  to  make  some  minor 
changes  in  programs  to  adjust  this  format.     Another  possible 
problem  is  in  the  use  of  the  RANDOMIZE  command  in  some  programs 
to  start  the  random-number  generator  at  a  random  point.     If  this 
command  is  not  available,   some  other  means  should  be  devised  for 
randomizing  the  start. 

It  is  our  sincere  hope  that  those  programs  and  their  sup- 
porting documentation  will  be  helpful  to  educators  who  are  explor- 
ing the  uses  of  computers  in  education. 

We  are  anxious  to  hear  of  any  bugs,  errors,  or  improvements 
in  these  programs,  and  are  especially  anxious  to  hear  of  any  novel 
ways  of  using  them. 

Ludwig  Braun 

Ma rian  Vis ich ,   Jr . 
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Computes  the  area  under  any  curve,     (and lyrically  defined) 

GCD 

Finds  the  greatest  common  divisor  of  any  set  of  numbers. 
LIMSIN 

Evaluates  the  limit  of  sin  x/x  as  x  approai  hes  zero,  in 
both  radian  and  degree  measure. 

PI2 

Computes  the  area  of  a  circle  using  both  inscribed  and 
circumscribed  regular  polygons. 

PLOTTR 

Plots  the  gj.aph  of  any  function. 
PRIFA 

Finds  prime  factors. 
QIJADRT 

Describes  the  gra^h  of  the  second-degree  equation, 
Ax"  +  Bxy  -f  Cy    +  Dx  -f  Ey  +  F  =  0. 

RATIO 

Solves  for  the  unknown  in  a  proportion. 
R00TS2 

Finds  the  real  roots  of  the  quadratic  equation 
ax^      bx      c  ^  0. 

SETS 

Finds  the  union  and  intersection  of  any  two  numerical 


ERIC 


MATHEMATICS  (con^t) 

SIMEQN  53 
Finds  solutions  to  sets  of  up  to  ten  simultaneous  equations. 

SLOPE  58 
Computes  the  tangent  slope  for  any  function. 

SQRT  62 
Finds  the  square  root  of  counting  numbers  up  to  five 
decimal  places. 

STATAL  65 
Calculates  the  arithmetic  mean  (average)  of  a  set  of 
numbers . 

STOCiC  69 
Simulates  the  stock  market. 

Sl/RFAR  80 
Computes  the  area  of  any  surface  of  revolution. 

VOLSOL  83 
Finds  the  volume  of  solids  of  revolution. 


EKLC 


Volume  IV 


PHYSICS 

BFIELD 

A  plot  routine  illustrating  the  B  field  about  one  and  two 
wire  currents,     (Electricity  and  Magnetism) 

BOHR 

Hydrogen  line  spectrum  and  energy  level  diagrams  are 
displayed.     (Atomic  and  Nuclear; 

CALORI 

Calorimetry  experiment  to  determine  the  heat  energy  to 
be  supplied  (or  removed)  from  each  mass  to  obtain  the 
eq uilibrium  temperature ,     (Mechanics ) 

DECAYl 

Radioactive  decay  is  treated  qualitatively  in  a  game- 
type  situation. 

DECAY2 

Calculates  half- life,  mass  and  prints  a  table  showing 
mass  or  number  of  particles  of  a  radioactive  sample. 

EFIE  LD 

An  extension  of  Coulomb's  law.    Finds  the  relative 
field  strength  at  a  distance  from  a  line  and  plane  of 
charge.     (Electricity  and  Magnetism) 

KINERV 

Review  of  kinematics:    presents  questions  concerning  the 
movement  of  a  ball  in  flight.  (Mechanics) 

LENSES 

Solves  lens  problems.      Light  and  Waves) 

mssD 

Calculates  mass  defect. 
NEWTN2 

A  problenatic  situation  requiring  repeated  application 
of  Newton ^s  second  law.  (Mechanics) 

PHOTEL 

Critical  wavelength  for  photoelectric  emission  is  to  be 
determined  in  a  simulated  experiment.     (Atomic  and 
Nuclear) 


PHYSICS  (con't) 

PHOTON  57 
How  energy  levels  are  determined  from  the  emissions  of 
excited  atoms.     (Atomic  and  Nuclear) 

PLANK  61 
A  photoelectric  simulation.    Students  adjust  the  retarding 
potential  to  deterinine  the  wavelength  of  randomly 
selected  electron  emitting  X-rays .     (Atomic  and  Nuclear) 

PRJTL  68 
Coordinates  and  speeds  are  printed  for  a  projectile 
fired  at  selected  speeds  and  angles  (frictionless). 
(Mechanics) 

REFLCT  72 
Least  time  principle  of  light  is  presented  as  a  challenge 
involving  a  game  analogy.     (Light  and  Waves) 

• 

SLITS  76 
A  plot  routine  permitting  further  exploration  of  Young ^s 
Double-Slit  experiment.     (Light  and  Waves) 

SNELL  92 
A  plot  routine  to  aid  in  visualizing  Snell's  law. 
(Light  and  Waves) 

SPACE  100 
Demonstrates  the  effects  of  changing  velocity  on  orbital 
motion .     (Mechanics ) 

VFIELD  105 
Plots  a  picture  of  the  relative  potential  strength  in  the 
region  surrounding  tv^o  charges.     (Electricity  and  Magnetism) 

VIXDCTY  110 
Demonstrates  that  average  velocity  (^  D/-AT)  approaches 
a  limiting/  value  as  ^T->0.    A  graph  of  D  v^ .  T  is 
plotted  for  an  acceleration  of  1  meter/sec".  (Mechanics) 

WAVES  115 
Plots  a  graph  of  a  fixed  and  a  variable  wave,  and  the 
superposition  of  the  waves.     (Light  and  Waves) 
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Volume  V 

SOCIAL  STUDIES 
BALANC 

Simulates  the  effects  of  the  relationship  between  costs 
of  production  and  revenues., 

sSul\M?s  financial  problems  concerning  installment  buying, 
long  term  loans,  and  savings  account.?, 

■  alates  the  effect  of  a  change  in  consumption  of  the 
-Ircular  flow  model  of  goods,  services  and  money," 

A  aiinulation  of  economic  depression  and  equilibrium  as 
effects  of  consumption. 

STOCK 

Simulates  the  stock  market. 


Volume  VI 

TEACHER  ASSISTANCE 
AVERGl 

Averages  grades,  lists  value  of  curve,  and  adjusts 
grades . 

AVERG2 

Sorts  and  averages  grades. 
FREQ 

Prints  a  frequency  distribution  (bar  graph)  of  grades. 
GRADE 

Prints  a  table  of  grades  (in  percentages),  number  of 
questions  missed,  and  number  of  questions  answered 
correctly. 

ITEMl 

Counts  and  prints  number  of  times  questions  are  missed. 

ITEM2 

Sums  item  analysis. 

STAT 

A  statistical  analysis  of  laboratory  data.  (For  teache 
use) 

STATAL 

Calculates  the  arithmetic  mean  (average)  of  a  set  of 
numbers . 


DISCIPLINE      SOCIAL  STUDIES  

S  UB  J  EC  T     DISTINCTION  BETWEEN  BAL- 
ANCE OF  TRADE  AND  BALANCE  OF 

PAYMENTS  

PROGRAM  NAME  BALANC 


DESCRIPTION! 

This  program  demonstrates  the  distinction  between  ''balance  of  trade" 
and ''balance  of  payments."    Also  shown  are  the  components  that  make  up  the 
"balance  of  payments"  account,  and  their  individual  impacts. 

OBJECTIVES: 

A.  To  emphasize  the  important  distinction  between"Balance  of  Trade,"  and 
"  Balance  of  Payments." 

B.  To  demonstrate  the  impact  of  any  specific  foreign  expenditure  on  our 
"  Balaince  of  Payments." 


PRELIMINARY  PREPARATION: 

A.  Student  must  obtain  data  for  components  of  balance  of  payments  for  a  given 
year  and  country.  '  ^ 

B.  Discussion    of  the  concepts  "  balance  of  trade"  and  "  balance  of  payments"  , 
would  be  helpful  but  are  not  necessary. 


.DISCUSSION: 

A.  Student  level  -  average 

B.  Curriculum  location  -  advanced  economics:    Unit  on  U.  S.  Economy  in  the 
world.  4 

C.  This  program  may  be  used  either  as  a  group  exercise,   or  for  individual  study. 


bUClAL  bXUUltib 
BALANC 


THERE'S  A  DISTINCTION  BETWEEN  TRADE  BALANCE  AND 
BALANCE  OF  PAYMENTS* 

TRADE  BALANCE  "  EXPORTS-IMPORTS. 

BALANCE  OF  PAYMENTS-  ALL  OVERSEAS  EXCHANGES-^ 
ALL  OVERSEAS  EXPENDITURES* 

WEN  INFORMATION  IS  REQUESTED^    INPUT  VALUES  IN 
MILLIONS  OF  DOLLARS  (E.G.   6  »  6  MILLION  DOLLARS) 

A. 

INPUT  A  FIGURE  FIRST  FOR  ALL  MILITARY  AID^  THEN 
FOR  ALL  OTHER  AID  TO  OTHER  NATIONS. 
7  12^13 

B. 

INPUT  A  FIGURE  FIRST  FOR  EXPORTS^   THEN  FOR  IMPORTS. 
?  256i>23 

C. 

INPUT  A  FIGURE  FIRST  FOR  FOREI GNERS  TRAVELING  IN 

YOUR  COUNTRY^   THEN  FOR  YOUR  COUNTRYMEN  TRTaVELING 

ABROAD. 

7  254#6-56 

D. 

INPUT  A  FIGURE  FIRST  FOR  INCOME  FROM  FOREIGN  INVEST- 
MENTS^  THEN  FOR  FOREIGN  INVESTMENT  ITSELF. 
7  259^21 


A.  FOREIGN  AID  =  25 

B.  BALANCE  OF  TRADE  «  233 

C.  TRAVEL  BALANCE  -  .198 

D.  INVESTMENT  BALANCE  «  238 


BALANCE  OF  PAYMENTS  •  644 

CHEMEMBER^   IF  A  MINUS  FIGURE  APPEARS  ABOVE^YOUR 
COUNTRY  HAS  A  DEFICIT  IN  ITS  BALANCE  OF  PAYMENTS) 

HOPE  YOU  UNDERSTAND  THE  DISTINCTION  BETWEEN  THE 
BALANCE  OF  TRADE  AND  THE  BALANCE  OF  PAYMENTS 
BETTER  NOV. 


READY 
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SOCIAL  STUDIES 
BAIANC 


IREMPROGHAM  BY  J.V^SWARTZ^  HALF  HOLLOW  HILLS#7/68 
SPRINT" THERE'S  A  DISTINCTION  BETWEEN  TRADE  BALANCE  AND'* 
7PRINT"BALANCE  OF  PAYMENTS-" 
SPRINT 

10PRINT"TRADE  BALANCE  «  EXPORTS-IMPORTS." 
15PRINT 

aOPRINT"BALANCE  OF  PAYMENTS-  ALL  OVERSEAS  EXCHANGES+" 
22PR:NT"ALL  OVERSEAS  EXPENDITURES-" 
23  PRINT 

25  PRINT  "WHEN  INFORMATION  IS  REQUESTED^    INPUT  VALUES  IN" 

27  PRINT  "MILLIONS  OF  DOLLARS  CE-G.   6  »  6  MILLION  DOLLARS)" 

30PRINT 

33  PRINT  "A." 

35PRINT"INPUT  A  FIGURE  FIRST  FOR  ALL  MILITARY  AID*  THE^" 

36PRINT"F0R  ALL  OTHER  AID  TO  OTHER  NATIONS." 

45  INPUT  FUF2 

50LETFaFl+F2 

52PRINT 

54  PRINT  "B." 

55PRINT"INPUT  A  FIGURE  FIRST  FOR  EXPORTS*   THEN  FOR  IMPORTS." 

65INPUT  SUSa 

70  LETS-SI -S2 

72PRINT 

74  PRINT  "C" 

75PRINT"INPUT  A  FIGURE  FIRST  FOR  FOREIGNERS  TRAVELING  IN" 

76PRINT"Y0UR  COUNTRY*  THEN  FOR  YOUR  COUNTRYMEN  TRAVELING" 

77PRINT"ABR0AD." 

85INPUTTUT2 

90LET  T-TI-T2 

92PRINT 

94  PRINT  "D." 

95PRINT"INPUT  A  FIGURE  FIRST  FOR  INCOME  FROM  FOREIGN  INVEST-" 

96PRINT"MENTS*   THEN  FOR  FOREIGN  INVESTMENT  ITSELF." 

105INPUT  11*12 

UOLET  1=11-12 

U5LETP--F  +  S+T+I 

l'17PRI  NT 

U SPRINT 

120  PRINT  "A.   FOREIGN  AID  a"*F 
X25PRINT 

130  PRINT  "B.  BALANCE  OF  TRADE  «"*S 
140PRINT 

145  PRINT  "C   TRAVEL  BALANCE  ■"*T 
150PRINT 

155  PRINT  "D.    INVESTMENT  BALANCE  «"> I 
156PRINT 

160  PRINT  "  "*"  "*"  " 

162PRINT 

170  PRINT  "BALANCE  OF  PAYMENTS  ■"*P 
171PRINT 

172PRI NT" (REMEMBER*    IF  A  MINUS  FIGURE  APPEARS  ABOVE* YOUR" 
173PRINT"C0U1'^TRY  hiAS  A  DEFICIT  IN  ITS  BALANCE  OF  PAYMENTS)" 
181PRINT 

185PRINT"H0PE  YOU  UNDERSTAND  THE  DISTINCTION  BETWEEN  THE" 
186PR1NT"BALANCE  OF  TRADE  AND  THE  BALANCE  OF  PAYMENTS" 
187PR1NT"BETTER  NOW." 
190 END 
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DISCIPLINE      MATHEMATICS- SOCIAL  SCIENCE 


SUBJECT  FINANCIAL  PROBLEMS 


PROGRAM  NAME  BANK 


DESCRIPTION; 

Tliis  program  solves  financial  problems  concerning  installment  buying, 
long-term  loans,  and  savings  accounts.    The  program  gives  you  a  choice  of 
these  three  types  of  problems,  and  asks  for  the  information  needed  to  do  said 
problems , 

OBJECTIVES; 

A.  This  program  aids  students  in  learning  the  terms  used  in  certain  financial 
problems . 

B.  Student  will  hopefully  be  motivated  to  learn  the  mathematical  logic  behind 
the  solution  of  these  problems, 

PRELIMINARY  PREPARATION; 

A.  Student  -  A  review  of  decimals  and  fractions  would  be  helpful. 

B.  Materials  -  A  terminal,  and  a  means  by  which  to  display  the  output  to 
an  entire  class  (e.g.  overhead  projector,  closed  circuit  TV,  etc.) 

DISCUSSION; 

A  type  of  problem  may  be  demonstrated  through  the  use  of  the  computer, 
then  the  mathematical  logic  behind  the  solution  of  the  problem  iray  be  developed 
through  the  use  of  a  flow  chart  similar  to  the  one  that  follows. 

Terminology  may  be  taught  when  the  computer  asks  for  input  (see  sample 

run). 

Since  the  execution  time  of  one  run  is  extremely  short,  many  more 
problems  may  be  demonstrated.    Depending  upon  the  ability  of  the  class  or 
student,  a  variety  of  relationships  may  be  discovered. 
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SOCIAL  STUDIES 
BANK 


FINANCIAL  PROBLEMS 

THIS  PROGRAM  SOLVES  THREE  TYPES  OP  PROBLEMS I 

<1>   INTEREST  ON  INSTALLMENT  BUYING 
<2)  PAYMENTS  ON  LONG  TERM  LOAN  * 
(3)  BAiANCE  OF  A  SAVINGS  ACCOUNT 

VWICH  PROBLEM  WOULD  YOU  LIKE  TO  WORK  WITH  (TYPE  1#  2  OR  3)7  1 


THIS  SECTION  WILL  DETERMINE  THE  ACTUAL  INTEREST  YOU  PAY 
liHEN  YOU  PURCHASE  SOMETHING  ON  CREDIT* 

IHAT  IS  THE  CASH  PRICE  OF  THE  ARTICLE  CS>7  66*99 
DOWN  PAYMENT  <$)7  10  ' 

NUMBER  OF  PAYMENTS  EXCLUDING  THE  DOWN  PAYMENT7  16 
NUMBER  OF  PAYMENTS  PER  MONTH?  I 
AMOUNT  PER  PAYMENT  ($>7  4-65 


WZ  RATE  OF  INTEREST  CHARGED  WAS  5.69  PERCENT* 


iOULD  YOU  LIKE  TO  RUN  THE  PROGRAM  AGAIN  <  l-YES#  0-N0)7  1 
UilCH  PROBLEM  WOULD  YOU  LIKE  TO  WORK  WITH  (TYPE  1«  2'OR  3)7  2 


THIS  SECTION  WILL  DETERMINE  PAYMENTS  FOR  A  LONG  TERM  LOAN. 

IHAT  IS  THE  AMOUNT  BORROWED  ($)7  3000 
INTEREST  CHARGED  (t)7  6 

iNTKRUAi.  BPTVF:E^?  PAY!i«:?2TS  'r!cr:Tii3y7  i 

TERM  OF  THE  LOAN  (YEARS)7  2^ 

DO  YOU  WISH  TO  SEE  THE  TOTALS  ONLY  -  INSTEAD  OK  THE  ENTIRE 
TABLE  -  <1-YES«  0-N0)7  0  - 


OUTSTANDING 

PRINCIPAX.  AT  PRINCIPAL 

BEGINNING  INTEREST  DUE  AT  REPAID  AT 

PERIOD  OF  PERIOD  END  OF  PERIOD  END  OF  PERIOD 

»  3000  20  115.66 

2  2684.3a  19.23  116.45 

3  2767^67  18.45  1 17.23 

4  2650*64  17*67  118*01 

5  2532*63  l6*66  116*6' 

6  2413.63  16*09  1 19*59 

7  2294.24  15*89  120*39 
6  2173*65  14.49  121*19 

9  2052.66  13.66  1«>2 

10  1930.66  12.87  122.61 

11  1607.65  12.05  123*63 

12  1684*22  11.23  124*45 

13  1559*77  10*4  125*26 

14  1434.49  9*56  126*12 

15  1306.37  6*72  126*96 

16  1181*41  7*86  127.3 

17  1053.61  7*02  126.66 

18  924,95  6.17  129*51 
1^  795.44  5.3  130.38 
^  665.06  4*43  131 *25 
81  533.61  3.56  132.12 
22  401.69  2.66  133 

83  266*69  1.79  133.69 

24  134.6  .9  134.76 


TOTALS  256*34  3000 


YOUR  MONTHLY  PAYMENT  IS  S  135.66     AND  TOTALS  S  3256.34 
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Social  Studies 
BANK 


lOULD  YOU  LIKE  TO  RUN  THE  PROGRAM  AGAIN  (l*YES>  0-NO)?  I 
WICH  PROBLEM  VOUU)  YOU  LIKE  TO  VORK  WITH  (TYPE  X,  2' OR  3)?  3 

THIS  SECTION  CALCULATES  THE  BALANCE  Or  A  SAVINGS  ACCOUNT 
IN  WHICH  DEPOSITS  ARE  MADE  REGULARLY. 

fcHAT  15  THE  AMOUNT  DEPOSITED  PER  INTEREST  PERIOD  C$)7  10000 
HOV  OfTENIS  THE  INTEREST  COMPOUNDED  (MONTHS)?  3       '  ' 
fcHAT  IS  THE  RATE  OF  INTEREST  PAID  (X)7  5 
FOR  HOW  LONG  WILL  YOU  DEPOSIT  MONEY  <YSARS>7  5 

THE  BALANCE  OF  YOUR  ACCOUNT  AFTER     5  YEARS  WILL  BE  S  203500 


WOULD  YOU  LIKE  TO  RUN  THE  PROGRAM  AGAIN  (J-YES#  0-N0)7  0 
READY 
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100  R£M  FINANCIAL  PROBLEMS      A*   VEBB  12/67 

101  REM  REVISED  0/25/70  (D*  PESSEL> 
110  PRINT  tABv::0>;**FINANClAL  PROBLEMS** 

115  REM  REVISED  BY  W.  TEPPER*     WYANDANCH  R.S*  7/10/69 
120  PRINT 

130  PR1NT**THIS  PROGRAM  SOLVES  THREE  TYPES  OF  PROBLEMS!** 
132  PRINT 

134  PRINT**  (1}   INTEREST  ON  INSTALLMENT  BUYING** 

136  PRINT"  (2)  PAYMENTS  ON  LONG  TERM  LOAN** 

138  PRINT**  <3>  balance:  OF  A  SAVINGS  ACCOUNT** 

140  PRINT 

144  iNPUrSl*^"  PHOBLEM  WOULD  YOU  LIKE  TO  WORK  WITH  (TYPE   I,   2  OR  3J**i 

146  PRINT 

147  PRINT********* 
140  PRINT 

150  IF  Ql>2  THEN  020 
155  IF  Ql>l  THEN  260 
160  GO  TO  590 

270^PRINt"^"'^  section  WILL  DETERMINE  PAYMENTS  FOR  A  LONG  TERM  LOAN*- 

280  PRINT**WHAT  IS  THE  AMOUNT  BORROWED  <S)**; 
231   INPUT  A 

235  PRINT**  INTEREST  CHARGED  <X)«| 

236  INPUT  I 

290  PRINT**'  INTERVAL  BETWEEN  PAYMENTS  (MONTHS)**; 

291  INPUT  p  *  ... 

295  PRINT**  TERM  OF  THE  LOAN  (YEARS)**; 

296  INPUT  Y 

300  Print 

360  PRINT**D0  YOU  WISH  TO  SEE  THE  TOTALS  ONLY  -  INSTEAD  OF  THE  ENTIRE** 

361  PRlNT**TAaLE  -  (l-YES#  0-NO)**;  THE  ENTIRE* 

362  INPUT  P5 
370  PRINT 

J/6  if  P^>0  THKW  <|3U 

330  PRINT**  OUTSTANDING** 

390  PRINT**  PRINCIPAL  AT  PRINCIPAL** 

^0  PRINT**  BEGINNING  INTEREST  DUE  AT  REPAID  AT** 

P!JfNT**PERIOD  OF  PERIOD  END  OF  PERIOD  END  OF  PERIOD 

4ii0  PRINT 

430  LET  Z-CY*12>/P 

440  LET  K-CI*(P/12)>/100 

445  LET  E-A*K/(I-l/(l>K)t2) 

446  LET  E-INT<£*100**5>/100 
450  LET  C-A 

460  LET  F-0 

461  LET  Dl-0 
470  LET  T1«"0 
430  LET  Ti«TUl 

490   IF  Tl>Z  THEN  554 
500  LET  B-TI 
510  LET  C-C-F 
520  LET  D-C*K 
522  LET  F«E-D 

525  LET  C-INT(C*100>.5)/100 
530  LET  D-INTCD«100>.5>/100 
535  LET  F-1NT(F*100*.5>/100 
541   LET  DliDl+D  * 
548   IF  P5>0  THEN  480 

550  PRINT  B;TABCll);C;rAB(29)iD;TAB(48);F 


Social  Studies 

55a  00  TO  460  •   

554  ir  PS-ct  THEN  56t 

555  PRINT  ' 

556  LET  Dl-INT(Dl*t00^.5>/100 

55S  PRINT"TOTAL  INTEREST'PAID  -  S*'D1 

559  PRINT'*TOTAOL  PRINCIPAL  REPAID  -  S'*A 

560  GO  TO  565 

561  PRINT"    

564  PRl NT^'TOTALS"; TABC 29 > i Dl  i TAB(  48 ) ;A 

565  LEV  ES«INT((Di<^A>*100^.S>/tOO 

566  PRINT 

567  LET  E6-E5/( (Y«18)/P) 

568  LI:T  E6-INT(  100*E6^<5>/100 

569  PHI NT" YOUR  MONTHLY  PAYMENT  IS  S"E6"  /AND  TOTALS  S"E5 

570  GO  TO*  1060 

590  PR!NT"THIS  SECTION  WILL  De.*ERMINE  THE  ACTUAL  INTEREST  YOU  PAY" 
600  PRiNT"VHEN  YOU  PURCHASE  SOMETHING  ON  CREDIT*"'  '  ' 

610  PRltn 

620  PRIn:"WHAT  is  the  CA!^H  price  of  the  article  (S>"i 

621  INPUT  C  •  "-■ 
630  PRINT"  DOWN  PAYMENT  (S>"i 

691   INPUT' D 

640  PRINT"  NUMBER  OF  PAYMENTS  EXCLUDING  THE  DOI/N  PAYMENT^! 

641  INPUTN 

650  PRINT"  NUMBER  OF  PAYMENTS  PER  MONTH"! 

651  INPUT  S 

660  PRINT"  AMOUNT  PER  PAYMENT  <S>"i 

661  INPUT  R 
690  PRINT 

720  LET  B-R*N4D 

730  LET  I-B-C 

740  LET  M-N/(S*12> 

750  LET  T-I*100/(S»M> 

760  PRINT  • 

770  PRINT 

77S  LET  T-INT(100*T+.S)/100 

780PRINT  "THE  ilATE  OF  INTEREST  CHARGED  WAS"T"  PERCENT. 
790  GO  TO  1060 

830  PRINT"IN  WHICH  DEPOSITS  ARE  MADE  REGULARLY." 
840  PRINT  • '  - 

860  PRINT"WHAT  IS  THE  AMOUNT  DEPOSITED  PER  INTEREST  PERIOD  (S>"J 

861  INPUT  A         "  ' 

870  PRINT"HOW  OFTEN  IS  THE  INTEREST  COMPOUNDED  (MONTHS)"! 

871  INPUT  d 

880  PRINT"WHAT  IS  THE  RATE  OF  INTEREST  PAID  (Z>"i 

881  INPUT  C*  " 

890  PRINT"FOR  HOW  LONG  WILL  YOU  DEPOSIT  MONEY  (YEARS)"! 

891  INPUT  D 
950  ICET  F-0 

960  LET  E-(C/100>/(i2/B> 
970  LET  G-(  ia/B>4iD 
980  LET  Tl-0  * 
990  LET  T1-TI>1 

1000  If  ti-q>i  then  1030 
1010  let  f-(e*a>*(a>f> 

1020  GO  TO  990  *  " 
1030  PRINT 
1040  PRINT 

1045  LET  F-JNT(100*F+.5>/100  . 

1050  PRINT"THE  3ALANCE  OF  YOUR  ACCOUNT  AFTER  "D"Y£ARS  WILL  BE  S"F 
1060  PRINT' 
1070  PRINT 

1080  PRINT 

1081  PRINT"*****" 

1082  PRINT 

1084  PRINT"WOULD  YOU  LIKE  TO  RUN  THE  PROGRAM  AGAIN  (1-YES#  0-NO>"J 

1086  INPUT  Q4 

1090   IF  Q4>0  THEN  142 

1100  tHD 
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DISCIPLINE        SOCIAL,  STUDIES  

SUBJECT   CIRCULAR  FLOW  BETWEEN 


BUSINESS  AND  CONSUMER 
PROGRAM  NAME  CIRFLW   


DESCRIPTION! 

Simulation  of  the  circular  flow  of  goods,  services,  and  money, 
between  business  and  the  consumer    in  a  free  enterprise  economy 
without  government  control. 


OBJECTIVES: 

A.  To  explore  the  effect  of  personal  consumption  upon  business* 
demand  for  productive  services  from  the  individual,  and  upon 
personal  income. 

B.  To  demonstrate  that  widespread  uninvested  savings  can  cause  a 
general  drop  in  income. 

C»    T(0  demonstrate  how  credit  buying  can  raise  personal  income, 
in  general. 


PRELIMINARY  PREPARATION: 


Student 

1.  Terms  to  define: 

a.  propensity  to  consume 

b.  savings 

c.  credit 

d.  circular  flow  of  goods,   services,  and  money 

2.  Concepts  for  explanation  or  discussion: 
  Payment  for^oods  and  services 


Payment  for  productive  services:  rent 
wages,  dividenas,  inceresc 


Productive  services 


Goods  and  s  ervic  e s 


CIRCULAR  FLOW 
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Social  Studies 

CIRFLW 


DISCUSSION; 

A.  Operational  Suggestions 

1.  Student  level -average  to  above  average  ability 

2.  Placement  in  curriculum-  Unit:    Economic  growth  and  stability 

3.  Group  size-  may  be  used  individually,  with  small  groups,  or  as 
a  teacher  demonstration. 

B.  Follow-up 

Suggested  classroom  activities: 

1.  Use  the  circular  flow  chart  to  illustrate  one  or  more  of  the 
program  "  run-off . 

2.  Discuss  the  lack  of  aggregate  demand  as  a  cause  for  recession; 
and  the  rise  in  aggregate  demand  as  a  cause  for  growth  or 
inflation. 
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Social  Studies 
CIRFLW  . 


THE  FOLLOWING  WILL  SIMULATE  THE  EFFECT  ON  THE 
CIRCULAR  FLOW  OF  GOODS #   SERVICES  AND  MONEY  WHEN 
ALL  THE  INDIVIDUALS  IN  THE  ECONOMY  SPEND  ALL  THEIR 
INCOME.     IF  THE  AVERAGE  INCOME  IS  S2#500  AND 
EVERY  INDIVIDUAL  SPENDS   100  PERCENT  OF  IT> 
EACH  INCOME  WILL  BE  IN  EQUlUBHI UM--THEY  WILL 
EARN  BACK  FROM  BUSINESS  $2500 
THE  FOLLOWING  WILL  BE  A  COMPUTATION  OF  THE 
VALUES  IN  THE  CIRCULAR  FLOW 

AVERAGE  INCOME-  2500 


PROPENSITY  TO  CONSUME  IS 
iOO  PERCENT 

INDIVIDUAL'S  PAYMENTS  FOR 
ODODS  AND  SERVICES-  2500 

THE  VALUE  OF  GOODS 
AND  SERVICES-  2500 


THE  PERCENT  OF  PRODUCTIVE 
SERVICES  BUSINESS  WANTS 
IS  100  PERCENT. 


THE  RETURN  INCOME 
TO  lNDIVIDUAL-2500. 

THE  ABOVE  REPRESENTS  THE  AVERAGE  OF  ALL  INDIVIDUAL 
INCOMES  IN  THE  ECONOMY.     SINCE  ALL  INDIVIDUALS  CONSUMED 
100  PERCENT  OF  THEIR  INCOME^THEIR  RETURN  I NCOMEIS 
100  PERCENT  OF  THEIR  PREVIOUS  INCOME.  THIS  HAPPENS 
BECAUSE  BUSINESS  NEEDS  100  PERCENT  OF  THE  PREVIOUS 
PRODUCTIVE  SERVICES  TO  MEET  THE  DEMAND. 

THE  RETURN  INCOME  TO  THE  INDIVIDUAL  FROM 
BUSINESS  DEPENDS  TO  A  LARGE  EXTENT  ON  HOW 
MUCH  ALL  INDIVIDUALS  SPENDC THEIR  PROPENSITY  TO 
CONSUME).     COMMON  SENSE  TELLS  US  THAT  IF  AN  IN- 
DIVIDUAL SAVES  PART  OF  HIS  INCOME  AND  xNVESTS  IT 
IN  A  BANK*  HE  WILL  RAISE  HIS  INCOME  BY  MEANS  OF 
THE  INTEREST  ON  HIS  SAVINGS.     BUT  IF  ALL. OR  MANY 
OF  THE  INDIVIDUAL  CONSUMERS  IN  THE  ECONOMY  CUT 
THEIR  CONSUMPTION*   THEN  THE  OVERALL  RETURN  INCOME 
TO  THOSE  INDIVIDUALS  WILL  PROBABLY  DROP. 
BY  CHANGING  THE  PERCENTAGE  OF  YOUR  PROPENSITY 
TO  CONSUME  YOU  CAN  CHANGE  YOUR  INCOME. 

A  PROPENSITY  TO  CONSUME  OF  100  PERCENT  WILL* 
IN  THIS  SIMULATION*   GIVE  YOU  A  RETURN  INCOME 
EQUAL  TO  YOUR  ORIGINAL  INCOME.     ANY  VALUE 
MORE  OR  LESS  THAN  100  PERCENT  WILL  CHANGE 
YOUR  RETURN  INCOME. 

TYPE  IN  A  VALUE  FOR  THE  PROPENSITY  TO  CONSUME* 
A  PERCENTAGE  MORE  OR  LESS  THAN  100  PERCENT. 
PUT  IT  IN  IN  DECIMAL  FORM  (E.G.    .75-75  PERCENT) 


ERIC  "  5y/ 


Social  Studies 
CIRFLU' 


tiiAT  IS  THE  VALUE?  .75 

BECAUSE  YOUR  PROPENSITY  TO  CONSUME  IS  LESS  THAN 
YOUR  INCOME^   YOU  ARE  SAVING  MONEY.      VE  WILL  ASSUME 
THAT  YOU  DIDN'T  PUT  IT  IN  A  BANK  BUT 
RATHER  STUFFED  IT  UNDER  YOUR  MATTRESS*  SO 
YOU  VON"T  RAISE  YOUR  INCOME  WITH  INTEREST 

INDIVIDUAL'S  PAYMENTS  FOR 
GOODS  AND  SERVICES-  1875 

XUiLUE  OF  GOODS  AND  SERVICES 
FRCn^  BUSINESS-^J875 

PERCENT  OF  PRODUCTIVE 
SERVICES  IN  DEMAND-  •75 

RETURN  INCOME  TO  IN- 
DIVIDUAL- 1875 

YOUR  RETURN  INCOME 
HAS  DROPPED  THE  FOLLOWING 
PERCENTAGE  POINTS  FROM 
iOO  PERCENT-  25 

IF  YOU  WISH  TO  PUT  IN  ANOTHER  PERCENTAGE  VALUE 
FOR  THE  PROPENSITY  TO  CONSUME*   TYPE  0 
IF  YOU  WISH  TO  STOP  THE  PROGRAM*   TYPE  1 
7  1 


READY 
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Social  Studies 
CIRFLW 


lOOHEM  THIS  PROGRAM  BY  JAMESEDER>  NORTHPORT  HS,  8/68 
105  REM     REVISED  BY  C.LOSIK  8*27*70 

iiOREM  IT*S  DESIGNED  TO  DEMONSTRATE  THE  CIRCULAR  FLOW  OF 

120 REM  GOODS  AND  SERVICES  IN  THE  U*S«   ECONOMY • 

130 REM  THE  FOLLOWING  ARE  DEFINITIONS  OF  THE  SYMBOLS  USEDl 

140 REM  PER  CAPITA  INCOME  IS  I ^ 10 ;PROPENS I TY  TO  CONSUME  IS  C^CO; 

150REM  PAYMENT  FOR  GOODS  -i-  SERVICES  IS  P^POiVALUE  OF  GOODS  IS 

160REM  V*VO;PEHCENT  OF  PRODUCTIVE  SERVICES   IS  S^SO; 

170REM  RETURN  INCOME  IS  R^RO 

180PRINT"THE  FOLLOWING  WILL  SIMULATE  THE  EFFECT  ON  THE" 
190PRINT"CIHCULAR  FLOW  OF  GOODS#   SERVICES  AND  MONEY  WHEN" 
aOOPRINT"ALL  THE  INDIVIDUALS   IN  THE  ECONOMY  SPEND  ALL  THEIR" 
210PRINT"INC0ME-      IF  THE  AVERAGE  INCOME   IS  S2*500  AND" 
220PRINT"EVERY  INDIVIDUAL  SPENDS   100  PERCENT  OF  IT*" 
230PRINT"£ACH  INCOME  WILL  BE  IN  EQUILIBRIUM-*THEY  WILL" 
240PRINT"£ARN  BACK  FROM  BUSINESS  S2500" 
250PRINT"THE  FOLLOWING  WILL  BE  A  COMPUTATION  OF  THE" 
260PRINT"VALUES  IN  THE  CIRCULAR  FLOW*' 
270R£ADI>C>I0 
-280DATA-  2500>-U2500  - 
290PRINT 

300PaiNT"AVERAGE  INCOME-"; I 

310PRINT 

320PRINT 

330PRINT"PR0PENSITY  TO  CONSUME  IS" 
340PRINT"100  PERCENT" 
350LET  P=iC*I 
360PRINT 

370PRINT"INDIVIDUAL'S  PAYMENTS  FOR" 
3dOPRINT"GOODS  AND  SERVICES-";P 
390LETV«P 
400PRINT 

i:ilOPRINT"THE  VALUE  OF  GOODS" 
420PRINT"AND  SERVICES-"; V 
430PRINT 
440PRINT 

450PRINT"THE  PERCENT  OF  PRODUCTIVE" 
460PRINT"SERVICES  BUSINESS  WANTS" 
470PRINT"IS   100  PERCENT." 
480PRINT 
490PRINT 

500PRINT"THE  RETURN  INCOME" 
510PR1NT"T0  INDIVIDUAL-2500." 
520PRINT 

530PRINT"THE  ABOVE  REPRESENTS  THE  AVERAGE  OF  ALL  INDIVIDUAL" 
540PRINT"INC0MES  IN  THE  ECONOMY-     SINCE  ALL  INDIVIDUALS  CONSUMED" 
550PRINT"100  PERCENT  OF  THEIR  INCOME^THEIH  RETURN  INCOMEIS" 
560PRINT"100  PERCENT  OF  THEIR  PREVIOUS  INCOME.   THIS  HAPPENS" 
570PRINT"BECAUSE  BUSINESS  NEEDS   100  PERCENT  OF  THE  PREVIOUS" 
580PRINT"PR0DUCTIVE  SERVICES  TO  MEET  THE  DEMAND." 
590PRINT 

600PRINT"THE  RETURN  INCOME  TO  THE  INDIVIDUAL  FROM" 
610PRINT"BUSINESS  DEPENDS  TO  A  LARGE  EXTENT  ON  HOW* 
620PRINT"MUCH  ALL  INDIVIDUALS  SPENDC THEIR  PROPENSITY  TO" 
630PRINT"C0NSUME) .     COMMON  SENSE  TELLS  US  THAT   IF  AN  IN-" 
640PRINT"DIVIDUAL  SAVES  PART  OF  HIS  INCOME  AND  INVESTS  IT" 
650PRINT-IN  A  BANK*  HE  WILL  RAISE  HIS  INCOME  BY  MEANS  OF" 
660PRINT"THE  INTEREST  ON  HIS  SAVINGS.     BUT   IF  ALL  OR  MANY" 
670PRINT"0F  THE  INDIVIDUAL  CONSUMERS  IN  THE  ECONOMY  CUT** 
660PRINr*THEIR  CONSUMPTION*   THEN  THE  OVERALL  RETURN  INCOME" 
690PRINT"T0  THOSE  INDIVIDUALS   WILL  PROBABLY  DROP-" 
700PRINT"BY  CHANGING  THE  PERCENTAGE  OF  YOUR  PROPENSITY  " 
710PRINT**T0  CONSUME  YOU  CAN  CHANGE  YOUR  INCOME." 
780PRINT 

730PRINT**A  PROPENSITY  TO  CONSUME  OF  100  PERCENT  WILL*" 
740PRlNT"IN  THIS  SIMULATION*   GIVE  YOU  A  RETURN  INCOME" 

Er|c  3^6* 


Social  Studies 
CIRFLW 


750PRINr*EQUAL  TO  YOUR  ORIGINAL  INCOME*     ANY  VALUE" 

760PRINT"M0H£  OR  LESS  THAN  100  PERCENT  WILL  CHANGE'* 

77QPRINT"Y0UR  RETURN  INCOME." 

780PRINT 

790LETN-1 

600  PRINT  "TYPE  IN  A  VALUE  FOR  THE  PROPENSITY  TO  CONSUME*" 
810  PRINT  "A  PERCENTAGE  MORE  OH  LESS  THAN  100  PERCENT.** 
820  PRINT  "PUT  IT  IN   IN  DECIMAL  FORM  (E.G.    .75-75  PERCENT)" 
830  PRINT 

840  PRINT  "WHAT  IS  THE  VALUE"; 
850INPUTC0 
860IFC0<1   THEN  960 
870IFC0>1THEN  1030 
890IFN-3  THEN930 
9Q0PRINT"WE*LL  GO  BACK" 
910LETN«N-*'l 
920  GOTO  800 

930PRINT'*EITHER  YOU  VERE  CARELESS  OR  YOU  VERE  BEING  *' 
940PRINT"VISE.    IN  EITHER  CASE*    SUFFER  THE  CONSEQUENCES.'* 
950  STOP 

?60PRINT"BECAUSE  .YOUR  P„RpPENSI  TY  „TO  CONSUME  I  S  LESS  JHAN" 
970PRYNT"YdUR  INCOME*   YOU  ARE  SAVING  MONEY.      WE  WILL  ASSUME" 
980PRINT"THAT  YOU  DIDN'T  PUT  IT  IN  A  BANK  BUT" 
990PRINT"RATHErt  STUFFED  IT  UNDER  YOUR  MATTRESS*  SO" 
1000PRINT"Y0U  WON'T  RAISE  YOUR  INCOME  WITH  INTEREST" 
1010G0T01070 
1020PRINT 

10  30PRINT"BECAUSE  YOUR  PROPENSITY  TO  CONSUME  IS  GREATER" 

1040PRINT"THAN  YOUR  INCOME*   YOU  ARE  BUYING  ON  CREDIT." 

10 50PRINT"THAT  MEANS  YOU  ARE  BUYING  NOW  WITH  WHAT  YOU  EXPECT  '• 

1060PRINT"T0  EARN  IN  THE  FUTURE." 

10  70LETP0»I0«C0 

1080PRINT 

1090PRINT"INDIVIDUAL'S  PAYMENTS  FOR" 
1100PRINT"G00DS  AND  SERVICES-";PO 
11 lOPRINT 
1120LET  VO-PO 

1130PRINT'*VALUE  OF  GOODS  AND  SERVICES" 
1140PRINT"FR0M  BUSINESS-"; VO 
1150LETSO»CO 
1160PRINT 

1170PRINT"PERCENT  OF  PRODUCTIVE" 
1180PRINT"SERVICES  IN  DEMAND-";SO 
1190LET  R0«I0«SO 
1200PRINT 

Ji210PRINT"R£TURN  INCOME  TO  IN-" 

1220PRlNT"DIVIDUAL-";aO 

1230PRINT 

1240IFH0<2500  THEN  12  70 
1250IFRO»2500THEN  1320 
1260PRINT 

1870  LET  P2-INT< 100-100*C0+.5> 
1280PRINT"Y0UR  RETURN  INCOME" 
1290PRINT"HAS  DROPPED  THE  FOLLOWING" 
1300PRINT-PERCENTAGE  POINTS  FROM- 
1310PRINT"100  PEHCENT-";P2 

1320PRINT"IF  YOU  WISH  TO  PUT  IN  ANOTHER  PERCENTAGE  VALUE" 

1330PRINT"F0R  THE  PROPENSITY  TO  CONSUME*   TYPE  0" 

1340PRINT"IF  YOU  WISH  TO  STOP  THE  PROGRAM*   TYPE  1" 

1350INPUT  W 

1355  PRINT 

1360IF  W«0  THEN  800' 

1365  IF  Wol   THEN  1320 

1370  END 
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DISCIPLINE     SOCIALr  ST UDIES 


SUB  J  EC  T  DEPRESSION/  EQUILIBRIUM 
PROGRAM  NAME  CONSMP 


DESCRIPTION: 

This  program  simulates  economic  depression  and  equilibrium 
as  effects  of  consumption. 


OBJECTIVES! 

A.  Depression  or  recession  results  when  consumption  drops  below 
the  capacity  to  produce. 

B.  Equilibrium  results-whenxonsumption.  equals  .the  capacity  to  produce. 

C.  One  cause  for  "  over-production"  is  a  time-lag  in  discovering  a 
drop  in  consumption. 

PRELIMINARY  PREPARATION: 

A.  Student  -  terms  to  define  and  explain: 

  # 

1.  Depression  6.  Investment 

2.  Recession  7.  Savings 

3.  Equilibrium  8.  GNP 

4.  Under-consumption  9.  Productive  Services 

5.  Overproduction 

B.  Materials  -  Introduce    this  program  with  the  Circular  Flow  model 
of  goods,  services  and  money.   (See  program  CIRFIAV J 

DISCUSSION: 

.A.      Operational  Suggestions 

1.  Student  level  -  above  average 

2.  Curriculum  location  -  advanced  economics  unit  on  economic 
growth  and  stability. 

B.      Suggested  Follow-up 

Discussion  topics: 

1.  Consider  possible  causes  for  a  drop  in  consumption, 

2.  With  advanced  students,  discuss  the  (Keynesian)  concept  of 
"  equilibrium  at  less  than  full  employment,  " 
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THIS  PROGRAM  SIMULATES  THE  EFFECTS  OF  CONSUMPTION  ON  THE 
OOP*   IT  PRINTS  OUT  THE  VALUES  FOR  THE  COMPONENTS  OF  THE 
CIRCULAR  FLOW  MODEL  OF  GOODS#   SERVICES  AND  MONEY* 

ASSUME  GNP  IS  100  BILLION* 

TYPE  IN  A  VALUE  FOR  PROPENSITY  TO  CONSUME* 
mKZ  THE  VALUE  BETWEEN  0  AND  *75 
7  .75 

ORIGINAL  GNP-  100 

PROPENSITY  TO 
CONSUME--.  *75 

CONSUMPTION-  75 

VALUE  OF  GOODS 
♦  SERVICES-  75 

SAVINGS-  25 

INVEST*-  25 

LABOR-  *75 

RETURN  GNP-  100 

EQUILIBRIUM. 


TO  PUT  IN  ANOTHER  CONSUMPTION  VALUE* TYPE  0* 
TO  STOP*   TYPE  1 
7  0 

TYPE  IN  A  VALUE  FOR  PROPENSITY  TO  CONSUME* 
MAKE  THE  VALUE  BETWEEN  0  AND  *  75 
7  .80 

READ  carefully; INPUT  AGAIN* 
7  7-* 70 

IF  STARTING  *TYPE  100 (GNP); IF  NOT 
STARTING*TYPE  VALUE  OF  RETURN  G::P  * 
7  100 

ORIGINAL  GNP-  100 

PROPENSITY  TO 
CONSUME-  *7 

CONSUMPTION-  70 

VALUE-  70 

SAVINGS-  30 

INVESTMENT  BY  PERIODS: 
1-3M0NTH5  5 
4*6M0NTHS  4*9375 
7-9M0NTHS  4*875 
10-12H0NTHS  4.8125 
END  OF  12TH  MONTH  4*75 
TOTAL  FOR  YEAR  24.375 
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OVER- INVESTMENT 
LABOTHJ 

1-3M0NTHS-  .15 
4-6M0NTHS-  .1475 
7-9M0NTHS-  .145 
10-12M0NTHS-  .1425 
END  OF  12M0NTH-  .14 
TOTAL  FOR  YEAR-  . 725 

WPt 

1-3M0NTHS-  15 
4-6M0NTHS-   14.98  75 
7-9M0NTHS-  14.9  75 
10-12M0NTHS-  14.9625 
END  OF  12  MONTH-  14.95 
TOTAL  FOR  YEAR-  94.375 

RECESSION 

INVENTORY  OVERPRODUCED-  23.125 

TYPE  DECIMAL  VALUE  FOR  PROPENSITY  TO 

CONSUME-      

7  .65 

IF  STARTING  #TYPE   100(6NP);iF  NOT 
START I NG# TYPE  VALUE  OF  RETURN  GNP. 
7  94.375 

ORIGINAL  GNP-  100 

PROPENSITY  TO 
CONSUME-  .65 

CONSUMPTION-  61.34375 

VALUE-  61.34375 

SAVINGS-  33.03125 

9JP-  63.21875 

TYPE  DECIMAL  VALUE  FOR  PROPENSITY  TO 

CONSUME 

7  .60 

IF  STARTING  #TYPE  100 (GNP); IF  NOT 
STARTING#TYPE  VALUE  OF  RETURN  GNP. 
7  63.21675 

ORIGINAL  GNP-  100 

PROPENSITY  TO 
CONSUME-  .6 

CONSUMPTION-  37.93125 

VALUE-  37.93125 

SAVINGS-  25.2875 

GNP-  41.68125 

TYPE  DECIMAL  VALUE  FOR  PROPENSITY  TO 

CONSUME 

7  .55 

IF  STARTING  >TYPE  100 C GNP); IF  NOT 
STAHTING^TYPE  VALUE  OF  RETURN  GNP. 
7  41 .68125 
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CONSMP 


ORIGINAL  QNP*  100 

PROPENSITY  TO 
CONSUME-  ^55 

CONSUMPTION-  22*92469 

VALUE-  22*92469 

SAVINGS-   16 •75656 

GNP-  26*54969 

TYPE  DECIMAL  VALUE  FOR  PROPENSITY  TO 
CONSUME 

♦C 

READY 
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Social  Studies 
CONSMP 


100REM*-PR0GHAM  BY  JAMES  £D£R#  NORTHPORT  HS#  8/68 

ll0REM--aEVISED--8/l2/69~<R0D> 

115  REM     REVISED  BY  C.LOSIK  8-27-70 

120PRINT"THIS  PROGRAM  SIMULATES  THE  EFFECTS  OF  CONSUMPTION  ON  THE" 
130PRINT"GNP«   IT  PRINTS  OUT  THE  VALUES  FOR  THE  COMPONENTS  OF  THE" 
140PRINT"CIRCULAR  FLOW  MODEL  OF  GOODS,   SERVICES  AND  MONEYv" 
170PRINT  , 
180R£ADY#P1 
190  DATA  100  #.75 

aOOPRINT"ASSUME  GNP  IS   100  BILLION*" 

210  PRINT  "TYPE  IN  A  VALUE  FOR  PROPENSITY  TO  CONSUME." 

220  PRINT  "MAKE  THE  VALUE  BETWEEN  0  AND  #75" 

230LETCI»Y*P1 

240LETI  J:»'Y-C1 

250  LET  ia«0 

260 INPUT  P2 

2:65  LET  W«N>i 

266  IF  P2<0  THEW  220 

2  70 1 FP2"  •  75TH£:N420 

280jfZ2<jfJ3mmiJX}....^   -  -  

310:tFN»2THEN360 
320IFN«3THEN390 

330PRiNT"READ  CAREFULLY; INPUT  AGAIN." 
350G0T0260 

360PRiNT"C0ME  ON. • .I'M  WARNING  YOU." 
330eOT0260 

390PRIN.T"0K  WISE  GUY*YOU»RE  OFF." 

400(30101930 

4J0PBINT 

420LETV1-C1 

430LETSi-Y-Cl 

440LETL1-P1 

450LE'rYi-Cl+1 1 

460PRINt 

470PRINT"0RIGINAL  GNP-";Y 
480PRINT 

490PRINT"PR0PENSITY  TO" 

500PRINT"C0NSUME-";P2 

510PRiryT 

520PRI  NT*'CONSUMPTI  ON-";  C 1 
530PRINT 

540PRI  NT" VALUE  OF  GOODS*' 
550PRINT"+  SERVICES-"; VI 
560PRINT 

570PRINT"SAVINGS-";S1 
560PRINT 

590PRINT"INVEST.-"; II 
600PRINT 

61 0PRINT"LAB0R-" ; L 1 
620PR1NT 

630PRINT"RETURN  GNP-";y1 
640PRINT 

650PRtNT"EQUILI3RIUM." 

660PRINT 

670PRINT 

660PRINT 

690PR1NT"T0  PUT  IN  ANOTHER  CONSUMPTION  VALUE^TYPE  0." 

700PRINT"T0  STOP,   TYPE  1" 

710INPUTQ8 

7&0IFQ8-0THEN210 

730IFQ8-1THEN1930 

740PRINT"TYPE  DECIMAL  VALUE  FOR  PROPENSITY  TO" 
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CONSMP 


TSOPRINfCONSUME" 
760G0T0260 

770PRINT"IF  STARTING  #TWE  100(GNP>;iF  NOT" 

780PRINT"STARTING#TYPE  VALUE  OK  RETURN  GNi=>  • 

790INPUTY8 

600LETC2«P2«Y8 

810LETV2-C2 

620LETS2-Y8-C2 

aaOPRINT 

840PRINT"0RIGINAL  GNP-";Y 
850PRINT 

«60PRINr'PR0PENSITY  TO  " 

870PRINr'C0NSUME-";P2 

880PRINT 

890PRINT"C0NSUMPTI ON-"; C2 
900PRINT 

910PR1NT"VALUE-";V2 
920PRINT 

930PRINT"SAVINGS-";S2 
940PRINT 

 950LETG"  C  Ll.>j*(P  l^P2>  -  _ 

960LETI2-I 1 

970LET22»I24i*20 

980LETI3»Il-( •25«Q> 

990LET2:3«I34i.20 

1000LETI4-I l-( .SO^U) 

1010LETZ4-I44I.20 

1020LETI5-I l-( .75*G) 

10  30LETZ5-I54'*20 

1040LETI6-I 1-a 

1050LETZ6-I64'*20 

1060LETI 7-^2+23+24+25+26 

10  70LETF-(C2  +  I2>-0 

1080LET0»I7-G 

1090LETF1-F-01 

llOOLETOl-F-Q 

U 10LETF2-F1-02 

1120LET02-FI-Q 

1130LETF3-F2-03 

1140LET03-F2-Q 

1150LETF4-F3-04 

il60LET04-F3-Q 

1170LETF5-F4-05 

1180LET05-F4-Q 

1190LETF6-r5-06 

1200LET06-F5-G 

1210IFF<Y7THEN1 760 

12201FFKFTHEN1  780 

1230 I FF2<F1 THEN 1 800 

1240 I FF3<F2TH£N 1 820 

1250IFF4<F3TH£N1840 

1 260 I FF5<F4THEN 1 860 

1 2  70 1 FF6  <F5  THEN  X 8  80 

1280PR1NT"INVESTMENT  BY  PERIODS!" 
1 290PRI NT" 1  - 3M0NTHS" i  22 
1300PRINT"4-6M0NTHS"i23 
131 OPRI NT" 7-9M0NTHS"i  24 
1320PRI NT" 10-1 2M0NTHS" i  25 
1330PRINT"£ND  OF   12TH  MONTH"; 26 
1340PRINT"T0TAL  FOR  YEAR"; I  7 
1350PRINT 

1360PRI NT"OVER- I NVESTMENT" 
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13  70PRINT 

1360LETQ2»P1-P2 

1390LETL2«Pl 

1400LETX2»L2*.20 

14lOLETL3-P2+< . 75«Q2) 

1420LETX3sL3*.20 

1430LETL4-P2'i'(  •50«Q2) 

1440LETX4-L4*o20 

1450LETL5-P2'^C  •25«Q2) 

1460LETX5"L5*.20 

1470LETL6»P2 

1480LETX6xP2*.20 

1490LETL7=X2+X3+X4+X5+X6 

ISOOPRINr'LABORl" 

ISIOPRINT'M  -3M0NTHS-";X2 

1520PRINT"4-6M0NTHS-";X3 

l530PRlNT"7-9M0NTHS-"fX4 

i54dPRI NT" 10 -T2M0NTriS-" ;X5 

1550PR1NT"END  OF  12M0NTH-";X6 

1560PRINT"T0TAL  FOR  YEAR-";L7 

15  70PRINT 

1580LETY2-  v  C2-i'Z2  )  ♦  •  20 

1590LETY3«CC2+i:3>*.20 

1600LETY4-(  02-1-2:4)  ♦  .20 

16 10LETY5- <  C2+Z5 ) * . 20 

1620LETY6-(C2-i-£6)4i*20 

1630LETY7»C2+I7 

1640PRINr'GNPl" 

1650PRINrM-3M0NTHS-";Y2 

1660PRINT"4-6M0NTHS-"iY3 

16  70PRINT"7-9M0NTHS-";Y4 

1 680PRI  NT"  i  0  - 1  2M0NTHS     ;  Y5 
1690PRINT"END  OF   12  MONTH-"; Y6' 
1700PRINr'T0TAL  FOR  YEAR-";Y7 
1710PRINT 

1 720PRI NT"RECESS I ON" 
1730LET0-I 7-G 

1740PRI NT" INVENTORY  OVERPRODUCED-"; 0 

1750 GOTO 740 

1 760PRI NT"GNP-"; F 

1770IFF>0THEN740 

1 780PRI NT"GNP — "; F 1 

1 790 1 FF 1 >0  THEN 740 

1800PRINT"GNP--";F2 

18£OIFF2>OTHEN740 

1820PRINT"GNP--";F3 

1 8  30 1  FF  3  >0  THEN  740 

1840PRINT"GNP — ";F4 

1850IFF4>0THEN740 

1860PRINT"GNP--";F5 

1870IFF5>0THEN740 

l880PRINT"GNP--"iF6 

1890PRXNT 

1900PRINT"T0TAL  DEPRESSION" 

1910G0T0690 

1920PRINT 

1930  END 


DISCIPLINE    MATHEMATICS,  SOCTAT.  qrTTnTTr.f; 
SUBJECT         THE  STOCK  MARKET 
PROGRAM  NAME  STOCK 


DESCRirTION: 

This  progivim  simulates  the  stock  market.  Each  student  is 
given  $10,000  with  which  he  may  buy  and/or  sell  shares  in  five 
fictitious  issues. 

OBJECTIVES: 

A,  To  give  the  student  a  simple  understanding  of  the  oper- 
ations of  the  stock  market. 


B,  To  motivate  the  student  to  reinforce  his  basic  arithmetic 
skills. 

C,  To  give  an  example  of  the  use  of  everyday  matliematics 
and  economics  in  everyday  life. 

PIUilLIMIMAKV  PRE  PACTION: 

A.  Student  -  no  special  preparation 

B,  Ma terials  -  possibly  graph  paper 
DISCUSSION: 

This  program  can  be  used  as  a  good  motivation  device  in  the 
teaching  of  basic  stock-market  concepts,  and  the  basic  mathemat- 
ical skills  involved.    The  computer  starts  each  student  with  $10,000, 
and  allows  him  to  buy  and/or  sell  shares.    Precautionary  tests  are 
included  for  the  student  who  tries  to  purchase  more  shares  than 
he  has  money  for,  or  to  sell  more  shares  than  he  actually  owns. 
The  program  continues  i'or  as  many  trading  days  as  the  student  de- 
sires. 

The  stock  values  rise  and  fall  on  a  semi-random  basis.  On 
each  trading  day  all  stocks  undergo  a  small  random  price  change, 
a  trend  change  (based  on  a  random  trend),  and  the  possibility — 
on  a  random  basis — of  a  large  price  change.    The  structure  of  the 
formula  is: 

new  price=old  price  -r  (trend  x  old  price)  +  (small  random  price 
change)  H-  (possible  large  price  change) 


22 


e    Copyright  1971,  Polytechnic  Institute  of  Brooklyn 


Mathematics-Social  Studies 
STOCK 


ERIC 


The  trend  is  a  random  number  between         and  +.1.     It  remains 
constant  for  a  random  number  of  days,  at  which  time  the  trend  is 
changed. randomly.    The  trend  affects  all  stocks  equally,  and  attempts 
to  simulate  general  market  trends.    The  small  random  change  ranges 
between  -3  and  +3  points.     It  occurs  every  day  to  every  stock. 
The  possible  lar^c  price  change  is  either  +10  or  -10  points.  The 
+  and  -  changes  each  occur  at  random  day  intervals,  and  to  random 
stocks.    That  is,  there  may  be  no  large  change  on  some  trading  days, 
only  a  +10  change  on  others,  a  -10  change  on  still  others,  and  both 
large  and  small  changes  on  others.     In  all  large-change  cases,  the 
change  affects  only  one  random  stock  when  it  occurs. 

Because  of  the  random  generation  of  stock  values  and  their 
fluctuations,  the  program  does  not  exactly  simulate  the  real  market. 
It  docs,  however,  provide  a  simplified  view  of  what  does  happen, 

.3M  &"liliarizes„_„the„student.^^^^  -involved.  This 

should  be  explained  to  the  students,  along  with  some  real  causes 
of  stock-market  fluctuations. 

Graph  paper  might  be  used  to  plot  the  daily  stock  values  and 
the  exchange  average.    In  this  way,  the  trend  will  become  evident. 
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THK  STOCK  MARKET 
DO  YOU  WANT  THE  INSTRUCTIONS  (YES-TYPE  I,  NO-TYPE  0)7  1 


THIS  PHOGHAM  PU\YS  THE  STOCK  MAaXET*     YOU  WILL  BE  GIVEN 
SlO/OOO  AND  KAY  ruY  OR  StLL  STOCKS*     THE  STOCK  PRICES  WILL 

BE  cr.sEHATiSD  nAr;nr;:LY  i\md  TJii:nE>"oaE  this  iiodel  does  not* 
fiEPR'.':sj::jT  r.;:ACTLV  rjAT  happkijs  uh  tke  exchai^ge.    a  table 

OF  available  STOCKS/  THEIR  PRICES/  AND  THE  NUMBER  OF  SHARKS 
IN  YOUU  PORTFOLIO  Wi;.L  CE  PRIWTKD*     FCLLOUI^G  THIS/  THE 
INITIALS  OF  ElACH  STOCIC  UILL        PRINTED  UITH  A  QUESTION 
HARK.     HERE  YOU  If.'OlCATE  A  V/L.::SACTlON.     TO  BUY  A  STOCK 
TYPE  ♦IWM/  TO  Si;U.  A  STOCK  TYPE  -KWrj/   WHERE  IJ.^N  IS  THE 
NUl^DCR  OF  SHAilES*     A  BROKERAGE  FEE  OF  11  WILL  BE  CHARGED 
ON  AIX  TRANSACT  I  C*JS.     IJOTE  T,lfi7  IF  A  STOCK'S  VALUE  DROPS 
TO  ZrRO  IT  !1AY  RTt'OUHD  TO  A  POSITIVE  VALUt;  AGAIN.  YOU 
HAVE  S10#000  TO  IlJVi:ST.     USE  INTCC^IS  FOR  ALL  YOUR  INPUTS* 
<NOTC€     TO  GET  A   'KEEL*  FOR  THE  t^IAHKET  RUN  FOR  AT  LEAST 
10  DAYS)  ' 
——GOOD  LUCK!  


STOCK  INITIALS 

INT*  HALLISTIC  MISSILES  '  IBA 
RED  CROSS  OF  Ah!EHICA  RCA 
UCHTENSTEIW/  BU:<liAP  A  UOKE  LBJ 
A^IERICAM  BANKRUPT  CO.  ABC 
CENSllRED  BOOKS  STORE  CBS 


TOTAL  STOCK  ASSETS  ARE      S  624 
TOTAL  CASH  ASSETS  ARE        S  916rfes 
TOTAL  ASSETS  ARE  S  9990. SS 


PRICE/SHARE 
85.75 
55*5 
155*35 
136 

104.25 


E  '  NET  PRICE  CamiGC 

10*75' 
*4*S  . 
*S  -1*75 
*5  *2*5 
-5*85 


CUANGKl  -*65 


NSV  YORK  STOCK  EXCHANGE  AVERAGE!  113.75 

yf%*FAi     CTfinv   ACCrfrr.   ado*         «  f\ 

TOTAL  CASH  ASSETS  ARE  S  10000 
TOTAL  ASSETS  ARE  S  10000 

WAT  IS  YOUR  TRAt^SACTION  IN 

id:i7  ft 

RCA7  3 

LB%I7  I 

ABC7  1 

C8S7  1 


END  OF  DAY'S  TRADING 


STOCK 
IBM 

itt:A 
L6;i 

ABC 
CBS 


PRI CE/SHARE 
96*S 
81 

153*5 
135*5 
99 


HOLDINGS 
8 
3 
i 
i 
I 


VALU] 
193 
843 
153 
135 
(9 


ISV  YORK  STOCK  EXCHANGE  AVERAGES  113.1 


NET 


00  YOU  WISH  TO  CCrJTINUE  (YES-TYPE  U  NO-TYPE  0)7  1 
UiAT  IS  YOUR  TRANr.;;CTION  IN 
IBM7  5 
ACA7  1 
LBJ7  1 

A8C7   1  , 
C8S7  0 
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XEH 

CSS 


PRXCS/SMAAE  HOLDXNdS  VALUE  NET  PHZCE  CUANQE 

98. 7&  7     *  691*25  8.85  * 

d8.5  4  330  i*5 

154  8  308  .5 

133*5  8  867  -8 

108*73  1  108*75  3*75 


NEW  YOHK  STOCK  CXCHAMOS  AVEHAaEl     114*3        NET  CUANQSl  1*8 

TOTAL  STOCIC  ASSETS  ARE      5  1699 
TOTAL  CA:>;i  ASSU.T5  ARE        S  C305*83 
TOTAL  ASStYS  AllU  S  10004*83 

DO  YOU  WISH  TO  COriTXtJUS  <YES-TYPE  1#  NO-TYPE  0>?  1 

UiAT  IS  VOUR  TIIACJSACTICN  IN 

XI3M7  3 

RCA7  8 

LBJ7  5 

ABC7  -1 

CBS7  3 


CUD  OF  DAY«S  TRADING 


STOCK 

r«?A 

LBJ 
A9C 
Cd5 


PRICE/SKAllE 
99*85 
88*85 
154*75 
133*5 
103*85 


HOLDINGS 
10  ' 
6 
7 
1 
4 


VALUL 
998*5 
493*5 
1083*85 
133*5 
413 


KST  PRICE  CHANGS 

c5 
-•85 

.75 

0 

•5 


NEV  YORK  STOCK  EXCHANGE  AVERAQEI  114*6 


NET  CHANQEt 


TOTA»-  STOCK  ASSETS  ARE      S  3115*75 
TOTAL  CASH  ASSETS  ARC        %  6688*5 
TOTAL  ASSillTS  ARE  S  9998*85 

DO  YOU  WISH  TO  CONTIfaiS  (YES-TYPE  U  NO-TYPE  0)7  1 
UiAT  IS  YOUR  TRANSACTION  IN 
IDH7  5 

RCA?  3 

1JBU7  5 

A8C7  3 

CaS7  4 


^«(«»««««*    END  OP  DAV*S  TRADING 


STOCK 
IDM 

ncA 

LDJ 
ARC 
C&S 


PRICE/SilARE 
96*75 
80*5 
150 
132 
98*75 


HOLDINGS 
15  * 
9 

18 

4 

6 


VALUE 
1451*85 
784;5 
1800 
588 
790 


NET  PRICE  CHANaS 

-8*5  " 

-1*75 

-4*75 

-1*5 

•*4*S 


»£V  YORK  STOCK  CXCHAt^OE  AVERAQEi  111*6 


NET  CHANGE  I 


TOTAL  STOCK  ASSETS  ARE  S  5893*75 
TOTAL  CA^>:i  ASSETS  ARE  S  4588*55 
TOTAL  ASbCVS  Allfi:  %  9688*7 
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00  YOU  WISH  TO  CONTINUE  <YES-TYPE  l#  HO-TYPK  0^?  I 
ttlAT  IS  YOUR  TRmNSACTIOSJ  IN 
IDM?  0 

LBJ7  -7 
ABC?  0 
CBS?  -5 


^•«««««««  END  OF  DAY'S  THADING 

STOCK  I'HICE/SHARE      HOLDINGS  VALUE  NET  PRICE  CHANGS 

is  66.75  4  567  -laWS 

LBJ  150.75  5  753.75  -75 

ASC  i32  4  580  0 

CBS  ^5.75  3  £67. B5  -3 


NEV  YORK  STOCK  EXCHANGE  AVERAQEl     106.4        NET  CliANGEl  -3.2 

TOTAL  STOCK  ASSETS  ARE  »  3267.25 
TOTAL  CASH  ASSETS  ARE  S  6455.74 
TOTAL  ASSETS  ARE  »  9742.99 

DO  YOU  WISH  TO  CONTINUE  CYES-TYPE  l»  NO-TYPE  0)?  I 

WAT  IS  YOUR  TRANSACTION  IN 

IBMt  -10 

RCA?  -2 

LBJ?  2 

ABC?  2 

CBS?  0 


END  or  DAY*S  TRADING 

STOCK  PRICE/SHARE      HOLDINGS  VALUE  NET  PRICE  CHANGE 

IBM  67. 5  5     "  437.5  -9.25 

^         ^°         ^  'ail 

LSJ  135.25  7  946.75  -15.5 

CBS  ^^•75  3  296.25  3 


NSV  YORK  STOCK  EXCHANGE  AVERAGE!     100.4        NET  CHANGEI  -8 

TOTAL  STOCK  ASSETS  ARE      S  2531.5 
TOT^L  CASH  ASSETS  ARE        S  6974.56 
TOTAL  ASSCTS  ARE  »  9506.06 

DO  YO'J  WISH  TO  CONTINUE  (YES-TYPE  I*  NO-TYPE  0>?  I 

WAT  IS  VOUn  TRAtiSACTlON  IN 

I&M?  -4 

ftCA?  -I 

LBJ?  -6 

ASC?  -8 

C:5St  '2 
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BND  or  OAY*S  TRAOXNO 


STOCK 

im 

LBJ 
A3C 
CBS 


PRICK/SHARE  HOLDINGS  VALU£  NET  PUiCt  CHAt.'QB 

60  1     *  80  -7.5 

51  i  51  -7 

lfil.75  1  lfil.75  -13.5 

109.5  4  436  ^13 

91.5  1  91.5  -7.85 


^ev  YORK  STOCK  EXCKm^GS  AVERAGE t  90.75 

TOTAL  STOnU  ASSETS  ARC      %  762.85 
TOTAL  CASH  ASSISTS  ARE        S  0619.96 
TOTAL  ASStbTS  ARE  S  940&.81 


DO  YOU  VISU  TO  CONTltJUE  (YES-TYPE  U  KO-TYPfi  0)7  1 

UKAT  IS  VCUIl  TRANSACTION  IN 

12H7  0 

RCA7  0 

LBJ7  0 

ABC7  -3 

CB57  0 


ZHO  or  DAY*S  TRADING 


NET  CHANGE!  -9.65 


STOCK 
IBM 
RCA 
LOJ 

Arc 
cds 


PRICE/SHARE  HOLDINGS  VALUE  HET  PRICK  CHANO:!: 

77.5*  I     *  77.5  -8.5 

58.85  1  58.n£V  1.^5 

119.85  1  119. r5  -a. 5 

107  1  107  -2.5 

98.85  1  98.85  .75 


NEV  YORK  STOCK  EXCHANGE  AVZRAGSI  89.65 

TOTAL  STOCK  ASSrTS  ARE      S  448.85 
TOTAL  CASH  ASSETS  ARE        %  8945.18 
TOTAL  ASSETS  ARE  S  9393.^3 


DO  YOU  WISH  TO  CONTINUE  C YES-TYPE  l>  NO-TYPE  0>?  1 

IHAT  IS  YOUR  TRAfJSACTlOH  IN  "  * 

IDM7  0  -  - 

nCA7  0 

L3J7  0 

AnC7  0 

CBS7  10 


NET  CHA«^JQEt  -l.l 


END  or  DAY'S  TRADING 


STOCK 

IBM 

fCfi 

ABC 
CBS 


PRI CE/SHARE      HOLD J  UGS 
74«5* 
54 
107 
106 

CO. 75  11 


VALUE  NET  PRICE  CIJANOE 

7A.5  -3 
54  1.75 

107  -18*85 
106  1 

998. C5  -1.5 
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NEV  YOflK  STOCK  CXCHANOS  AVCRAOfil  66.65 


MET  CHANQEI  •fi*6 


TOTAL  STOCK  ASSETS  ARE  S  1341*75 
TOTAL  CAMl  ASSETS  AKS        S  6013*46 

TOTAL  as:;i:ts  are  s  9355*81 

00  YOU  UXSJI  TO  CONTXmrE  (YES-TYPE  U  NO-TYPE  0>7  I 

WAT  IS  YOUR  TRANSACTION  IN  '  ' 

IBI17  5  .  . 

RCA7  6 

LBJ?  to 

AdC?  10 

CaS?  10 


END  or  DAY'S  TRADING 


STOCK 

IBM 

RCA 

LDJ 

A8C 

CBS 


PRICE/SHARE 
7ft     ■  • 

sa.s 

105 

103*25 
91*5 


H0LDIN6S 
'6  ' 

7 

11 

11 

81 


VALUE 
438 
367*5 
1155 
1135*75 
1981*5 


NET  PRICE  CHANQE 

-8*5 

-1*5 

-a 

-4*75 
.75 


NBV  YORK  STOCK  EXCHANGE  AVERAGE  t  64.65 


NET  CUANQSl  -8 


TOTAL  STOCK  ASSETS  ARE  S  5011*75 

TOTAL  CASH  ASSETS  ARE  S  4281.92 

TOTAL  ASSETS  ARE  S  9833.67 

DO  YOU  VZSil  TO  CONTINUE  (YES-TYPE  1#  NO-TYPE  0>7  0 
HOPE  YOU^RAD  FUNt I  ' 


READY 
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100  AEM  STOCK  MAHKET  SIMULATION  -STOCK- 

101  HEM  REVISED  b/lb/7U    (D,  PESSEL^   L.  C  LOSIK) 

102  AEM  IMP  VHBLS;  A-MHKT  TAND  SLP;   B5-BiiKHGE  FEE;   C-TTL  CSri  ASSTS; 

103  ftEM  C5-TTL  CSh  ASSTS   CTEMP);   C(I)-CriNG   IN  STK  VAL;   D-TTL  ASSTS; 

104  REM  EUE2-LHG  CriNG  MISC;    I-STCK  #;    IUI2-STCKS  W  LUG  CHNG; 

105  REM  NUN2-LRG  CHNG  DAY  CNTS;  P5-TTL  DAYS  PrCHSS;   P<I)-PRTFL  CNTNTS; 

106  REM  uy-NEW  CYCL?;    S4-SGN  OF  A;    SS-TTL  DYS  SLS;    S< I ) - VALUE/SHR; 

107  REM  T-TTL  STCK  ASSTS;    T5-TTL  VAL  OF  TrtNSCTNS; 

lOb  REM  W3-LKG  CHNG;   Al-SMLL  CHNG(<Sl);   z:4^z:5#Z6-NYSE  AVE.;   Z  <  I ) -TRNSCTftj 

109  PRINT  TAB(20);"THE  STOCK  MARKET" 

110  DIM  S(5)^P(5)#ii<5)#C<5) 

112  REM  SLOPE  OF  MARKET    fKEND:A     (SAME  FOR  ALL  STOCKS) 

113  kANDOMIzIE 

114  LET  A=INT((RND(X)/lU)*100+.5)/100 
lib     LET  T5=0 

116  LET  Xy=0 

117  LET  N1=0 

118  LET  N2=0 
liy     LET  E1=0 

120  LET  E2=U 

121  REM  INTRODUCTION 

122  PRINT  "DO  YOU   WANT  THE  INSTUUCTIONS   (YEb-TYPE    U   NO-TYPE  U)"; 

123  INPUT  Z9 

124  PRINT 

125  PRINT 

126  IF  Z9<1   THEN  200 

130     PRINT  "THIS  PROG^iAM  PLAYS  THE  STOCK  MARKET.      YOU   WILL  BE  GIVEN" 
132     PRINT  "$iU*000  AND  MAY  BUY   OR  SELL  STOCKS.      THE  STOCK  PRICES  WILL" 

134  PRINT  "BE   GENERATED  RANDOMLY  AND  THEREFORE  THIS  MODEL  DOES  NOT" 

135  PRINT  "REPRESENT  EXACTLY   WHAT  HAPPENS  ON  THE  EXCHANGE.     A  TABLE"  * 

136  PRINT  "OF  AVAILABLE  STOCKS*   THEIR  PRICES*   AND  THE  NUMBER  OF  SHARES" 

137  PRINT  "IN  YOUR  PORTFOLIO  WILL  BE  PRINTED.      FOLLOWING  THIS*  THE" 
13b     PRINT  "INITIALS  OF  EACH  STOCK  WILL  BE  PRINTED  WITH  A  QUESTION" 

139  PRINT  "MARK.     HERE  YOU  INDICATE  A  TRANSACTION.      TO  BUY  A  STOCK" 

140  PRINT  "TYPE  +NNN*    TO  SELL  A  STOCK  TYPE  -NNN*    WHERE  NNN  IS  THE" 

141  PRINT  "NUMBER  OF  SHARES.      A  BROKEP^AGE  FEE  OF   IX   WILL  BE  CHARGED" 

142  PRINT  "ON  ALL  TRANSACTIONS.     NOTE  THAT   IF  A  STOCK'S  VALUE  DROPS" 

143  PRINT  "TO  ;:ER0   IT  MAY  REBOUND  TO  A  POSITIVE  VALUE  AGAIN.  YOU" 

144  PRINT  "HAVE  $10*000   TO   INVEST.      USE   INTEGERS  FOR  ALL  YOUR  INPUTS." 

145  PRINT  "CNOTE:      TO  GET  A    'FEEL'   FOR  THE  MARKET  RUN  FOR  AT  LEAST" 

146  PRINT  "10  DAYS)" 

147  PRINT  "  GOOD  LUCK!  " 

200   REM  GENERATION  OF   STOCK  TABLE;    INPUT  REQUESTS 

210   REW  INITIAL  STOCK  VALUES 

220     LET  S( 1)=100 

230     LET  S(2)=b5 

240     LET  SC3)«150 

250     LET  S(4)=140 
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ii6u     LEI  S(5)  =  llu 

id65  KEM   IM  riAL    i'o   -   4    DAtJ  FOii  FlnST    i'litlC^O   SLOr*  tl  <H) 
ki66     Lhir    r6  =  lNTC'i-':^V'T»itND(A)-fl  ) 

ki67  nEf'i  iiA;\JDOMlii.E  SlGiNi   OF  FlitSi*    I'ltEND  bLOr-E  <A) 
26d      IF  fu\D<A)>.5    ThEiM  2  7U 
k:6v     LEX  M=-A 

i:i7u  HEM  nAiMDOMl^E   IM  riAL  >/ALUES 

rtEM   IM  riAL  i^OuiFOLlO  CO;\J TEMTS 

iivu    FOii  1  =  1  ro  5 

JOu  LET  r-C  1  )=U 
30  5  LEV  1  )=0 
JlO      iviEAT  1 

SdO  r'liliNJT 

JJu  PiiliNJT 

JJ3  nEW   1  iVJl  IIhLI  zlE  CAor.  i-i:?oET:):C 

J35  LET  C=1UUOO 

33b  iiEi-J  i^rtlMf   liVJlflAL  HOiifFOLlQ 

3^10  r-iilWT  ''irOCK'S"  1  N 1  1*1  AL:>"  > 'ViU  CE/bnarCE*' 

350  i-nlNf   ••iwr.    dALLl^riC  MlbblLEb'%"  ljdin"jb<l) 

351:^  h'UlMT   "itED  UrtU:>ij   OF  AMEill  CA"  ^ "  KCA'Sb<i:i) 

354  ^•^ill^^  r   '•LlCnlENb  rElM^    BUMrtA^  &    uOKE'S'*  LBJ'SSC3) 

356  r-KlivI  "AMEiaCAiNJ  BfkNtinUfT  C0.">'*  AdC*%b<4> 

35tt  r^iilNl*  ••CEiNioOiiED  dOOKS  br0nE"j"  Ci3b'SS<5) 

360  r-iilNT 

361  liEiM  iNiYSE  Av;EivAGE  :  215 ;    TEMt^ .    v;ALUE:z:^i;    wET  CnANGE  :^:.6 
363  LET  ^1/1=^.5 

36/1  LEI  Z5=0 

365  LET  T=u 

370  FOn   1=1    TO  6 

375  LE  r  zl5  =  ^5  +  oC  1  ) 

3tt0  LEX    1  =  T  +  S(  I  >*x^(  I  ) 

3VJ  iNJE^r  1 

3^1  LET  Z.5=IMrc  lUJ^C^5/:>)+.5)/lOO 

3yii  LET  -^6=1NT(  (z:5-^.4)*lUu  +  .5)/lOO 

3V3  liEM   TOTAL  AbbETStD 

3y/i  LET  D=T+C 

3V5  IF  AV>U    TriEN  3yb 

3^6  ^^K^NT  •'MEW  /OHK  STOCK  EACnAiNJGE  Av;EiiAGE:  "Z.S 

3^7  GO   TO  3V9 

3915  r-rtlNT  "iNEW   rOrtK  STOCK  EaChANGE  AVEilAGE:    ••z.5**       WET  CnAiNiGE:  '•^.6 

399  Piil  MT 

^O  LET   T=1MTC 100*T+.5)/lOU 

^1  ^'K1MT  ''TOTAL  STOCK  ASSETS  AxiE  i>'*;T 

AU3  LET  C=IWT< lOO*C+.b)/10U 

^5  r-rtlNT  '•TOTAL  CASH  (kSSEXS  AxiE  i'SC 

iW7  LET  U=IfsJrc  100*D+.D)/100 

/lOb  ^•KINT   "TOTAL  ASbETS  AKE  S**;u 

^liO  PKIMT 

^il  1  IF  A'^=0    TriEN  416 
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t'HlNT  "DO  YOU   WISH  TO  CONTINUE   (YEb-TYi^E   U   NO-TYPE  U)" 

IF  uy<i  THEN  yyb 

416  HEW  INl^UT  T4iANi>ACTI0NS 


PHINT 

"WHAT  lb 

YOUii  TRANSACTION  IN" 

PHINT 

"IbM"; 

44U 

INPUT 

1  ) 

450 

PHINT 

"HCA"; 

HOU 

INPUT 

470 

PrtINT 

"Lbo"; 

4b0 

INPUT 

4yu 

HHINT 

"ABC"; 

INPUT 

z:(4) 

PHINT 

"CBS"; 

520 

INPUT 

^1(5) 

PilINT 

530 

HEi^i  TOTAL  DAY  '  S 

PUHOnASES  IN  S:P5 

54U 

LET  P5=0 

550 

HEM  TOTAL  DAY 'S 

SALES   IN  S;S5 

560 

LET  S5 

=0 

570 

FOH  1  = 

1    TO  5 

575 

LET  zlC  I  )  =  INT(2:(  I  )+  .5) 

5b0 

IF  21  (  I  )<=0  THEN 

610 

590 

LET  P5 

=P5+z:(  I  )*i>(I  ) 

600 

GO  TO 

620 

610 

LET  S5 

=  S5-z:(  I  )*S(  I  ) 

612 

IF  -^;(  I  )<=P(  I  ) 

THEN  620 

614 

PHINT 

"^OU  HAVE 

OVEriSOLD  A  stock;    THY  AGAIN. 

616 

GO  TO 

420 

620 

NEAT  I 

632 

HEM  TOTAL  VALUE 

OF  THANSACTI0NS;T5 

635 

LET  T5 

=P5+S5 

630   HEM  BHOKEHAGE  FEE; 85 

640     LET  B5=INT( .0 l*T5*100+.5)/100 

650  HEM  CASH  ASSETS=OLD  CASH  ASSETS-TOTAL  PUHCHASE5 

652  HEM  -BHOKEHAGE  FEES+TOTAL  SALES;C5 

654     LET  C5=C-P5-B5+S5 

656      IF  C5>=0   THEN  674 

658  PHINT  "YOU  HAVE  USED  $"-C5"  WOH 

E  THEN  YOU  HAVE." 

660   GO  TO  420 

674  LET  C=C5 

675  HEM  CALCULATE  NEW  POHTFOLIO 
6«0     FOH  1=1    TO  5 

690     LET  PC  I  )=P(  I  I  ) 

TOO     NEAT  I 

710   HEM  CALCULATE  NEW  STOCK  VALUES 

720      GOSUB  630 

750   HEM  PHINT  POriTFOLIO 
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751 
75 
7b  J 
75^1 
755 
756 
75  7 
75  tJ 

75  y 

76  y 
77U 
771 
112, 
113 
11^ 
775 
7b  U 
190 
blU 
^29 
530 
b31 
b32 
633 
tt34 
b^U 
bi^ll 
bi:i5 
bA6 
tii^7 
bSU 
b51 
tt55 
656 
65  7 

b6a 

661 

b62 
690 

yoo 

910 
915 
916 

91  7 
920 
921 
922 
925 
926 

92  7 


itcIM  BELL  KliNJGING-DIFFErtENr  ON  MAiNY  COM^^OrKUS 
FOsi  1=1    TO  20 
r'xiifsjf  CMrtSC135); 
NEaT  I 
t>HlMT 

PHINr      +  *  +  +  +      +  +  +     KiNJU  OF  DAY'S  TUADlNG** 

r'itliNJT 

r^KlNT 

IF  A9<1    TnEN  769 


r'rtICE/SnArtE"j"rtOLDINGS'%"^ALUE"j"NET  h»KICE  GhAWGE" 


r^C  1 
h>C2)  J 
h>C3)  J 

i^C  5)  J 


1  )*r^C  1 
SC2)*r^C2)j 
S  C  3  )  *r'  C  3  )  J 

SC5)*r^C5)j 


CCD 
CC2) 
CC3) 

CC5) 


-   SOBitOOf iiM£ 

NEW  SrOGK  VALUES  BA^^ED  ON  r»rtEV10US 

N0iM3Ex-tS  OF  DAYS   WrtlCri  HES^^ECT Il^ELY 

INCitEAiiE   10  y'L^m   AND  5T0CK 

AN    II J    SET  El  J    DETEliMINE  NEW  Nl 


PHINT  "STOCK" 
PiilNT   "IBM'S    SC  1 
PKINT  "KCA'%  SC2)> 
PrtlNr  SC3)> 
PHINT  "ABC'S  SCi:i)> 
PHINT  "CBS'S  S(5)j 
LET  a9=1 
PHINT 
PHINT 
GO  TO  360 
HEW  NEW   SrOCK  VALUES 
HEM  HANOOMLY  PhODUCE 
HEM  DAY  'S  VALUES 
HEM  N1>N2  ArtE  HANf^OW 
HEM   DETExtMINE   WHEN  SiO^K   il  WILL 
HEM   12   WILL  DECHEASE   10  PTS. 
HEM   IF  Nl    DAYS  HAVE  PASSED j  PICK 
.IF  N1>0   THEN  650 
LET   I 1=INTC^.99*HNDCX)+1 ) 
LET  Nl=INrCi:|.99*KNDCA)+l) 
LET  El=l 

HEM    IF  N2  DAYS  HAVE  PASSEDj   PICK  AN   I2j    SET  E2j    DETEHMINE  NEW  N2 
IF  N2>0    THEN  660 
LET   I2=IN'i*C  ^|,99*iiNDC  A)  +  l  ) 
LET  N2=INTCi:|,99*iiNDCA)  +  l  ) 
LET  E2=l 

HEM  DEDUCT  ONE  DAY  FHOM  Nl   AND  N2 

LET  N1=N1-1 

LET  N2=N2-1 
HEM  LOOP    THHOUGH  ALL  STOCKS 

FOH  1=1    TO  5 

LET  X1=HNDCX) 

IF  Al>.25   THEN  920 

LET  Xl=.25 

GO  TO  935 

IF  Xl>*50   THEN  925 
LET  XI =.50 
GO  TO  935 

IF  Al>.75   THEN  930 
LET  Xl=. 75 
GO  TO  935 
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930  LET  A1=0.U 

931  HEM  BIG  CnANGE  C0NSrANT:W3     (SET  TO  ^lEHO  INITIALLY) 
935     LET  W3=U 

y36     IF  EI<1  THEN 

937     IF   INT( I 1+.5)<>INT( I+.5)  THEN 

y3b  HEM  ADD   lU  i^TS.   T.O  THIS  STOCK;      KESET  El 

93!:^     LET  W3=iU 

y^3     LET  El=0 

9^5     IF  E2<1    THEN  955 

IF   INTC  I2+.5)<>lNT(I  +  .5)   THEN  955 
y^b  HEM  SUBTHACT    10  PTS.   FHOM  THIS  STOCK.:      HESET  E2 
V^y     LET  W3=W3-lO 

953  LET  E2=0 

954  HEM  C(I)    IS  CHANGE  IN  STOCK  VALUE 

955  LET  C( I )=INT(A*S( I ) )+Al+INT( 3-6*HND ^ A ) + . 5 ) + W3 

956  LET  C(I)=INT( lOO*C(I)+.5)/lOU 

957  LET  S(I)aS(I)+C(I) 
960      IF  S(I)>0   THEN  967 

964  LET  C( I )=U 

965  LET  b(I)=0 

966  GO  TO  9  70 

967  LET  S(I )=INT( l00*S(I)+.5)/lOO 
970     NEXT  I 

972  HEM  AFTEn  Tb  DAtS  rlANDOMLV  CHANGE  THEND  SIGN  AND  SLOl^E 

973  LET  Tb=Tb-l 

974  IF   Tb<l    THEN  9b5 
9b0  KETUHN 

9b5  REM  HANDOMLY  CHANGE  THEND  SIGN  AND  SLOHE   CA>^   AND  DURATION 

9b6  HEM  OF  THEND  (Tb) 

990     LET  Tb=INT(4.99*nND(  A)+n 

992  LET  A=INTC (HND(A)/lO )*lOO+.5)/lOJ 

993  LET  S4=HND(a) 

9v4     IF   S4<=.5  THEN  99  7 
995     LET  A=-A 
997  HETUHN 

99b     i^aiNT  "HOPE  YOU  HAD  FUN!!" 
999  END 
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The  enclosed  material  Is  a  compilation  of  computer  programs 
developed  during  the  period  May,   1968  to  September,   1970.  These 
programs  were  developed  by  teachers  and  students  in  the  high  schools 
which  participated  with  us,  and  by  the  Project  staff. 

All  of  the  enclosed  programs  have  been  tested  on  a  Digital 
Equipment  Corporation  TSS-8  time-shared  computer  during  the  siumner 
of  1970.      To  the  best  of  our  ability,  we  have  assured  ourselves 
that  the  programs  actually  run.     It  should  be  pointed  out,  however, 
that  we  were  not  able  to  make  an.  exhaustive  exploration  of  the  pro- 
grams.    There  may  be  undiscovered  bugs  (if  there  aren't,   it  may  be 
the  first  time  in  the  history  of  computing).       We  would  appreciate 
hearing  of  any  which  emerge  in  the  future. 

These  programs  run  in  the  version  of  BASIC  which  existed  on 
the  TSS-8  in  August,   1970,  and  should  run  on  most  other  versions  of 
BASIC.     The  major  potential  problem  on  other  machines  is  the  output 
format  (DEC  uses  14  columns  per  print  zone,  while  some  other  manu- 
facturers use  15;  we  used  the  TAB  function,  which  doesn't  exist  in 
all  BASIC  compiles).     It  may  be  necessary  to  make  some  minor 
changes  in  programs  to  adjust  this  format.     Another  possible 
problem  is  in  the  use  of  the  RANDOMIZE  command  in  some  programs 
to  start  the  random- number  generator  at  a  random  point.     If  this 
command  is  not  available,  some  other  means  should  be  devised  for 
randomizing  the  start. 

It  is  our  sincere  hope  that  these  programs  and  their  sup- 
porting documentation  will  be  helpful  to  educators  who  are  explor- 
ing the  uses  of  computers  in  education. 

We  are  anxious  to  hear  of  any  bugs,  errors,  or  improvements 
in  these  programs,  and  are  especially  anxious  to  hear  of  any  novel 
ways  of  using  them. 

Ludwig  Braun 
Marian  Visich,  Jr. 
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nE^^(:RIFriON: 

This  program  will  average  any  number  of  grades.  A  passing  grailcj 
must  be  Inputed  by  the  teacher,  and  the  computer  will  list  tlic  unnicr- 
ical  value  of  the  curve  and  the  respective  ailjusteil  grailcs. 


600  DATA  65#76#76#48#65#76#88#69#71#56#90#67#59#60#70#74#62#57#66 

601  DATA  64#63#65#59#60#S6#46#66 

RUN 

PASSING  QfiADS  FOR  THIS  TEST  IS  7  70 

THE  AVERAGE  OF  ALL  GRADES  ENTERED  IS  65.7037  • 

THE  AVERAGE  FALLS  BSLOV  THE  PASSING  GRADE  BY  4  POINTS. 
(ROUNDED  TO  NEAREST  WHOLE  NUMBER. > 

ADJUSTED  GRADE  -  ORIGINAL  GRADE  <•>  4 


STUDENT 

ORIGINAL 

ADJUST 

NUMBER 

GftADS 

GRADE 

1 

65 

69 

e 

78 

88 

3 

76 

80 

4 

46 

58 

5 

65 

69 

6 

78 

88 

7 

68 

86 

6 

69 

73 

9 

71 

75 

10 

56 

60 

11 

90 

94 

la 

67 

71 

13 

59 

63 

14 

60 

64 

15 

70 

74 

16 

74 

78 

17 

68 

66 

16 

57 

61 

19 

66 

70 

80 

64 

68 

81 

63 

67 

88 

65 

69 

83 

59 

63 

84 

60 

64 

85 

56 

60 

86 

46 

58 

87 

66 

70 

READY 


Teaci  er  Assistance 
AVHRCl 


100R£M  COURT#   Q.M.«  HALT  WHITMAN  H.S.,  REVISED  d/69 

105  HEM    REVISED  BY  C*LOSIK  0-86-70 

UOREM 

120 REM  PROGRAM  AVERAGES  ANY  NUMBER  OF  GRADES.  FOR  CURVING  PURPOSES 
130REM  YOU  ARE  ASKED  FOR  A  PASSING  GRADE*  IF  THE  AVERAGE  FALLS  BELOV 
I40REM  THAT  THE  DIFFSRSNCS  VILL  BE  PRINTED  OUT  AS  WELL  AS  NEVLY  CAL- 
150REM  CULATED  GRADES  FOR  EACH  STUDENT.  REMEMBER  THAT  THIS  TYPE  OF 
160REM  CURVING  IS  VALID  ONLY  IF  THE  ORIGINAL  GRADE  DISTRIBUTION 
170 REM  SHOWED  A  BELL  CURVE. 
180REM 

190 REM  ENTER  GRADES  ON  DATA  LINES  600-700. 

aoOREM 

SfiOREADX 

230 I FX«9999THENfi60 

^^OLETN-N-M 

8S0Q0T0220 

260 RESTORE 

270LETQ-0 

280PRlNT**PASSlNa  GRADE  FOR  THIS  TEST  IS  **; 

290INPUTP 

300F0RT«1T0N 

310READA 

320LSTG«G4-A 

330NEXTT 

340  LET  M«Q/N 

350PRINT 

360PRlNr*THE  AVERAOB  OF  ALL  GRADES  ENTERED  IS**M**.** 

365  LET  D-0 

370IFM>«PTHEN4IO 

380PRINT 

390LETD«  INT  <P  -M-i- .  5  > 

4D0PRINT'*TH£  AVERAGE  FALLS  BELOW  THE  PASSING  GRADE  BY**D**  POINTS.** 
405  PRINT  **CROUNDED  TO  NEAREST  WHOLE  NUMB£R0*« 
410REStORE 
415  PRINT 

417  PRINT  **ADJUSTED  GRADE  ■  ORIGINAL  GRADE  +''0 
420PRXNT 

430PRlNT**STUDENr*#**0Rl8INAL**#**A0JUSTED** 
440PRINT**NUMBER**#**  QMADt^^s**  GRADE** 
450PRINT**""  ■■•■••#••■■•■■■■■**#••■■■■■■■■•• 
460F0RX«1T0N 
470RSADA 

490  PRINT  X^A^A-i-D 
500NEXTX 

600  DATA  65#78#76#48#65#78«68#69«71«56«90«67«59«60#70«74«68«57«6« 

601  DATA  64#63#65#59#60#56«4««66 

701DATA9999 
999END 
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Teaclier  Assistance 
A\^RG2 


DESCRIPTION: 

This  program  will  sort  and  average  from  3  to  10  grades,  for  up 
to  35  students. 

Data  is  entered  in  lines  600-609.    T^ie  data  are  entered  in  order 
of  student  number  for  the  first  test,   followed  by  the  grades  for  the 
second  test  in  order  of  student  numl)er,  Ibllowed  by  t' e  grades  on  tlie 
third  test  in  order  of  student  number,  ptc . 

The  program  prints  a  table  listing  the  grades  for  each  student 
and  his  average. 


6Uu 
'lU  1 

6U  J 

6U6 
60  7 
60  0 
60  V 


DM  m 
DA  fA 

UAi'rl 

UAl'A 
UATA 
DATA 
DA  TA 
DATA 
DA  iA 
DA  I'A 


0  >  7u  * 
bO>  65 
76*  oO 
65*  70 
65*  70 
75*bO 
7b*  70 
75*  75 
OO  *  90 
55*69 


7ii*59* 

*  70  *  6b 
*b5*yu 

*  75*b5 

*  75*90 
*bo*bU 

*  £50*55 
*6b*90 
*55*75 

*  7tt*90 


66*  70 
*  7u*  7 
*95*b 
*tt7*  7 
*d5*  7 
*tt5*  7 
*59#6 
*95*b 
*64*6 
*0*0* 


75* 
5*70 
5*b5 
7*tt6 
l*7d 
5*90 
7*78 
7*541 
6*b6 
76*9 


100* 
*65* 
*90* 
*90* 
*b9* 
*b9* 
54* 
*67* 
*90* 
7#5o 


77*65 
70  *  70 
9ii*o7 
75*  64 
b5*  75 
7o*67 
76*  3^ 
66*  7o 
9b*  7o 
75 


iU£ADl 


i^0fi3t:n  OF  SiODENIS  IN  CLASS  IS  ?  10 

ivjOWdKii  OF  Gi^ADKS  TO  BE  -AVErtAGED  IS  ? 


lo 


^^rUD.  G^DES 
NO.  (LAST  COLUMN  LISTS  AVEriAGE^) 


1 

0 

50 

75 

65 

65 

75 

75 

75 

bo 

55 

6o  .3 

70 

65 

bO 

70 

70 

dO 

7o 

75 

90 

69 

73.9 

J 

7i> 

7i; 

75 

75 

bO 

ttO 

6o 

55 

7o 

73. b 

59 

6o 

90 

b5 

90 

bU 

55 

9U 

75 

90 

7o.ii 

5 

66 

70 

95 

b7 

b5 

bS 

59 

95 

64 

0 

7o 

6 

70 

75 

b5 

77 

71 

75 

67 

o  7 

66 

O 

7^.b 

7 

75 

70 

b5 

b6 

7b 

90 

7o 

5^ 

d6 

76 

7  7.0 

o 

100 

65 

90 

90 

b9 

b9 

5^ 

67 

9  7 

b3.  1 

9 

77 

70 

92 

75 

bS 

7b 

76 

o6 

9b 

5o 

79.5 

10 

65 

70  ■ 

b7 

64 

75 

67 

7o 

7d 

75 

6-5^.3 

iiEADY 


Teacher  Assistance 
AVERG2 


lUUfiEM  r'EnE^-COUn: ,    WALT   WrtI  fWAN  n.^.j  7/6^ 

nu   fiEM  ^vEVIoilD    IU/7U  DA\/1D   SOBIW   -  ^'OLrlECn 

IJUrtEW  r-IlOGxlA^l  SOriTS  AND  AVEkAGE:^  FriOM  J    I'O    iu    GriADES  FOti  U^»   TO  35 
Iz-IUUEW   orUUKNl':^*    I'nEt   AriE    TrtEN  i^riiNi'EU   OU 1*  •    InE   GrtADES  MAt   BE  FriOM 
i5UriE«    TEJ^r^  Oti  uUAiirEiiLY  AVEKAGES. 
l6UriEW 

17U   ilEM     NO  IE:    IriE  NUMBEU  OF   GrtADES  ^•En  JSi'UDEM'   TIMEo    InE  i\UKBEii 
IttU   HEM  OK   L>iUL)Ei\i'b  MUST  NO  i"   EaCEED  idV5  • 
IVU  rtEM 

2UUUEM   THE   GiiADES  AriE   ENTErtED    IN    IhE   SAKE   OiiUEk  FOn  EACn   i'EJT  Oxt 
J:ilUriEM  UJAitrEu^    Kxl0^l  oiUDENr  NUftiBEu  ONE    TO    TriE  LAST    IN    THE  CLASS.  TnE 
i^^UHEW  ^»liOGllA^i   WILL  SOHT   OUT  AND  AVExiAGE   TnE   GiiADES  FOii  EACH  STUDENl 
kdJUuEM   SEx^AxiAIELY  •    IF  A   GrcADE    IS  MIo:5lNG   FOx^  AN  ^    :5TUDENTj    A  ZiErtO  MU:^  f 
^^UuEM  BE  ENTExiED.    THESE    WILL  NOT  BE  AVExtAGED    IN.    IF    YOU    WANT    i'O  AVExtAGE 
i^UxiE^:    IN  A   ^EitU  AS  A    GriADE^    EN  fEiv  A   Gx^ADE   OF    1    IN:5rEAD.    IT   WILL  NOT 
iriGUxiEM  AFFECT    TnE  AVExiAGE  SIGNIFICANTLY. 
^7UxiEM 

^tiUxiEM  xtEWEMtJExi    TO   EN  f Ext    TrtE   SAME  NUMBExi  OF    GxtADES  FOxi  EACrt   STUDENT  IN 
iiVUxtEM    fnc   OxiUExt  x^itESCxiI BED  ABOVE.    IF   Tnl^    IS  NOT   DONE^    THE  GxiADE:^ 
JOUxiEM  AND  AVExlAGES   WHiCn  AnE  r^xilNIED  OUT    WILL  NOT  BE  COxiilECT. 
JlUnE^. 

sdut^tiii^r'  nul\beh  of  students  in  class  is  — 

JjU  INPUT  N 

3^0  r»xiINi"   "NUMBEH  OF   GxiADES  TO  BE  AVErtAGED  IS  

J5U  INr'UT  G 

36U  FOa  I=i    TO  N*G 

370  HEAD  X 

3d0  IF  A=9S/9y    [HEN  1U2U 

3S>U  NEAT  I 

4UU  ilEAD  A 

mu  IF  AOVWV    TnEN  I02U 

^20  HxilNT 

^3U  PtilNi 

U^O  j^xtlNT 

^SU  *^HINT   ••STUD."*'*  GxiADES'* 

^6U  i^HlNT       NO.  (LAST  COLUMN  LISTS  AVErlAGES)" 

^7U  hestohe 

^bO  FOrt   1=1    TO  N 

^9U  x^rtlNT  i; 

5UU  GOSUB  650 

SlU  LET  S=0 

520  LET  L=0 

53U  IF    I«=i    TrtEN  5  70 

5^U  FOxi  0=1    TO  I-l 

5bU  HEAD  A 

560  NEaT  O 

570  FOil  K=I    TO  G 

5t50  HEAD  A 


A 
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Toacher  Assistanc 
AVnR02 


fSuu  UAi'A  U  J  7u  J  Viij  by  j66^  7U  J  7bj  lUO  J  77j  6b 
6u  1  bU  J  6b  J  7u  j6b  J  7*J  J  7b  J  7U  J  6b  J  7U  ^  7U 

6Jid  uAl.'A  7bjOUji5b^VU  jybjttbjtt5jyUjydj07 
6jJ  UMia  65^ 7U J  7b jb5 J 07j 77jtt6 jVU J  7b J  6^ 
^)U^  UMiH  6b  J  7U  J  7b  jVU  J  ttb  J  7  1  J  7ttj  oVj  obj  7b 
6Un  UA  i'A  75  J  ou^  ou  jOU  >  ttb  J  7bj  J  J  7o  J  67 
6u6  UAi/V  7U  J  ou  J  bbj  5v  j67*  7bj  b^j  76j 

6U7  UAii^   7bj  7bj6ojyUjyDjo7jb^j67j06j  7o 
UMiiA  ouj  vujb5>  7bj6^j66jo6jVUjVoj  7o 
(50 V  UAi'.\  bbj6Vj7ojyu^UjOj  76^97^:30 J  7:5 
7uU   UiAfiH  WW 
71U  LEI'  z:  =  ^+i 
7^U  LET  o=S+A 
7JU  r-ul.Vjl  a; 
7^U    G0:3ab  VUU 
7bu    IK  A=G    I'riECy^  7VU 
76U   FOil  L=l    I'U  t\J- 1 
77U   itEAU  A 
7oU   NEAf  L 
7v6   NEaI  a 
tiOU   LEI*   J  =  :j/CG-^.) 
olu  PulNT   li>Jf (lu*:3+.5)/lU 
d^U  liEiil'UiiE 
bJU  NEAf  1 
b^U    S  f  Or* 

obU    IF   1<IU    inEiNi  oou 
b6U   GOiiUB  9yu 
o7U  uErUiiN 
ObU   GOSUd  VbU 
o^U  liETUiwiNJ 

yUU    IF  A<lU    inEN  y^U 
91U    IF  X<1U0    I'hEN  960 
VJU  flEfUrtN 
V^U    GOSUa  ybU 
V5U  uEfJilW 
V6U    GOSUB  yyO 
•5^70  riEfUfiiNJ 
VbU  r^UlNf 

lUlO  rlEfUKN 

1U20  r^rtlNf   ••CHECK  YOUH  DA  f  A  LINES.    lOUn  EMlrllEi)  DU  i\iO  f  i>nOW 

lU30  HKlNT   •••fttE  SAME  NUMBEii  OF   GrtAUEb  FOi\  hACn  bfUDENl'.^' 
END 


5 


Teacher  Assistance 
FREQ 


nCSCRIPriON: 

This  jiro^ram  prints  a  Irequuncy  tlistribution  (bur  j*raplis)  ol' 
tirades,  (or  u  single  test  for  one  or  nioru  classes,  or  for  several 
tests  Ibi-  onu  student. 


600  DATA  25#30#35#40#45#50#55#60#65#70#75#80#85#90#95#100 

601  DATA  35#40#45#50#95#60#65#70#75#80#85#90#95 
60a  DATA  5O#55#6O#65#7O#75#0O#85#9O 

603  DATA  55#60#65#70#75#60#85 

604  DATA  60#65#70#75#tO#85 

605  DATA  65^70#75#80 

606  DATA  65#70#75#80 

607  DATA  70#75 


HEADY 


RUN 


QRAD£  FRSQUCMCY  DISTRIBUTION  CBAA  QAAPH) 


GRADE 


1  5 

I*  — 

X 
X 
X 
X 

I 

IX 
IX 

ixx 

IXX 
IXX 

ixxx 

IXXXX 
IXXXXX 
IXXXXXXX 
IXXXXXXXX 

ixxxxxxxk 

IXXXXXXX 

IXXXXX 

IXXX 

XXX 

IX 


10 


IS 


80 


30 


0 

5 

10 

15 

80 

85 

30 

35 

40 

45 

50 

55 

60 

65 

70 

75 

80 

85 

90 

95 

100 


READY 
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Teaclier  Assistance 
FREQ 


lOOREM  P£H£2#   WALT  WHITMAN  H.S.#  HEVISED  7/69 

105  REM     REVISED  BY  C«LOSIK  &*26*70 

IIOREM 

I20REM  THIS  PROGRAM  PRINTS  A  FREQUENCY  DISTRIBUTION  OF  GRADES • 
130REM  ENTRIES  ARE  ROUNDED  OFF  TO  THE  NEAREST  5  AND  INDICATED  ON  A 
I40REM  BAR  GRAPH.   IT  MAY  BE  USED  FOR  A  SINGLE  TEST  FOR  ONE  OR  MORE 
150REM  CLpASSES  OR  FOR  SEVERAL  TESTS  FOR  ONE  STUDENT*   THE  PROGRAM  IS 
I60REM  SET  TO  ACCEPT  UP  TO  150  GRADES.  LINES  600  -  700  ARE  SET  ASIDE 
170REM  FOR  DATA  ENTRIES.  THEY  MAY  BE  ENTERED  IN  ANY  SEQUENCE. 
180  REM 

I90PRINT**  GRADE  FREQUENCY  DISTRIBUTION  <BAR  GRAPH)** 

200PR1NT*'  " 

SIOPRINT 

220PRINT-QRADE"#*'  I       5       10       15       20       25  30** 

230PRINT*'  **#**I+  +  +  +  +  +  

240  DIM  F( 150)#P( 100) 
250READF 

260 I FF-9999THEN290 
270LETN-N-M 

280G0T0250 
290REST0RE 

292  IF  N<«I50  THEN  300 

294  PRINT  **R£ -DIMENSION  LINE  240.     DELETE  LINES  292#294#296*" 

296  STOP 

300 FORI- I TON 

3I0READFCI) 

320LETF<I)«5*INT<F<I)/5+.5) 

330NEXTI 

340F0RI-IT0N 

350F0RP-0T0100STEP5 

360 1 FP  vF  C I ) THEN380 

370NEXTP 

380LETP  CP  )  «P  CP  ) -I- 1 
390NEXTI 

400PR1NT-  0*'#"I" 

4I0F0RP«5T0I00STEP5 

420PRINTP#"I**I 

430 1 FP  C  P ) >  » I THEN460 

440  PRINT  *•  •* 

450G0T0500 

460F0RL-1T0PCP) 

470PRINT'*X**I 

460NEXTL 

490  PRINT  •*  " 

500NEXTP 

600REM  BEGIN  DATA  ENTRIES  HERE.  TYPE  -  600  DATA   U2>3>  ETC. 

7)1DATA9999 

999END 


EKLC 


433 


Teacher  Assistance 
GRADE 


lyBSCiilPTlOhi: 

This  program  is  useful  in  determining  the  grade  of  an 
examination  consisting  of  several  examples.    By  inputing  the  number 
of  incorrect  answers^  the  corresponding  grade  in  percent  and 
the  number  of  correct  answers. 


NUMBER  OF  QUESTIONS  IN  THIS  TEST  IS  7  15 
NUMBER  NUMBER 


mouQ 

GRADE 

RIOHT 

0 

100 

IS 

1 

93 

14 

a 

87 

13 

3 

60 

la 

4 

73 

11 

5 

67 

10 

6 

60 

9 

7 

S3 

6 

• 

47 

7 

9 

40 

6 

10 

33 

5 

u 

87 

4 

IS 

80 

3 

13 

13 

8 

14 

7 

1 

IS 

0 

0 

8 
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Teacher  Assistance 
CRADE 


lOOREM  PEREZ-COURT#   VALT  VHITMAN  H.S.#  REVISED  6/69 

105  REM     REVISED  BY  C.LOSIK  6«86**70 

llOREM 

120REM  THIS  PROGRAM  PRINTS  OUT  THE  GRADES  OF  STUDENTS^   IN  PERCENTAGES^ 
130REM  NEXT  TO  THE  NUMBER  OF  QUESTIONS  MISSED  ON  A  TEST  AND  THE 
140REM  NUMBER  ANSWERED  CORRECTLY.  VHEN  THE  QUESTION  NARK  APPEARS  s  TYPE 
150 REM  IN  THE  NUMBER  OF  QUESTIONS  ON  THE  TEST  AND  HIT  THE  RETURN  KEY. 
160RSM 

170PRINr*NUMBER  OF  QUESTIONS  IN  THIS  TEST  IS  **i 

160INPUTA 

190PRINT 

BOOPRI  NT**NUMBER  NUMBER** 
210PRINT**VR0NG  GRADE  RIGHT'* 

280PRINT'*      

SdOFORX-OTOA 
840L£TZ«Z't>l 

250L£TG«INT(  (  100-»CX«100/A>  >4-.5> 

260IFG<0THEN330 

270PRINTX#  G#  C A-X> 

880IFZ-5THEN300 

290NEXTX 

895  GO  TO  330 

300PRINr*  

310LETZ-0 
380G0T0890 
330 END 


Teacher  Assistance 
IT  EMI 


DESCRIPTION: 

Tin--  program  counts  and  prints  the  number  of  time^ 
question-  are  missed  on  a  tust. 


(00  DATA  l«a«3«4«S«2«3«5«6«7«««9«  10«7«8«9«  lU  13«  14«  1S«  I0#  13,  15,  10 

RUN 

ITEM  ANALYSIS 


NUMBER  OF  QUESTIONS  IN  THE  TEST  IS?  15 


QUESTION 

I 

8 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 


NUNBCB  or  TIMES  MISSED 

1 
8 
8 

1 

a 
1 

8 
8 

8 
3 
1 
0 
8 
1 
8 


READY 


10 
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Teacher  Assistance 

iti:mj. 


100R£M  P£R£Z«COURT#   WALT  VHITHAN  H.S.#  REVISED  7/69 

105  REM     REVISED  BY  C»LOSIK  6-86*70 

llOREM 

120REM  PROGRAM  COUNTS  AND  PRINTS  NUMBER  OF  TIMES  QUESTIONS  ARE  MISSED  ON 
130REM  A  TEST.  THE  NUMBERS  OP  THE  QUESTIONS  MISSED  ARE  ENTERED  ON  DATA 
140REM  LINES  600-700 •   UP  TO  800   ITEMS  MAY  BE  ENTERED  IN  ANY  ORDER. 
150REM  YOU  MIGHT  #  FOR  EXAMPLE^   FEED  IN  THE  NUMBERS  OF  THE  QUESTIONS 
160REM  MISSED  BY  ONE  STUDENT#   60  ON  TO  THE  NEXT  STUD£NT#  ETC«#   UNTIL  ALL 
170RSM  QUESTIONS  MISSED  BY  A  CLASS  OR  ALL  CLASSES  HAVE  BEEN  ENTERED. 
180  REM 
165  REM 

190  PRINT       ••^••ITEM  ANALYSIS" 

aOO  PRINT  "   

805  PRINT 

210DIMP(800> 

820R£ADX 

230 I FX-9999 THEN260 
240LETN-N-M 
2S0Q0T0220 
260 RESTORE 

262  IF  N<-200  THEN  268 

264  PRINT  **RE -DIMENSION  THE  ARRAY.  DELETE  LINES  262#264#866«" 
266  STOP 

266  PRINT  **NUMBER  OF  QUESTIONS  IN  THE  TEST  IS**i 

270INPUTQ 

872  PRINT 

274  PRINT  "QUESTION***"  NUMBER  OF  TIMES  MISSED" 

276  PRINT  "  "#••   

a60FORI«lT0N 

290READX 

300F0RP-1T0U 

310IFP-XTHEN330 

380NEXTP 

330LETP<P>-P<P>*1 

340NEXTI 

350FORP-1T0Q 

360  PRINT  "     "P^"  "^PCP) 

390NEXTP 


1#2#3#4#5#2#3#5#6#7#8^9*10#7#8#9*11,13#14#15#10>13#15#10 


999END 


1] 


ERIC 


43? 


Tmcher  Asaiatance 

lfEM2 


DESCRIPTION: 

This  program  will  aum  item  analysis  for  up  to  five  classes. 
Question  numbers  and  number  of  students  missing  will  each  be  printed 
out,  as  well  as  a  validity  based  on  between  30  and  70  percent  of  the 
students  answering  that  question  correctly. 


DATA    U  5*  3#  6*2*  1  *  5*  3*  8*  4*  3,  6*  10*  1  3*  5 
6tM    OATA   3*  5#'^*  4,  2*2#7*  5*  1  P)*  A,3*  4*        M,  3 

DAA-TA  '1*  3*2*  b#n#2*  5*  5*  1 P)*  1  *2#9*  1  4*  1  4*  1 
6viM   HATA  2*J^#  1#3*  1*«*4*4#6#3*  1*6*  10*  1  I  J  1 


f^^-  1  s-69 


nUMULATIVF    ITRM  ANALYSIS 


n(jmrf:r  of  nuF.sTiONS  in  test  is  ?\b 

,^JUl-l^^s:N    OF  CLASSES  ENTERED   IS  ?4 

iVJMHEK  OF  STUPENTS  TAKING  TEST   IS  76fd 

*  VALn)=BEJLEEN   3M  AND  IZ  PER   CENT  ANSViERED  QUESTION  COr^HECTLY 


OUKSTI  JNS  CLASSES 


1 

? 

3 

4 

b 

iOTAL 

>^^I.S.SEO 

1 

I 

3 

2 

6 

2 

b 

5 

3 

2 

1  b 

.1 

3 

2 

2. 

1 

<i 

6 

b 

3 

1  R 

* 

VALID 

•3 

*^ 

n 

1 

b 

6 

1 

2 

? 

b 

7 

1 

s 

/| 

21 

VAL  f  1) 

3 

b 

1  7 

« 

in 

in 

6 

3^ 

VALID 

11 

1 

3 

1 

1  1 

3 

3 

7i 

1 

9 

r-* 

6 

/I 

9 

6 

2b 

VALI  D 

1  3 

10 

12 

1 4 

1  -1 

46 

13 

M 

1  4 

1  1 

b2 

1  s 

b 

3 

1 

1 

i;i 
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Teacher  Assistance 
ITEM2 


\(>f1^,Ft^   COURT*    r.M.*    WALT  WHITMAN  REVISED  8/69 

lao.-^KM  PRUGP«A^^   SUMS   ITEM  ANALYSES  FOK   UP  TO   5  CLASSES.  OUHtSTlUN 

la^'PRM  NntABKri'i  AND  NUMBER  OF  STUDENTS  MISSING  EACH  WILL  BE  PRINTED  OUT 

l^M;?rM  AS   WELL  AS  a   VALIDITY  BASED  ON   BETlf.EEN   30  AND  l(d  PERCEN'i   OF  IHF 

lbP»KRM  STUDENTS  ANSWERING  THAT  QUESTION   CORRECTLY.    THIS  MAY  RE  RY-PASSED 

l6f^PEM  nY  TYPING   IN   999  FOR  NUMBER  OF   STUDENTS   TAKING  TEST. 

DATA   LINES  HAVE  BEEN   SET  ASIDE  FOR   ENTRIES.   A  NUMBEK 

'->.JMr<EM  MUST  BE   ENTERED  FOR   EACH  QUESTION,    IN  SEOUENCE*    FOR   EACH  CLASS. 
?inRC-M    IF  NQ  SlUDENT  MISSED  A  PARTICULAR   QUESTION*    ENTER  0   (ZERO).  IT 
y-JMKEM   WOULD  BE  Ir.'ISE   TO  BEGIN   ENTRIES  OF  A  NEW  CLASS  ON  A  NEW  DATA 
PMr^PEM  LINE  FOK  EASIER  VERIFICATION   SHOULD  AN   ERROR  OCCUR. 
3/4WREM 

qbriDIMA(5t^>*B(5«>*  C(50>,DC50)*  ECb0) 
26c^Lt:T.S=M 

;?7HPRINT**  CUMULATIVE   ITEM  ANALYSIS" 

/IHHPK- i-vJT'*   " 

??9inPr?INT 

3flMPr{INT"NUMBER  OF  QUESTIONS    IN   TEST  IS  

nioiNPuro 

:j?>r>JMRINI''NUf*^RER  OF  CLASSES  ENTERED   IS  t 

:430lNPUTi\ 

.1^511  FN<nHEN790 

350IFN>5THFN790 

:j6MPHIN'r'NtJMRER  OP  STUDENTS   TAKING   TEST    I -S  S 

370INPUTR 
.IRi^READX 

39rt  I  FX=99991  HFN42C1 
^C1LETS=S*1 

^'/3  RESTORE 

430  I  c*5^=n*NTHEN/450 

4|4^tG0SUBRC^5 

4ibMLET  I  1=0 

ia6HF0Rl=l  TOO 

4i7flREADA(  I  ) 

4BC1NEXTI 

4|90GOSUR76fr5 

S^lClFORls  1  TOO 

SICIREADBCI) 

52C1NEXTI 

530GOSUR76C1 

5ia(5FORI=l  TOO 

SSCIREADCC  I  ) 

56WNEXTI 

57C5GOSIIR760 

5«C1F0RI«  1  TOO 

59C5READD(I)  ' 
592NEXTI 

6C50REM  BEGIN  YOUR  DATA  ENTRIES  HERE.   TYPE  -   600   DATA  ETC. 

701 DATA9999 

710GOSUB760 

720FQRI=1TOQ 

730READE(I) 

740NEXTI 

750GOSUB760 

760LETT1«T1*1  13 

770IFT1»NTHENH50 

780RETURN 


790PRINT**PROGRAM  WILL  ANALIZE  FROM   1   TO  5  CLASSES  ONLY."     Teachcr  AialfltAnce 

R00GOTO330  ITEM2 
805PRINT 

R10PRINT*'THERE  MUST  BE  ONE  NUMBER  ENTERED  FOR   EACH  QUESTION  FOR  EACH" 

82C1PRINT-CLASS.   REMEMBER*   A  ZERO   IS  ENTERED  IF  NO  STUDENT  MISSED  " 

830PRINT-A  PARTICULAR  QUESTION.   CHECK  YOUR  DATA  LINES." 

840GOTO1390 

850IFR=999THEN880 

860PRINT 

R70PRTNT"*  V/ALID=BETWEEN  30  AND  70  PER  CENT  ANSWERED  QUESTION  CORRECTLY" 
8R0PRINT 

890PRINT"OUESTIONS"#"  CLASSES" 
9(^WPRINT"--   

910PRINT"  ","    12  3  4  5  TOTAL  MISSED" 

92WPRINT"   " 

93P>F0RJ=  1  TOO 
940PRINTJ# 
950LET;!=AC  J) 
96nGO5imi320 
97ClG0SIJm  060 

98^HFT>INTC  C  .  7*R  )  ♦  .  5 )  THEN  1 020 

99« IFT<INTC  C .3*R) ♦ • 5) THEN  1 020 

IP^WdPRTNT"*  VALID" 

1O10GOTO103PJ 

in2^'iP^rNT 

103^LETT=0 

Jf^SOGOTOl  390 
1O60LRTT=AC J) 
1C170TFN>1  ThENI  130 
U^R0FOKI=1TOC5-'VJ) 
K-io^prinT" 

iiw^NRxrr 
11  ir>)Pi^iNTT; 

1  l?>?iaC)i09Bf) 
1  130LETZ=tRC  J) 
1  I  /4v1f,0SUH  I  320 
11 50LET7=T+3C J) 
1  160rFN>2lHF:Nl  180 
1  1  7nG0Tai 

iir/ilf:t/^=cc  J) 

1  19nn,O5lJhl3a0 
12'/)'^LF:TT=T  +  nc  J) 
IPl  f-iTPN>.lTHF:N  12  3U 
lPi!''UiOT01  C'lP.n 
1?>3''1LE17.=  I>C  J) 
1P/J0GO5IJR  1  320 
12i>flLETT=T+nc  J) 
ir»f>'^rF.N>4THF:Nl2B0 
|:^70GOTj)1  MK0 
l?«^0LFT;'=n(  J) 
1P90GOSI)R1320 
in^'iMLFTT=T+EC.J) 
131''»OOI01 

133niFZ>99THENl 3R0 

nii'/1IF?:>9THR.Nl  37'"0 

13S^n  F7.>-  1  THRiNJi  360 

1360PRIinT" 

1370PKINT" 

13«0RFTll,=?tvj 

1390FNr) 
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DISCIPLINE    TCACIILK  ASSISTANCE 
SUBJ  ECT     LABORATORY  DATA 
PROGRAM  NAME  STAT 


DESCRIPTION: 

This  program  treats  class  sets  of  laboratory  data  statistically. 
Aside  from  a  table  of  experimental  values  with  errors  and  percent 
errors,   the  teacher  has  a  choice  of  experimental  value  distribution 
with  bar  graph,   ranking  by  percent  error,   ranking  by  experimental 
value,  mean  deviation,  and  standard  deviation. 


OBJECTIVES: 

A.  To  make  percent  error  in  experiments  more  meaningful. 

B.  To  increase  competitive  spirit  in  the  laboratory  due  to  ranking 
portion  of  statistical  analysis. 

C.  To  provide  a  basis  for  further  discussion  of  laboratory  data  and 
techniques. 


PRELIMINARY  PREPARATION: 

This  program  is  not  generally  for  student  use* 

DISC  USSION: 

Often  a  teacher  is  forced  to  work  with  some  arbitrary  percent 
error  scale  for  marking  purposes.    AVith  a  statistical  analysis  of  the 
laboratory  results,  a  realistic  scale  can  easily  be  developed. 

Also,  it  is  often  desireable  to  discuss  the  class  results  but 
without  a  statistical  analysis  this  usually  turns  out  to  be  rather  sh&lloWf> 
The  analysis  can  now  be  obtained  in  the  few  minutes  it  takes  the  students 
to  clean    their  equipment  and  put  it  away. 

It  may  be  helpful  to  discuss  a  few  of  the  ways  in  which  the 
teacher  can  input  data.     First,  the  teacher  may  simply  call  up  the  program 
and  then  either  he  or  his  students  can  input  the  data  as  the  experiments 
are  finished.     Next,  with  the  teletype  unit  on  local,  a  tape  can  be  made 
and  the  analysis  can  be  made  at  any  convenient  time.    With  tapes  a 
teacher  can  do  a  statistical  analysis  of  his  classes  separately  or  as  a 
group  as  long  as  each  student  gets  a  different  student  number. 
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Teacher  Assistance 
STAT 


THIS   PROnRAM   WFLL  DO   THE  FOLLOWINn: 

1.    PRINJT  OUT   A  TARLF:  OF   EXPERIMENTAL   VALUES,  ERRORS, 

AND   PERCFNT   ERRORS    INCLUDINH  AVERAGES   FOR  ALL. 
P.    niVE   YOU  A  CHOICE  OF  ALL  OF  THE  FOLLOWING: 

CHOICE    I    -    EXPERIMENTAL   VALUE  DISTRIBUTION 

INCLUDING   A   BAR  GRAPH 
nHOlCE   J?   -    RANKING  RY   PERCENT  ERROR 
CHOICE   3  -   RANKING  BY   EXPERIMENTAL  VALUE 
CHOICE   A   -  OTHER  INFORMATION 
CHOICE   5  -    ALL  OF  THE  ABOVE  CHOICES 
CHOICE   6   -    ENDS  PROGRAM 
INSTRUCTIONS 

1.    LINES    1^5^   TO    \}€^  HAVE  BEEN    RESERVED   FOR  DATA. 

NOTE:    THE   FITiST  DATA  LINE  MUST   ALWAYS   BE  N^.  1(1(1 
AND  LINE    IC^I    MUST   ALWAYS   BE  USED. 

3.  TWFRE    IS   ROOM   FOR  DATA  FOR  A  MAXIMUM  OF   ^51  STUDKNTS. 

4.  INPUT   SHOULD   RE    IN   THE  ="0  RM ; 

MP*  PATA  STUDENT  NO.,    i^ALUE,    STUDENT  NO.,    VALUE,  ETC., 

5.  STL'DFJNT  NUMBERS  MUST   RANGE   FROM  |-/^i(1. 

OLD   O^T^   1:5  ERASED  BY    INPUTINo  NEW  DATA   WITH  THE  SAME 

LINE  NU'^'RFRS  DURING   SUBSEOf^ENT  RUNS. 
7.    IF   THE   FTPST   RUN   REOUIRES  DATA  LINES    IPiPl-lld  AND  THE 

SECONJD  PUN    REOUIRES   LINES    1(^(1-1(19,    LTNF    lid    IS  TYPED 

IN   TO    ERASE  OLD  DATA    IN    TKA I  LINE. 
«.    NEVER   T^rPE   SAVE   DURING  THE   RUN  OF  ANY   PART  OF  THIS 

PROGRA.M. 


TIME:  f:.rcs. 


TAPE 
RFAPY. 

}m  DATA  !  ,37.R,o,3R./i,3^39.7,4,37,9^  5,  3R.  PI,  6,  4(1.  6,  7,  4  I  .  B  ,      3  7 .  /i,  9, 

ini    DATA  39.  5,  1  J^,  4(1.  U  I  1,39.      15,39.4,  13,3  5.  4,  M,  33.  9,  I  5,  42.(1,  1  6,39. 

1^2   DATA  I  7>3q^7,  |R,37.  6,  19,3R.  5,2(1,  4(1»  I 

RUN 
WATT. 
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Teacher  Assistance 
STAT 


WHAT  TS  THE  TOTAL  NO.  OF  STUDENTS  AND  THE  CALC.  VALUE?  P(?l,  39. 
DATA  LISTED   RY   STUDENT  NUMRER 


STUDENT  NO. 

"• 

VALUE 

ERROR 

PERCENT 

1 

37.  R 

-1.2 

3. B769P 

f> 

3R.  ^ 

-  .  4 

1 . 02564 

3 

39.  7 

.  7 

1  • 79487 

4 

37.9 

-  )  .  1 

2.  82P151 

5 

38 

-  I 

2. 564 1 

4(^.  ^ 

1  .  (> 

4.  1  P1256 

7 

41.8 

2.  8 

7.  1 7949 

R 

37. 

-1.4 

3.  58974 

9 

39.  5 

.  S 

1  .  282t^5 

\^ 

4^^.  1 

1.  1 

P.  82(551 

I  1 

39.  8 

.8 

p.  28 

IP 

39.  4 

.  4 

1 . 02564 

13 

35.  4 

-3.6 

9.  23'?I77 

14 

33.  9 

-5.  I 

1  3.  C?J769 

15 

42 

3 

7. 69231 

16 

39. 

•  6 

I  .  538i>^ 

17 

38.  7 

-.3 

. 769231 

IR 

37.  6 

-1.4 

3. 58974 

19 

38.  5 

5 

I . P8205 

40.  1 

U  \ 

2.82051 

THE   ARITHMETIC  MEAN    CAVERACE]    IS  38.83 
THE   AVERAGE   ERROR  CABS0LUTE3    IS  1.43 
THE  AVERAGE  PERCENT   ERROR  IS  3.66667 


DO  YOU  DESIRE   ADDITIONAL    INFORMATION    ?    IF   SO,  TYPE 

TN  THE  NUMBER  OF  YOUR  CHOICE. ?5 

FOR  THE   DISTRIBUTION,    WHAT  LOWER  LIMIT,    UPPER  LIMIT, 

AND  STEP  DO   YOU  DESIRE  ?35,42.5,.5 


EXPERIMENTAL   VALUE  DISTRIBUTION 


FROM  TO   LESS  THAN  NO.  BAR  GRAPH 


0 

35 

1 

* 

35 

35.  5 

1 

35.  5 

36 

0 

36 

36.  5 

0 

36.  5 

3  7 

0 

37 

37.  5 

0 

37.  5 

38 

4 

3R 

38,  3 

1 

5 

39 

3 

39 

39,  5 

! 

39t  5 

♦  ♦♦♦ 

A^ 

f^0t  F} 

! 

^1 

« 

4t  t  5 

1 

1 

♦ 

^9t  9 

«9 
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Teacher  Assistance 
STAT 


RANKING  BY  PERCR'NJT  ERROR 


^Tlin  FM  T   MO  « 

DC"  Df*  CKt  T 

1 

1  7 

•  7  ^9;^3  1 

i  P 

1  •02564 

3 

1  •  564 

4 

o 

1 • PR?0  5 

5 

1  o 

4         /t  n  <^ 

1  • PkPm5 

^ 

1  A 

1  n 

1 • 53R  A  6 

7 

J 

1 • 79  4R  7 

1  1 

2«  05 1 2R 

9 

c 
J 

2 • 564 1 

1 

i 

2  •  RP'^  5  1 

1  1 

2.  R2051 

]P 

2. R2051 

13 

1 

3.  07692 

1  4 

3.  5R974 

1  5 

3. 5R974 

1^ 

4.  1P1?56 

1  7 

7 

7.  I  7949 

IR 

1  5 

7. 6923! 

IP 

1  n 

9.  ?3077 

M 

1  3.  P1769 

RANKTiNJG  RY   EXPERIMENTAL  VALUE 


RANK 

STUDENT  NO. 

EXPER 

1 

1  4 

33-9 

P 

1  3 

35.  4 

3 

R 

37.  6 

4 

IR 

37.  6 

5 

37. R 

6 

4 

37.  9 

7 

5 

3R 

R 

19 

3B.  5 

9 

3R.  6 

10 

17- 

3R.  7 

1  1 

1  J? 

39.4 

IJ? 

9 

39.  5 

13 

16 

39.  6 

14 

3 

39.  7 

15 

1  1 

39.  R 

16 

10 

40.  1 

17 

P0 

40.  1 

IR 

6 

40.  6 

19 

7 

41  .R 

20 

15 

42 

OTHER  INFORMATION 


THE  MEDIAN  VALUE  IS  3R.  7 
THE  LOWEST  VALUE  IS  33.9 
THE  HIGHEST   VALUE   IS  42 

THE  MEAN   DEVIATION    CAVERAGE  DEVIATION]    IS  .13 
THE   STANDARD  DEVIATION   IS  1.R7776 
THIS  CONCLUDtS  THE  RUN. 
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Teacher  Asalatance 
STAT 


IHEMH  •  DOaFMAN#>>  I  B#  8/ 1 /69 

2  HEM  STATISTICAL  ANALYSIS  OF  LABOiiATOKY  DATA 

100  GO  TO  1750 

101  DATA  0 

16UDIMAC50),K(  50  )  *  YC  50  ) *  W(  50  ) 

170DIMQ(50> 

160LETY(0>«0 

190F0HI-1   TO  50 

200LETA(I>>0 

210LETR(I)«0 

220LETY(I>«0 

230LETW(I>«0 

240LETU(I)«0 

250NEATI 

26OLETA9-0 

270LETAb«0 

2bOLETH«0 

290LETV-0 

300LETC-0 

310  PRINT  "WHAT   IS  THE  TOTAL  NO.    OF  STUDENTS  AND  THE  CALC  VALUE'S 

320INPUTB#K 

330  i^HINT 

3410F0KI-1T0B 

350H£A0H(I>>A(I > 

360 NEXT I 

370  PHI NT  "DATA  LISTED  BY  STUDENT  NUMBEH" 

3bO  PHINT  —   M 

390PHINT 

400  PRINT"   STUDENT  NO VALUE'S "EHHOR"* "PERCENT  ERROR" 

410  PRINT 

420F0RI-1T0B 

430LET4:-A(I  )-K 

440LETA6-AB  -t-ABS  (  Z  >  /B 

450LETP-P+A(I )/B 

460LETW(I  >«(ABS(4:/K>  >*100 

470LETA9«A9-t-V(I  >/B 

4bO  PRINT  R(I)jA(I)^4:«V(I) 

490 NEAT I 

500PRINT 

510  PHINT  "THE  ARITHMETIC  MEAN   (AVERAGE)    IS  "iP 
520  PRINT  "THE  AVERAGE  ERROR  (ABSOLUTE)    IS  ";AB 
530  PRINT  "THE  AVERAGE  PERCENT  ERROR  IS      *  "iA9 
S40PRINT 
550PRINT 

560  PRINT  "  DO  YOU  DESIRE  ADDITIONAL  INFpRMATION   ?   IF  SO*  TYPE^' 

570  PRINT  "   IN  THE  NUMBER  OF  YOUR  CHOICE."; 

580INPUTN 

590IFN-2THEN1010 
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600IFN-3THEN1200 
610IFN«^1THENM9U 
620 1 FN-6 THEN I  730 
630PHINT 

6^0  PKINT  "FOH  THE  DISTHIBUTION^    WHAT  LOWEH  LIMIT*   UHi^EK  LIMIT," 

650  PKINT  "AND  STEP  DO  YOU  DESIHE  "i 

660INPUTE,F,G 

670PRINT 

6b0PHINT 

690  PRINT  "EXPERIMENTAL  VALUE  DISTRIBUTION" 

700  PRINT  "   

710PRINT 

720F0RI-IT0B 

730LETM-0 

7^0  I FA ( I ) > - F THENb 50 

750IFA( I ) >-ETHEN7  70 

760LETY(0)-Y(0)+l 

770F0RJ»ET0(F-G)STEPG 

7bOLETM-M+l 

790IFA( I )>-JTHENblO 

600G0T0830 

blOIFAC  I  )  >«(  J-t-G)THENb30 

b20LETY(M)-Y(M)+l 

b30NEXTJ 

b4U G0T0b60 

b50LETY(25)-Y<25)+l 

b60NEXTI 

870LETM-1 

880  PRINT  "FROM", "TO  LESS  THAN",-  NO.","  BAR  GRAPH" 
681  PRINT 

882  PRINT  0,E,Y(0), 

890LETA5-Y(0) 

900G0SUB2000 

910F0RJ»ET0(F-G)STEPG 

920  PRINT  J,J+G,Y(M), 

930LETA5»Y(M) 

94I0G0SUB2000 

950LETM-M+1 

960NEXTJ 

970  PRINT  F, "INFINITY", Y<25), 

980LETA5-Y(25) 

990G0SUB2000 

I000IFN-ITHEN540 

lOIOPRINT 

1020PRINT 

10  30  PRINT  "RANKING  BY  PERCENT  ERROR" 

1040  PRINT  "    " 

1050PRINT 

1060  PRINT  "RANK", "STUDENT  NO.", "PERCENT  ERROR" 

10  70PRINT 

1080F0RS"iT0B 

I090LETT-IE25 
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Teacher  Assitance. 
STAT 


llOOFOHIclTOB 

II  lOIFW<I)>  =  TTHr::NU40 

n20LETT»W<I) 

n30LETV=»I 

lUONCXTI 

1150PrtINTS#V# W< V) 

1160LETWC V)=IE25 

1170NEXTS 

llbOPiilNT 

1190IFN=2THEN5^0 

I200PHINT 

1210PHINT 

1220PRINT 

1230  PHINT  ••HANKING  BY  EXPEHIMENTAL  VALUE^* 

12^0  PRINT  ••  

1250PRINT 

1260  PRINT"   RANK^S^'STUDENT  NO.^%"EXPER.  VALUE*' 

1261  PRINT 
1270F0RS=1 TOE 
1280LETT=IE25 
1290F0RI=IT0B 

1 300 1 FA C I )>  =  TTHEN1330 

1310LETT=AC I ) 

1320LETV=I 

1330NEXTI 

1 340PHINTS^     AC  V) 

1350LETQCS)=AC V) 

1360LETAC V)=1E25 

1370NEXTS 

13B0LETF=0 

l390LETG7=B/2 

l^00F0RI=lT03l 

l^lOIFG7aITHENM70 

I420NEXTI 

1^30LET^2=INTC  G7) 

l^^OLETZ^cINTC  G7+1 ) 

l^50LETFaCQCZ2)+Q(Z^) )/2 

i460G0T0i540 

1^70LETF=CQC  G7) ) 

1^80IFN»3THEN5^0 

l^90PRINT 

1500PRINT 

1510  PRINT  ••OTHER  INFOHMATI ON^' 

1520  PRINT  ••  

1530PRINT 

15^0  PRINT  ••THE  MEDIAN  VALUE  IS  •'iF 

1550  PRINT  ••THE  LOWEST  VALUE  IS  ••;U(1) 

1560  PRINT  ••THE  HIGHEST  VALUE  IS  ••iUCB) 

15  70LETM-0 

1580LET>>9=F 

1590F0RI  =  1T0B 

l600LETP3aWC I )-P9 

1610LETM-M+P3 

1620NEXTI  , 
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1630LETM7-M/B 

1640  PRINT  "THE  MEAN  DEVIATION   CAVEHAQE  DEVIATION)  IS"M7 

l650LETMaO 

1660F0HI»1T0B 

I67ULETP3»(U( I }*P9) f2 

1680LETM-M+P3 

1690NEXTI 

1 700LETM  7aSQHC  M/B  > 

1710  PHI  NT  ••THE  STANDARD  DEVIATION  IS"M7 
1720IFN-4THEN540 


1730  PRINT  ' 
I 740 STOP 
1750  PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 


THIS  CONCLUDES  THE  RUN." 


1760 
17  70 
1780 
1790 
1791 
1600 
1610 
1820 
1830 
1840 
1850 
1860 
1870 
1871 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
I960 
19  70 
1980 


1990PRINT 
1995ST0P 
1996F0R  I« 
199  7PRINT" 
1998NEXTI 
1999PRINT 
2000RETURN 
aOOlEND 


THIS  PROGRAM 
1.  PRINT 


TO 


WILL  DO  THE  FOLLOWING!" 

OUT  A  TABLE  OF  EXPERIMENTAL  VALUES*  ERRORS*' 
AND  PERCENT  ERRORS  INCLUDING  AVERAGES  FOR  ALL*" 
GIVE  YOU  A  CHOICE  OF  ALL  OF  THE  FOLLOWING!" 


CHOICE   1  - 


LINES 
NOTES 

THERE 
INPUT 


CHOICE 
CHOICE 
CHOICE 
CHOICE 
CHOICE 


TO 


EXPERIMENTAL  VALUE  DISTRIBUTION" 
INCLUDING  A  BAR  GRAPH" 
HANKING  BY  PERCENT  ERROR" 
RANKING  BY  EXPERIMENTAL  VALUE" 
OTHER  INFORMATION" 
ALL  OF  THE  ABOVE  CHOICES" 
ENDS  PROGRAM" 
INSTRUCTIONS" 
159  HAVE  BEEN  RESERVED  FOR  DATA." 


STUDENTS." 


100 

THE  FIRST  DATA  LINE  MUST  ALWAYS  BE  NO.  100' 
AND  LI-NE   101   MUST  ALWAYS  'BE  USED." 
IS  ROOM  FOR  DATA  FOR  A  MAXIMUM  OF  50 
SHOULD  BE  IN  THE  FORM!" 
100   DATA  STUDENT  NO.*   VALUE*    STUDENT  NO.*  VALUE* 
STUDENT  NUMBERS  MUST  RANGE  FROM  1-50." 

OLD  DATA  IS  ERASED  BY  INPUTING  NEW  DATA  WITH  THE  SAME- 
LINE  NUMBERS  DURING  SUBSEQUENT  RUNS." 

IF  THE  FIRST  RUN  REQUIRES  DATA  LINES  100-110  AND  THE" 
SECOND  RUN  REQUIRES  LINES  100-109*  LINE  110  IS  TYPED" 
IN  TO  ERASE  OLD  DATA  IN  THAT  LINE."  ' 

NEVER  TYPE  SAVE  DURING  THE  RUN  OF  ANY  PART  OF  THIS" 
PROGRAM." 


A5 
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Teacher  Assistance 
STATAL 


DESCRIPTION: 


This  proj^ram  will  find  the  mean,  median,  and  deviation  of  a 
set  of  numbers. 


MEAN#  MEDXANj  AND  DEVIATION  OF  A  SET  OF  NUMBERS* 

KNTSA  YOUR  NUMBERS  IN  DATA  STATEMENTS  ON  LINES 
1000  *  8000*     FOR  EXAMPLE^  YOU  MIGHT  TYPE  I 

1000  DATA     1#8#3#4     ETC*   (YOUR  DATA  GOES  HERE  I) 


WEN  YOUR  DATA  HAS  BEEN  ENTERED  #     TYPE  I 


1  GO  TO  300 
RUN 


THEN  RELAX  WHILE  THE  MACHINE  GRINDS  OUT  THE  ANSWERS. 
IF  AN  *OUT  OF  DATA*  APPEARS^  ADJUST  LINE  fi95* 


READY 


1000  DATA  844#188#118#8#196#10#314#160#18#36 

1  GO  TO  300 

RUN 


THESE  ARE  YOUR  NUMBERS  t 

844     168     1 18     8     196     10     314     160     16  36 

THESE  ARE  YOUR  NUMBERS  CHI QUEST  TO  LOWEST)  t 
314     844     196     168     160     118     36     18     10  8 


NUMBER  OF  VALUES  IS  10 

SUM  OF  THE  VALUES  IS  1876 

THE  MEAN  VALUE  IS  187*6 

THE  MEDIAN  VALUE  IS  136 

THE  STACIOARD  DEVIATION  IS  806*8797 


FOR  ANOTHER  RUN#  RE-ENTER  DATA  ON  LINES 

1000  *  8000#   TAKING  CARE  TO  ELIMINATE  OLD  DATA 

BY  TYPING  THOSE  LINE  NUMBERS  WHICH  YOU  DO  NOT  USE  AQAINi 

THEN  TYPE  *RUN** 


READY 
1000 

1  23 
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Teacher  Assistance 
STATAL 

100     HEM    CHAHLBS  M.  LOSIX#  BKLYN  POLy#  MXAN-MBDIAN-DKVIATION 
no     REM     (7*66  IN  FORTRAN  II)  I   (d*a6-70  IN  BASIC) 
180    REM    YOU  PUT  YOUR  NUHBtRS  IN  DATA  STATEMBNTS  AND 
130     REM    YOU  GET  WHAT  YOU  PAY  FOR* 

140  PRINT       '*#*«MEAN#  MEOIAN#  AND  DEVIATION  OF  A  SET  OF  NUMBERS.- 

150  PRINT 

160  PRINT       ENTER  YOUR  NUMBERS  IN  DATA  STATEMENTS  ON  LINES** 

170  PRINT       1000  -  aOOO.     FOR  EXAMPLE^  YOU  MIGHT  TYPE 

171  PRINT 

178  PRINT  -  "^'MOOO  DATA     1#8#3#4     ETC.  (YOUR  DATA  GOES  HEREI  )•• 

173  PRINT 

174  PRINT  -  VHEN  YOUR  DATA  HAS  BEEN  ENTERED^     VVPE  t" 
160  PRINT 

190  PRINT  GO  TO  300" 

BOO  PRINT  ••#"RUN" 
BIO  PRINT 

S80  PRINT       THEN  RELAX  WHILE  THE  MACHINE  OHINOS  OUT  THE  ANSVERS.** 
BBS  PRINT  "  IF  AN   'OUT  OF  DATA*  APPEARS*  ADJUST  LINE  a95.'' 
B30  STOP 

B40     REM    A(I)  ARE  THE  NUMBERS*  S  IS  THEIR  SUH# 
850     REM     SB  IS  THE  SUN  OF  THEIR  SQUARES. 
860  REM 

870     REM     VARNINQI     DATA  ON  LINES  999  AND  800 i  MAY  NOT  BE 

880     REM     USED  AS  ONE  OF  YOUR  NUMBERS. 

890     REM     IF  THEY  ARE#  SIMPLY  CHANGE  999  AND  8001. 

895  DIM  A(IOO) 

XO  PAINT 

303  PRINT  **  THESE  ARE  YOUR  NUMBERS  f 
X5  LET  I  -  1 
310  READ  E 

315  LET  S  -  0 

316  LET  S8  -  0 
380  READ  A(I) 

330   IF  E  -  A(I)  THEN  3T0 

340  PRINT  A(I)  J 

345  LET  S  -  S  ♦  A(I) 

347  LET  M  '  SB  ^  A(I)  m  A(I) 

390  LET  I  •  I  ♦  1 

360  GO  TO  380 

370  LET  N  -  I  -  1 

380  PRINT 

390  PRINT 

399  HEM    •••••  BUBBLE  SORT  mmmmm 

400  PRINT  **  THESE  ARE  YOUR  NUMBERS  (HI8HEST  TO  LOVEST)  I** 
405  FOR  I  -  1  TO  N  -  1 

410  FOR  J  -  I  ♦  1  TO  N 

480  IF  A(I)  >  A(J)  THEN  460 

430  LET  T  -  A(I) 

440  LET  Ad)  -  A(J) 

450  LET  A€J)  -  T 

460  NEXT  J 

465  PRINT  A(I)  J 

470  NEXT  I 

475  PRINT  A(N) 

4B0  PRINT 

490  PRINT 

500  PRINT  **  NUMBER  OF  VALUES  IS**  i  N 
510  PRINT  •*  SUM  OF  THE  VALUES  IS**  i  S 
580  PRINT  **  THE  MEAN  VALUE  IS**  i  S  /  N 
530  PRINT  **  THE  MEDIAN  VALUE  IS**  i 
540  IF  N  /  8         INT  (  H  /  8  >  THEN  570 
550  PRINT  (  A(N/t)  ♦  A((B>8)^8>  )  /  8 
560  GO  to  600 
570  PRINT  A((N>l)/8) 

600  PRINT  **  THE  STANDARD  DEVIATION  IS**  I  SOR  <UmS2^Smsy/U 
610  PRINT 
680  PRINT 

630  PRINT  **  FOR  ANOTHER  RUN#  ES-EMTER  DATA  ON  LINES** 
640  PRINT  **  1000  -  8000#  TAKING  CARE  TO  ELIMINATE  OLD  DATA** 
648  PRINT  **  BY  TYPING  THOSE  LIME  NUMBERS  URICH  YOU  DO  NOT  USE  ABAINI* 
645  PRINT  -  THEN  TYPE  •RUN**** 
650  STOP 
999  DATA  9999 
8001  DATA  9999 
8010  END 
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